Excel VBA質問箱 IV

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

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


14345 / 76738 ←次へ | 前へ→

【67890】Re:配列について
発言  momo  - 11/1/14(金) 17:52 -

引用なし
パスワード
   ▼KIKI さん:
えっと、配列に入れるコードがぜったいありますよね?
で、配列1と2のどちらかに入れるための振り分けがあるんだと思います。

なので、たとえばフラグを設けて

Sub test()

Dim 配列1(1 To 11) As Long
Dim 配列2(1 To 11) As Long
Dim IntFlg As Integer

If 配列1に値を入れる場合 Then
 IntFlg = 1
 For i = 1 To 11
  配列1(i).Value = i
 Next i
ElseIf 配列2に値を入れる場合 Then
 IntFlg = 2
 For i = 1 To 11
  配列2(i).Value = i
 Next i
End If

If IntFlg = 1 Then
  For i = 1 To 11
   Cells(i, "A").Value = 配列1(i)
  Next i
ElseIf IntFlg = 2 Then
  For i = 1 To 11
   Cells(i, "A").Value = 配列2(i)
  Next i
End If
End Sub

のようにする事でも出来るのかな?
と思ったのです。

5 hits

【67866】配列について KIKI 11/1/14(金) 8:45 質問
【67867】Re:配列について neptune 11/1/14(金) 9:18 発言
【67883】Re:配列について KIKI 11/1/14(金) 17:23 お礼
【67868】Re:配列について Jaka 11/1/14(金) 9:23 発言
【67884】Re:配列について KIKI 11/1/14(金) 17:25 お礼
【67873】Re:配列について UO3 11/1/14(金) 11:06 発言
【67886】Re:配列について KIKI 11/1/14(金) 17:28 お礼
【67874】Re:配列について kanabun 11/1/14(金) 12:07 発言
【67888】Re:配列について KIKI 11/1/14(金) 17:40 お礼
【67880】Re:配列について momo 11/1/14(金) 16:42 発言
【67889】Re:配列について KIKI 11/1/14(金) 17:44 お礼
【67890】Re:配列について momo 11/1/14(金) 17:52 発言
【67935】Re:配列について KIKI 11/1/18(火) 9:56 お礼

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