Excel VBA質問箱 IV

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

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


65017 / 76734 ←次へ | 前へ→

【16294】Re:表示について
質問  I・P  - 04/7/23(金) 15:09 -

引用なし
パスワード
   ありがとうございます。以下がソ−スですが

UserFormのコ−ド
Private Sub CommandButton1_Click()
  Sheets(1).Cells(1, 1) = TextBox1.Value
  Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
  Me.Hide
End Sub

標準モジュ−ルのプロシジャ−
Sub 読み()
  Sheets(2).Select
  UserForm1.Show
  y = Sheets(1).Cells(1, 1)
  Sheets(1).Cells(1, 1).ClearContents
  For l = 15 To Range("A65536").End(xlUp).Row
    If Cells(l - 1, 2) = "" Then
    F = Cells(l, 2).Value
    ElseIf Cells(l, 2).Value = "" Then
    Else
    k = Cells(l, 1)
    NTD(F, k) = Cells(l, y)
    End If
  Next l
End Sub

よろしくお願い致します。
1 hits

【16283】表示について I・P 04/7/23(金) 11:08 質問
【16287】Re:表示について ichinose 04/7/23(金) 12:17 発言
【16290】Re:表示について I・P 04/7/23(金) 13:33 質問
【16291】Re:表示について IROC 04/7/23(金) 13:53 回答
【16292】Re:表示について I・P 04/7/23(金) 14:12 質問
【16293】Re:表示について IROC 04/7/23(金) 14:46 回答
【16294】Re:表示について I・P 04/7/23(金) 15:09 質問
【16303】Re:表示について IROC 04/7/23(金) 16:23 回答

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