Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34231 / 76732 ←次へ | 前へ→

【47711】Re:セルのIndex?
お礼  Runa  - 07/3/20(火) 10:30 -

引用なし
パスワード
   おはようございます。
昨日Keinさんに教えてもらった通りに手直ししたら、
きちんと表が描画されました。
とっても助かりました!ありがとうございましたm(_ _)m


  For i = 1 To 33
    Debug.Print Workbooks("book_name1").Sheets("設定シート") _
    .DrawingObjects(i).TopLeftCell.Address(RowAbsolute:=False) & " : " & i
  Next i

  
'  /* 記号の情報をテーブル,シートに設定する */
  Windows("book_name2").Activate
  Sheets("表").Select
  
  Dim IndAry As Variant
  IndAry = Array(19, 20, 21, 22, 13, 14, 23, 26, 25, 24)
  
  For i = 1 To 10
    Set cp = Workbooks("book_name1").Sheets("設定シート").DrawingObjects(IndAry(i - 1))
    cp.Copy

    Cells(i, 1).Select
    ActiveSheet.Paste    
  Next

2 hits

【47690】DrawingObjectsプロパティーについての質問です。 Runa 07/3/19(月) 14:56 質問
【47691】Re:DrawingObjectsプロパティーについての... ウッシ 07/3/19(月) 15:12 発言
【47693】Re:DrawingObjectsプロパティーについての... Runa 07/3/19(月) 16:04 質問
【47694】Re:DrawingObjectsプロパティーについての... ウッシ 07/3/19(月) 16:14 発言
【47695】Re:DrawingObjectsプロパティーについての... Kein 07/3/19(月) 16:33 発言
【47699】Re:セルのIndex? Runa 07/3/19(月) 17:50 質問
【47701】Re:セルのIndex? Kein 07/3/19(月) 18:14 発言
【47711】Re:セルのIndex? Runa 07/3/20(火) 10:30 お礼
【47692】Re:DrawingObjectsプロパティーについての... Kein 07/3/19(月) 15:22 発言

34231 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free