Excel VBA 質問スレ Part26at TECH
Excel VBA 質問スレ Part26 - 暇つぶし2ch194:デフォルトの名無しさん
12/09/09 02:17:54.45
Excelって使用期限が設けられているライセンス体系もあったんか
次買うときはケチらずに無期限ライセンスのを買えよ

195:桃白白
12/09/09 02:27:17.22
>>194
桃白白貧乏だから買えないの。寄付する? するんだったら桃白白はその好意を決して断らない
ことをここに誓う用意があるけど?

196:デフォルトの名無しさん
12/09/09 04:13:41.72
パソコンをリカバリすればまた体験版が使えるようになるよ

197:デフォルトの名無しさん
12/09/09 07:12:31.16
>>195
互換Office使えばタダだよ
VBA使えないけど

198:デフォルトの名無しさん
12/09/09 07:31:11.37
貧乏だけど知識が豊富で頭も良くて有用な回答者にならOfficeくらい寄付してもいいが、
貧乏な上に知識も多少の回答は出来るが並以下レベルで、頭の回転も弱い奴となると、
べつに回答者を続けてくれなくても誰も困らないから、Excelの使用期限と共に消えてくれて
一向に構わないな

199:桃白白
12/09/09 10:38:47.13
   ∧∧
   /⌒ヽ)
  i三 ∪
 ○三 |
  (/~∪
  三三
 三三
三三三

200:デフォルトの名無しさん
12/09/09 15:24:00.49
>>199
俺も貧乏だから寄付しないけどタオパイパイ嫌いじゃないよ
これからは回答せずに
にぎやかしでAA貼ってりゃいいじゃん

201:デフォルトの名無しさん
12/09/09 15:26:03.47
私の声がデムパになって
波になってあなたへ向かってく
私の歌がデムパになって
波になってあなたへ響いてく
私の愛がデムパになって
波になってあなたへ届いてく
私の電子回路が短絡する前に
Electric LOVE Electric LOVE
(∩ ゚д゚) アーアー
この気持ちあなたに届くかな

202:デフォルトの名無しさん
12/09/10 11:09:37.38
VBAであるセル範囲をコピペして他のシートに貼り付けたとき
図のオブジェクトがどういうわけかコピペされないんです。
どうすればこの図のオブジェクトも正しくコピペされて他のシートにも表示させるようにできますか?

203:デフォルトの名無しさん
12/09/10 11:21:30.08
馬鹿には無理

204:202
12/09/10 11:31:04.49
>>203みたいな馬鹿には回答は無理なのは分かりますよ。

205:デフォルトの名無しさん
12/09/10 11:37:58.19
ただ図がセル範囲からはみ出してるだけじゃないのか?

206:202
12/09/10 11:40:24.57
いえ、しっかりセル範囲内におさまっています。
列は3、行は20くらい、
図はちょうどど真ん中あたりにあり、1つのセルと同じくらいの大きさなのに。

207:デフォルトの名無しさん
12/09/10 14:03:16.08
2007以降だっけ、図形や画像のオブジェクト仕様が変わってるから
その影響じゃね確かめてないけど

208:デフォルトの名無しさん
12/09/10 14:23:25.83
>>202
コードも貼らずに・・・VBAでコピペといっても丸ごと・値だけ・図だけ・云々
値だけコピぺのコードになっていないか?



209:デフォルトの名無しさん
12/09/10 15:30:15.55
再現できたよ

import os
import win32com.client

def test_auto_shape(filename):
  xl = win32com.client.Dispatch('Excel.Application')
  xl.Visible = True
  try:
    book = xl.Workbooks.Open(filename)
    sheet = book.Worksheets(2)
    rs = "A10:D20"
    sheet.Select()
    sheet.Range(rs).Select()
    xl.Selection.Copy()
    sheet = book.Worksheets(1)
    sheet.Select()
    sheet.Range(rs).Select()
    xl.Selection.PasteSpecial()
  finally:
    xl.Workbooks.Close()
  xl.Quit()

if __name__ == '__main__':
  test_auto_shape(os.path.abspath(u'autoshape_copy.xls'))


210:デフォルトの名無しさん
12/09/10 15:36:44.24
きもっ

211:デフォルトの名無しさん
12/09/10 15:39:18.22
こっちのコードなら図形も正しくコピペされたよ

import os
import win32com.client

def test_auto_shape(filename):
  xl = win32com.client.Dispatch('Excel.Application')
  xl.Visible = True
  try:
    book = xl.Workbooks.Open(filename)
    sheet = book.Worksheets(2)
    rs = "A10:D20"
    sheet.Range(rs).Copy(book.Worksheets(1).Range(rs))
  finally:
    xl.Workbooks.Close()
  xl.Quit()

if __name__ == '__main__':
  test_auto_shape(os.path.abspath(u'autoshape_copy.xls'))


212:デフォルトの名無しさん
12/09/10 15:43:04.57
Select って恥ずかしいよね

213:デフォルトの名無しさん
12/09/10 15:50:50.02
なんでVBAのコードにしないんだろう?

214:デフォルトの名無しさん
12/09/11 11:33:18.80
中二病だから


最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch