- 締切済み
VBA でlabelのbackcolorを50mm秒単位で変更したいの
VBA でlabelのbackcolorを50mm秒単位で変更したいのですが VBA初心者宜しくお願いします。
- aopannda
- お礼率100% (1/1)
- Windows XP
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- chochobizo
- ベストアンサー率42% (30/70)
50mm秒をいかに計測するかということでしょうか? こちらにサンプルがありました。 http://okwave.jp/qa/q5299337.html
関連するQ&A
- Userform Label Backcolor
Userform Label Backcolorの色イメージが意図したものになりません。 どうすればいいか教えて下さい。 UserForm1.Label1.BackColor = RGB(204, 204, 102) UserForm1.Label2.BackColor = RGB(255, 204, 204) を実行したときのUserForm1のLabel1とLabel2の色イメージが Range("A1").Interior.Color = RGB(204,204, 102) Range("A2").Interior.Color = RGB(255, 204, 204) を実行したときのセルA1,A2の色イメージとが随分乖離しています。
- ベストアンサー
- Visual Basic
- 1/10秒単位で経過時間を測りたい
Excell VBA で 1/10 秒単位で経過時間を表示する方法を教えてください。 現在は次の書式を使っているので、1秒単位でしか表示されません。 MsgBox "所要時間 : " & Format(Now - StartTime, "hh:mm:ss") StartTime は計測開始時刻です。
- ベストアンサー
- オフィス系ソフト
- Illustrator10でmm単位からピクセル単位に変更したい
Illustrator10で四角形を書くときに長方形ツールをダブルクリックしてオプションに数値を入力しますが、その単位をmmからピクセルに変更したいのです。 なおアートボード設定はmm単位のままにしておきたいです。 よろしくお願いいたします!
- ベストアンサー
- グラフィックソフト
- 1秒という単位はどこから出来たのか?
24時間とか60分とか60秒とか時間の単位はいろいろありますが、そもそも1秒という単位はどこから生まれてきたのか?知っている方がいらっしゃいましたら教えてください。
- ベストアンサー
- 自然環境・エネルギー
- ListBoxのBackColor変更
EXCEL2007のVBAにて質問です。 ユーザーフォームにリストボックスを配置して、選んだ物によって リストボックスの背景色を変更しようとしているのですが、うまくいきません。 例えばlistbox1を以下の様にセットし、 Private Sub UserForm_Initialize() UserForm1.ListBox1.AddItem ("ピンク") UserForm1.ListBox1.AddItem ("白") End Sub 下記の通り選んだ項目で背景色を変えたいのですが、 Private Sub ListBox1_Click() '選んだ項目で色変え If UserForm1.ListBox1.ListIndex = 0 Then UserForm1.ListBox1.BackColor = RGB(255, 128, 128) 'ピンクなら背景をピンクに Else UserForm1.ListBox1.BackColor = RGB(255, 255, 255) '白なら背景を白に End If End Sub クリックして項目を選択しても背景の色が変わりません。 何か見落としている事があるでしょうか? 又はやり方が悪いのでしょうか? お教え頂けると助かります。 以上、宜しくお願い申し上げます。
- ベストアンサー
- その他MS Office製品
- LabelとFrameでプログレスバー VBA
お世話になっております。 Excel2003を使用しております。 LabelとFrameを使い、プログレスバー表示したいと思っております。 ユーザーフォーム上に、 Label と Frameを置き、 Frameの中にLabelを置きます。 (ここは上手くできているか不安です) UserFormInitializeに With Me.Label1 .Top = 1 .Left = 1 .Width = 1 .BackColor = vbBlue BarWidth = Me.Frame1.Width - 6 End With そして、ためしにコマンドボタンを設置して、 Dim i, 最大値 As Long 最大値 = 100000 BarWidth = Me.Frame1.Width - 6 Do If i = 0 Then Me.Label1.Width = BarWidth * 1 / 最大値 Else Me.Label1.Width = BarWidth * i / 最大値 End If i = i + 1 Loop Until i = 最大値 上記のように記入してみました。 一瞬で表示されてしまいますし、 一度処理が終わっても、青いバーが表示されたままで どうすればいいのか良く分かりません。 最後に Me.Label1.Width = 0 と書けばいいのは分かりましたが… どうしたら、バーの伸び具合をゆっくり見られますか? 回答よろしくお願い致します。
- ベストアンサー
- Excel(エクセル)
- Labelのプロパティが変更できない。
Labelのプロパティを変更しようとすると、「プロパティの値が無効です」と表示されて変更できません。 またサイズも変更できません。 どうすればいいでしょうか?
- ベストアンサー
- Visual Basic
- エクセルで「秒単位」で表示されている数値を「hh:mm:ss」と表示し
エクセルで「秒単位」で表示されている数値を「hh:mm:ss」と表示したいです。 例えば「70」の場合は「70秒=1分10秒」なので「00:01:10」。 セルに「70」と入っていて、 他の任意のセルに「00:01:10」と表示させたい場合、 その任意のセルにどのような数式を入力すれば良いでしょうか。 すみませんが教えて下さい。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 天文学で使う秒の単位?
太陽の直視径 1891.4秒 金星57.8秒 と書いて有るのを見ましたがこの秒に付いて簡単に教えて下さい。長さの単位なのか?宜しくお願いします。
- ベストアンサー
- 天文学・宇宙科学
お礼
回答有難う御座いました。 Private Declare Sub Sleep Lib "KERNEL32.dll" _ (ByVal dwMilliseconds As Long) を使ってやってみましたが、Escキーを押しても旨くいきません キーボードからでなくソフトからなんとか脱出出来ないものでしょうか? ほかのAPIでも、ためしてみます。