Excel VBA質問箱 IV

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

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


62573 / 76732 ←次へ | 前へ→

【18765】Re:自動集計出来るアンケートの質問です。
回答  ちゃっぴ  - 04/10/10(日) 17:07 -

引用なし
パスワード
   勝手に解釈して

1.
Private Sub CommandButton1_Click()
  Dim i As Long
  Dim strBuf(1, 10) As String
  
  For i = 1 To 10
    strBuf(1, i) = Controls("TextBox" & i).Text
  Next i
  
  ActiveCell.Resize(1, 10).Value = strBuf
End Sub

同様に
2.
Private Sub CommandButton2_Click()
  Dim i As Long
  
  For i = 1 To 10
    Controls("TextBox" & i).Text = ""
  Next i
End Sub

0 hits

【18763】自動集計出来るアンケートの質問です。 T−bird 04/10/10(日) 16:24 質問
【18765】Re:自動集計出来るアンケートの質問です。 ちゃっぴ 04/10/10(日) 17:07 回答
【18769】Re:自動集計出来るアンケートの質問です。 T−bird 04/10/10(日) 19:36 お礼

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