Excel VBA質問スレ Part9

Excel VBA質問スレ Part9 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

600:デフォルトの名無しさん
 09/01/22 18:10:08 
>>599 
Option Explicitは必須だね。 
なまじわかりやすすぎて、同じ意味の別の熟語に無意識に脳内変換しちゃうことがある。

601:デフォルトの名無しさん
 09/01/22 19:03:30 
質問です。宜しくお願いします 
 
セルA1には、「8：00」がはいっているとして、 
 
Option Explicit 
 
Sub test1() 
UserForm1.TextBox1 = Range("a1").Value 
UserForm1.Show 
End Sub 
 
これで、テキストボックスに「0.33333333」じゃなく、 
きちんと時刻を表示させるにはどうすればよいですか。

602:デフォルトの名無しさん
 09/01/22 19:27:06 
右辺をRange("A1").TextとかFormat$(range("A1").Value,"h:mm") など。 
TextはA列のセル幅が狭いと##とかなるけど。

603:質問です
 09/01/22 20:03:19 
 
Sub test() 
 
Cells(1, 1).Activate 
Do Until ActiveCell = "" 
    入力値 = ActiveCell 
        If 入力値 Like "*[C,CX*,O,OX*,O2,O2X*,Fe]" = True Then 
            If 入力値 Like "*[O,OX*]" = True Then 
                If 入力値 Like "*O" = True Then 
                    処理 = 1 
                ElseIf 入力値 Like "*X2" = True Then 
                    処理 = 2 
                End If 
            ElseIf 入力値 Like "*[Fe,Fe*]" = True Then 
                If 入力値 Like "*Fe" = True Then 
                    処理 = 3 
                ElseIf 入力値 Like "*X2" = True Then 
                    処理 = 4 
                End If 
            Else 
                If 入力値 Like "*[O2,C]" = True Then 
                    処理 = 5 
                ElseIf 入力値 Like "*X2" = True Then 
                    処理 = 6 
                End If 
            End If

次ページ