Excel VBA質問箱 IV

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

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


11528 / 13646 ツリー ←次へ | 前へ→

【15632】最終行の値を取得する方法 じま 04/7/1(木) 14:15 質問[未読]
【15638】Re:最終行の値を取得する方法 IROC 04/7/1(木) 14:33 回答[未読]
【15646】Re:最終行の値を取得する方法 じま 04/7/1(木) 16:01 質問[未読]
【15649】Re:最終行の値を取得する方法 IROC 04/7/1(木) 16:16 回答[未読]
【15653】Re:最終行の値を取得する方法 じま 04/7/1(木) 16:42 お礼[未読]
【15650】Re:最終行の値を取得する方法 Jaka 04/7/1(木) 16:18 回答[未読]

【15632】最終行の値を取得する方法
質問  じま  - 04/7/1(木) 14:15 -

引用なし
パスワード
   ユーザーフォームのラベルに、Excelシートの"A列の最終行"に入力してある値を
表示させるにはどうしたらよいでしょうか?値は4行目〜入力していきます。
以下の記述ではうまくいかないのですが。

Private Sub UserForm_Initialize()
  irows = Worksheets(1).Range("a4").End(xlDown).Row
  Label18.RowSource = "一覧表!a" & CStr(irows)
End Sub

【15638】Re:最終行の値を取得する方法
回答  IROC  - 04/7/1(木) 14:33 -

引用なし
パスワード
   Private Sub UserForm_Initialize()

Label18.Caption = Worksheets("Sheet1").Range("A65536").End(xlup).Text

End Sub

です。

【15646】Re:最終行の値を取得する方法
質問  じま  - 04/7/1(木) 16:01 -

引用なし
パスワード
   ▼IROC さん:
どうもありがとうございます。
4行目が空白の場合、3行目の値が表示されるのですがこれを防ぐにはどうすれば
よいでしょうか?このとき、できれば何も表示させないようにしたいのですが。

【15649】Re:最終行の値を取得する方法
回答  IROC  - 04/7/1(木) 16:16 -

引用なし
パスワード
   Private Sub UserForm_Initialize()
with Worksheets("Sheet1")
  if .Range("A4").Value = "" then
   Label18.Caption = ""
  Else    
   Label18.Caption = .Range("A65536").End(xlup).Text
  End if
end with
End Sub

です。

【15650】Re:最終行の値を取得する方法
回答  Jaka  - 04/7/1(木) 16:18 -

引用なし
パスワード
   使う状態が詳しくわからないので、これで良いのか不安ですが。

Label18.Caption = Worksheets(1).Range("A3").End(xlDown)

【15653】Re:最終行の値を取得する方法
お礼  じま  - 04/7/1(木) 16:42 -

引用なし
パスワード
   ▼IROC さん:
わかりました、ありがとうございます。

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