Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7767 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【37008】ラベルの書式設定について 初心者マーク 06/4/19(水) 18:27 質問[未読]
【37009】Re:ラベルの書式設定について inoue 06/4/19(水) 18:35 発言[未読]
【37010】Re:ラベルの書式設定について 初心者マーク 06/4/19(水) 18:49 発言[未読]
【37012】Re:ラベルの書式設定について Kein 06/4/19(水) 19:08 発言[未読]
【37013】Re:ラベルの書式設定について 初心者マーク 06/4/19(水) 19:14 発言[未読]
【37014】Re:ラベルの書式設定について Kein 06/4/19(水) 19:47 回答[未読]
【37016】できました！ 初心者マーク 06/4/19(水) 20:02 お礼[未読]
【37008】ラベルの書式設定について
質問  初心者マーク  - 06/4/19(水) 18:27 -
引用なし
パスワード
   現在、VBAを勉強中ですが、
ユーザーフォームのラベルで書式設定しようと思っているんですが
上手くできません・・・
ラベルには、セルを読み込んで・・・まではいくんですが
書式設定が分かりません。
ご教授願います。。

Private Sub userform_initialize()

For i = 1 To 16
Controls("La" & i) = Sheets("data").Range("b" & CStr(i + 19))
La(i).Caption = Format(La(i), "#,##0")
Next

End Sub
【37009】Re:ラベルの書式設定について
発言  inoue E-MAILWEB  - 06/4/19(水) 18:35 -
引用なし
パスワード
   >ラベルには、セルを読み込んで・・・まではいくんですが
>書式設定が分かりません。
ラベルにはセルのような書式設定機能はありません。

単なる文字列を表示するだけなので、
Captionをセットする時に編集(Format関数等)を行なって下さい。
【37010】Re:ラベルの書式設定について
発言  初心者マーク  - 06/4/19(水) 18:49 -
引用なし
パスワード
   inoueさん

早速のレスありがとうございます。

>ラベルにはセルのような書式設定機能はありません。

これは知りませんでした。。ありがとうございます。

>単なる文字列を表示するだけなので、
>Captionをセットする時に編集(Format関数等)を行なって下さい。

VBAをかじってまだ3日くらいで
format関数については、fortranでやった経験があるので
何となく分かるんですが
具体的には、どういうやり方をすればいいんでしょうか？

目標としては、1235を1,235というようにカンマをつけたいんですが・・・
【37012】Re:ラベルの書式設定について
発言  Kein  - 06/4/19(水) 19:08 -
引用なし
パスワード
   Label1.Caption = Format(123456789, "###,###,###")

てな感じです。
【37013】Re:ラベルの書式設定について
発言  初心者マーク  - 06/4/19(水) 19:14 -
引用なし
パスワード
   Keinさん、ありがとうございます。

> Label1.Caption = Format(123456789, "###,###,###")

これだとついていけそうですが、
これを質問欄に書いたようにループさせたいんです･･･

色々とやってみてはいますが
今のところうまくいきません･･･
【37014】Re:ラベルの書式設定について
回答  Kein  - 06/4/19(水) 19:47 -
引用なし
パスワード
   あぁ・・そーいうことね。

Private Sub UserForm_Initialize()
　 Dim i As Long, Num As Long

　 For i = 1 To 16
　　　Num = Sheets("data").Cells(i + 19, 2).Value
　　　Me.Controls("Label" & i).Caption = Format(Num, "#,##0")
　 Next i
End Sub

で、どうかな ?
【37016】できました！
お礼  初心者マーク  - 06/4/19(水) 20:02 -
引用なし
パスワード
   Keinさん、できました！！
ありがとうございます！

ラベルやテキストボックスでは
一端、変数の中に格納する必要があるんですね。。
勉強になりました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7767 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free