Excel VBA質問箱 IV

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

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


17582 / 76732 ←次へ | 前へ→

【64603】Re:64593の質問者です
質問  rin  - 10/2/25(木) 11:46 -

引用なし
パスワード
   ▼UO3 さん:
>▼rin さん:
>
>仮にListObjectだとします。
>(違っていたら無視してください)
>
>Option Explicit
>
>Sub Test()
>Dim myList As ListObject
>Dim c As Long
>Dim r As Long
>Dim i As Long
>Dim x As Long
>
>  Set myList = ActiveSheet.ListObjects(1)
>  c = myList.ListColumns.Count
>  r = myList.ListRows.Count
>  x = 1
>  For i = 1 To r
>    Cells(x, c + 2).Resize(c) = WorksheetFunction.Transpose(myList.ListRows.Item(i).Range)
>    x = x + c
>  Next
>  Set myList = Nothing
>  
>End Sub

ご回答をいただきありがとうございました。
Sheetの中でE11:J20まで数字が埋められています。
Dim myList As ListObject
にこのセル範囲を当てはめた方がよいですか?

0 hits

【64594】64593の質問者です rin 10/2/24(水) 18:16 質問
【64596】Re:64593の質問者です neptune 10/2/24(水) 23:21 発言
【64598】Re:64593の質問者です UO3 10/2/25(木) 0:01 発言
【64599】Re:64593の質問者です UO3 10/2/25(木) 0:13 回答
【64603】Re:64593の質問者です rin 10/2/25(木) 11:46 質問
【64605】Re:64593の質問者です 超初心者 10/2/25(木) 11:59 発言
【64610】Re:64593の質問者です rin 10/2/25(木) 14:25 お礼
【64613】Re:64593の質問者です rin 10/2/25(木) 16:44 質問
【64614】Re:64593の質問者です 超初心者 10/2/25(木) 16:49 発言
【64615】Re:64593の質問者です rin 10/2/25(木) 17:08 お礼
【64616】Re:64593の質問者です 超初心者 10/2/25(木) 17:19 発言
【64617】Re:64593の質問者です rin 10/2/25(木) 17:30 お礼
【64618】Re:64593の質問者です 超初心者 10/2/25(木) 17:55 発言
【64619】Re:64593の質問者です rin 10/2/25(木) 18:26 お礼
【64606】Re:64593の質問者です UO3 10/2/25(木) 12:37 回答
【64608】Re:64593の質問者です Yuki 10/2/25(木) 13:51 発言

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