Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5828 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48655】arrayの使い方について tomo 07/4/28(土) 19:47 質問[未読]
【48656】Re:arrayの使い方について ichinose 07/4/28(土) 19:56 発言[未読]
【48655】arrayの使い方について
質問  tomo  - 07/4/28(土) 19:47 -
引用なし
パスワード
   こんばんは。
質問させてください。
初歩だとは思うのですが、よろしくお願いいたします。

for i = 1 to 10
　cells(i,1).value=total
next i

このiを1,5,6,10だけに当てはめるやり方を教えてくださいませ。

myarray=array(1,5,6,10)で指定し
cells(myarray,1).value=total
で書いてみたのですが、動かないのです。

どこを書き換えるとよいのでしょうか？
違う書き方があるのでしょうか？
どうぞよろしくお願いいたします。
【48656】Re:arrayの使い方について
発言  ichinose  - 07/4/28(土) 19:56 -
引用なし
パスワード
   ▼tomo さん：
こんばんは。

>質問させてください。
>初歩だとは思うのですが、よろしくお願いいたします。
>
>for i = 1 to 10
>　cells(i,1).value=total
>next i
>
>このiを1,5,6,10だけに当てはめるやり方を教えてくださいませ。
>
>myarray=array(1,5,6,10)で指定し
>cells(myarray,1).value=total
>で書いてみたのですが、動かないのです。
>
>どこを書き換えるとよいのでしょうか？
>違う書き方があるのでしょうか？
書き方はいくつかありますよ！！
一例です。

Sub sample()
　　Dim i As Variant
　　For Each i In Array(1, 5, 6, 10)
　　　　Cells(i, 1).Value = "aaa"
　　　　Next i
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5828 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free