Excel VBA質問箱 IV

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

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


13501 / 76732 ←次へ | 前へ→

【68734】Re:取得した値をシートに書きこむには
発言  UO3  - 11/4/12(火) 18:39 -

引用なし
パスワード
   ▼にしもり さん:

こんにちは

コードはよく読んでいませんが、ヒントになれば。

まず、 CommandButton1_Click() で、ComboBox1.ListIndex を判定します。
これは、リストの(0から数えて)何番目の値が選ばれているかという情報です。
0なら1番目、3なら4番目、選ばれていないときは -1 になっています。

で、これが 3 ということは B5:B31 の中の 4番目ということですから B8 ですね。
つまり、選んだものの行は、ループで比較しなくても ComboBox1.ListIndex + 5
というふうに把握できます。(もちろん -1 なら選ばれていないので留意願います)

で、次に、n行目のG列以降の一番右のフリーのセルの取得ですね。
このセルの列番号は
    x = Cells(ComboBox1.ListIndex + 5, Columns.Count).End(xlToLeft).Column
    If x < 7 Then
      x = 7
    Else
      x = x + 1
    End If
というように取得できます。

1 hits

【68733】取得した値をシートに書きこむには にしもり 11/4/12(火) 18:16 質問
【68734】Re:取得した値をシートに書きこむには UO3 11/4/12(火) 18:39 発言
【68737】Re:取得した値をシートに書きこむには にしもり 11/4/13(水) 12:03 質問
【68738】Re:取得した値をシートに書きこむには にしもり 11/4/13(水) 12:14 発言
【68739】Re:取得した値をシートに書きこむには にしもり 11/4/13(水) 12:30 質問
【68742】Re:取得した値をシートに書きこむには UO3 11/4/13(水) 14:19 質問
【68743】Re:取得した値をシートに書きこむには にしもり 11/4/13(水) 14:51 お礼

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