Excel VBA質問箱 IV

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

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


53499 / 76732 ←次へ | 前へ→

【28046】Re:顧客リストをユーザーフォームで
発言  rina  - 05/8/27(土) 10:37 -

引用なし
パスワード
   ▼かみちゃん さん:
すみません。リストのプログラムは

Private Sub 登録_Click()
Dim varRag As Variant
Dim myArray As Integer

varRag = Array(txtNum, txtDay, txtName, txtAdr, txtTel1, txtTel2, txtBirth, txtCar, txtYear, txtD, txtShaken)

'初めて入力される場合は、最初の行を選択します。
  If Range("A13") = Empty Then
    Range("A13").Select
    txtNum = 1
    For myArray = 0 To 10
       With Selection
                 .Offset(, myArray) = varRag(myArray)
       End With
    Next myArray
  Else
 '2回目以降の入力であれば最終行の1行次の行を選択します。
    Range("A65536").End(xlUp).Offset(1).Select
    For myArray = 0 To 10
       With Selection
          txtNum = .Row - 12
                 .Offset(, myArray) = varRag(myArray)
       End With
    Next myArray
  End If
 'テキストボックスをすべて初期化します。
  txtNum = ""
  txtDay = ""
  txtName = ""
  txtAdr = ""
  txtTel1 = ""
  txtTel2 = ""
  txtBirth = ""
  txtCar = ""
  txtYear = ""
  txtD = ""
  txtShaken = ""
  

End Sub

としたのですが、これでできたものをクリックでもダブルクリックでもいいので
(最初からではなく)その都度データをユーザーフォームで表示させたいのです。

0 hits

【28038】顧客リストをユーザーフォームで rina 05/8/27(土) 0:34 質問
【28040】Re:顧客リストをユーザーフォームで かみちゃん 05/8/27(土) 1:35 発言
【28046】Re:顧客リストをユーザーフォームで rina 05/8/27(土) 10:37 発言
【28047】Re:顧客リストをユーザーフォームで かみちゃん 05/8/27(土) 11:06 発言
【28145】Re:顧客リストをユーザーフォームで rina 05/8/29(月) 21:33 お礼
【28172】Re:顧客リストをユーザーフォームで こたつねこ 05/8/30(火) 10:15 発言

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