Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56721 / 76732

←次へ　｜　前へ→


	【24756】Re:User Formを開放しても削除できません

ganko - 05/5/8(日) 17:03 -


	引用なし

	パスワード

▼hinerikomi さん：

Sub Macro1()

　　With Cells(1, 1).CurrentRegion
　　 .Interior.ColorIndex = xlNone And .ClearContents
　　End With　
　　　　
End Sub

は、如何？ですか・・・

お聞きしたいのですが…ここでのLabel3はどのような
役割をしているのでしょか？
意味が分からないのですが、ご存知の方、教えてください。

>Private Sub UserForm_Initialize()
>　Label3.BackColor = &H8000000F
>End Sub
>
>
>Private Sub CommandButton1_Click()
>　Dim myStep As Single
>　Dim i As　Long,j As Long
>　
>　With Label3
>　
>　mtStep = .Width / 100
>　　.Width　0
>　　.BackColor = &HFF0000
>　　Label1.Caption = "実行中です…"
>　　
>
>　Randomize
>　
>　For i = 1 To 100
>　For j = 1 To 10
>　
>　　With ActiveSheet.Cells(i,j)
>　　　.Interior.ColorIndex = Int(56 * Rnd + 1)
>　　　.Value = .Interior.ColorIndex
>　　End With
>　Next j
>
>　　　.Width = .Width + myStep
>　　　Label4.Caption = i & "%"
>　DoEvents
>　
>　Nexti
>
>　Label1.Caption = "処理が終了しました"
>
>　End With
>
>　End Sub

0 hits

▼

【24744】User Formを開放しても削除できません hinerikomi 05/5/7(土) 6:36