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