Excel VBA質問箱 IV

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

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


43951 / 76732 ←次へ | 前へ→

【37807】Re:コンボボックスについて
発言  kobasan  - 06/5/18(木) 23:49 -

引用なし
パスワード
   T さん 今晩は。

>4行ずつ、尺取のようなことをイメージしていました。
>10行目から4行、次は15行目から4行・・・繰り返し・・・を入力していくような
>作業をしているものですから・・・
>もし、時間が許せましたら、このコードも書いていただけませんでしょか。

A列に転記するのなら、こんなコードになります。

Private Sub CommandButton1_Click()
Dim LastRow As Long, i As Long
  With Sheet1
    LastRow = .Cells(65536, 1).End(xlUp).Row
    For i = 1 To 4
      If LastRow < 10 Then LastRow = 9
      .Cells(LastRow + i, 1) = Me("ComboBox" & i).Value
      '.Cells(LastRow + i, 1) = Me.Controls("ComboBox" & i).Value
    Next
  End With
End Sub

6 hits

【37781】コンボボックスについて ゼロ 06/5/18(木) 17:34 質問
【37783】Re:コンボボックスについて kobasan 06/5/18(木) 17:44 回答
【37785】Re:コンボボックスについて ゼロ 06/5/18(木) 18:01 お礼
【37786】Re:コンボボックスについて kobasan 06/5/18(木) 18:12 発言
【37788】Re:コンボボックスについて ゼロ 06/5/18(木) 18:29 お礼
【37790】Re:コンボボックスについて T 06/5/18(木) 20:14 発言
【37793】Re:コンボボックスについて kobasan 06/5/18(木) 20:42 発言
【37797】Re:コンボボックスについて T 06/5/18(木) 21:07 質問
【37799】Re:コンボボックスについて kobasan 06/5/18(木) 21:24 発言
【37804】Re:コンボボックスについて T 06/5/18(木) 22:25 お礼
【37807】Re:コンボボックスについて kobasan 06/5/18(木) 23:49 発言
【37809】Re:コンボボックスについて T 06/5/19(金) 6:27 お礼
【37836】Re:コンボボックスについて kobasan 06/5/19(金) 22:00 発言
【37845】Re:コンボボックスについて T 06/5/20(土) 18:28 お礼

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