Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11527 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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シートの"Ａ列の最終行"に入力してある値を
表示させるにはどうしたらよいでしょうか？値は４行目〜入力していきます。
以下の記述ではうまくいかないのですが。

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 さん：
どうもありがとうございます。
４行目が空白の場合、３行目の値が表示されるのですがこれを防ぐにはどうすれば
よいでしょうか？このとき、できれば何も表示させないようにしたいのですが。
【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 さん：
わかりました、ありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11527 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free