【至急】回答頂きたいです Excel VBA 時間の表示形式について質問です。 少し複雑なのですが、詳しい方是非アドバイスをお願い致します。 実行したい内容は、 ComboBox1 の値がsheet3のK列にある場合、 同じ行に記載された時間(書式[h]:mm)をそれぞれのTextBoxに表示する。 下記のマクロを実行した際に、 TextBox3の時間だけ少しおかしいのです… O列1行目 セルの値‘’12:00”の時だけ TextBox3の表示する時間が“0:05”になります。 他の時間の場合は欲しい値が表示されます。 TextBoxではなくセルではないか… セルの書式を変更しても変わりありませんでした。 試しに同じセルに‘’13:00”と入力して 再度実行した結果、きちんと表示されました。 その他の数値でも同じく欲しい値が表示されます。 ‘’12:00”の時だけ何故か…です。 前後のコードが関係あるか分からないので、記載しておきます… Private Sub ComboBox1_Change() Dim cb1 As Range Set cb1 = Sheet3.Range("K:K"). _ Find(What:= ComboBox1.Text, LookAt:=xlWhole) If ComboBox1 = cb1 Then TextBoxA = cb1.Offset(0, 1) TextBox1 = cb1.Offset(0, 2) TextBox1 = Format(TextBox1, "h:mm") TextBox2 = cb1.Offset(0, 3) TextBox2 = Format(TextBox2, "h:mm") TextBox3 = cb1.Offset(0, 4) TextBox3 = Format(TextBox3, "h:mm") TextBox4 = cb1.Offset(0, 5) TextBox4 = Format(TextBox4, "h:mm") End If End Sub VBAは始めたばかりで、 ネットで調べながら作成していますので、 直した方が良い点や別のコードの方が良いなど、 その他のアドバイスがありましたら教えて頂けないでしょうか、、、 長くなりましたが、知恵をお貸しいただけると幸いです。
Excel