Excel VBA質問箱 IV

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

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


10155 / 13644 ツリー ←次へ | 前へ→

【23392】半角を全角にするには? ブルー 05/3/21(月) 0:10 発言[未読]
【23393】Re:半角を全角にするには? Hirofumi 05/3/21(月) 0:19 回答[未読]
【23394】Re:半角を全角にするには? ponpon 05/3/21(月) 0:21 回答[未読]
【23396】Re:半角を全角にするには? ブルー 05/3/21(月) 8:26 質問[未読]
【23397】Re:半角を全角にするには? Hirofumi 05/3/21(月) 10:00 回答[未読]
【23400】Re:半角を全角にするには? ブルー 05/3/21(月) 13:43 質問[未読]
【23403】Re:半角を全角にするには? Hirofumi 05/3/21(月) 14:58 回答[未読]
【23404】Re:半角を全角にするには? ブルー 05/3/21(月) 16:42 お礼[未読]

【23392】半角を全角にするには?
発言  ブルー  - 05/3/21(月) 0:10 -

引用なし
パスワード
   大文字・小文字・半角・全角が混じった英数文字を全部全角の大文字にするにはどうしたらいいのでしょうか?
色々調べたのですが、全部を一度にするのがなくて探してます。
お手数かけますがおしえてもらえませんか?

【23393】Re:半角を全角にするには?
回答  Hirofumi  - 05/3/21(月) 0:19 -

引用なし
パスワード
   こんなかな?

Public Sub Sample()

  With ActiveSheet
    .Cells(1, "B").Value _
        = StrConv(.Cells(1, "A").Value, vbUpperCase + vbWide)
  End With
  
End Sub

アクティブシートのA1の値を変換してB1に出力しています

【23394】Re:半角を全角にするには?
回答  ponpon  - 05/3/21(月) 0:21 -

引用なし
パスワード
   ▼ブルー さん:
ponponです。こんばんは。

>大文字・小文字・半角・全角が混じった英数文字を全部全角の大文字にするにはどうしたらいいのでしょうか?

セルA1に文字を入れて実行してみてください。

Sub test()
Range("B1").Value = StrConv(Range("A1").Text, 5)
End Sub

【23396】Re:半角を全角にするには?
質問  ブルー  - 05/3/21(月) 8:26 -

引用なし
パスワード
   Hirofumiさん、ponponさんお返事ありがとうございます。
説明不足だったのですが、今テキストボックス(TextBox1)に入力した内容をCommandButton3を押す事によって英数・文字を全角・大文字に変更したいと思ってます。
教えてもらったを見ながら以下のように変更してみましたがだめでした。

CommandButton3 = StrConv(TextBox1.Value, vbUpperCase + vbWide)


再度アドバイスお願い出来ないでしょうか?

【23397】Re:半角を全角にするには?
回答  Hirofumi  - 05/3/21(月) 10:00 -

引用なし
パスワード
   ▼ブルー さん:
>Hirofumiさん、ponponさんお返事ありがとうございます。
>説明不足だったのですが、今テキストボックス(TextBox1)に入力した内容をCommandButton3を押す事によって英数・文字を全角・大文字に変更したいと思ってます。
>教えてもらったを見ながら以下のように変更してみましたがだめでした。
>
>CommandButton3 = StrConv(TextBox1.Value, vbUpperCase + vbWide)
>
>
>再度アドバイスお願い出来ないでしょうか?

UserFormのTextBox、CommandButtonなら


Private Sub CommandButton3_Click()

  With Me.TextBox1
    .Text = StrConv(.Text, vbUpperCase + vbWide)
  End With

End Sub

ただ、通常は、TextBoxのAfterUpdateイヴェント等を使って

Private Sub TextBox1_AfterUpdate()

  With Me.TextBox1
    .Text = StrConv(.Text, vbUpperCase + vbWide)
  End With

End Sub

【23400】Re:半角を全角にするには?
質問  ブルー  - 05/3/21(月) 13:43 -

引用なし
パスワード
   Hirofumiさんお早い回答ありがとうございます。
おかげで思ったように出来るようになりました。
TextBoxのAfterUpdateイヴェントで通常は組むとありますが、それはどういう事でしょうか?
テキストボックスで組んで組むのが初めてで本を見ながらしてるのですが、わからないので教えていただければ嬉です。
いつもわがまま言ってもうしわけありませんが宜しくお願いします。
>
>ただ、通常は、TextBoxのAfterUpdateイヴェント等を使って
>
>Private Sub TextBox1_AfterUpdate()
>
>  With Me.TextBox1
>    .Text = StrConv(.Text, vbUpperCase + vbWide)
>  End With
>
>End Sub

【23403】Re:半角を全角にするには?
回答  Hirofumi  - 05/3/21(月) 14:58 -

引用なし
パスワード
   >TextBoxのAfterUpdateイヴェントで通常は組むとありますが、それはどういう事でしょうか?
>テキストボックスで組んで組むのが初めてで本を見ながらしてるのですが、わからないので教えていただければ嬉です。
>いつもわがまま言ってもうしわけありませんが宜しくお願いします。
>>
>>ただ、通常は、TextBoxのAfterUpdateイヴェント等を使って
>>
>>Private Sub TextBox1_AfterUpdate()
>>
>>  With Me.TextBox1
>>    .Text = StrConv(.Text, vbUpperCase + vbWide)
>>  End With
>>
>>End Sub

別に、AfterUpdateイヴェントで組まなければいけないと言う事では無いんですよ
ただ、通常UserFormは、入力等で使い、コントロールも1つと言う事は少ないと思います
其の中で、ID、商品等のコードなどKeyと成る物で、一定の形に揃えなければ成らない物が有ります
其の場合、CommandButton等で人が関与して変換する場合、一定の形にし忘れる場合が出てきます
そう成ると後で、探索、抽出等で支障が出ますので、人為的なミスを防ぐ上でTextBoxからフォーカスが移った時に
自動的に変換される様にします
その方が入力者の見た目でも、納得出きると思います

【23404】Re:半角を全角にするには?
お礼  ブルー  - 05/3/21(月) 16:42 -

引用なし
パスワード
   Hirofumiさん、回答ありがとうございました。
Hirofumiさんの言ってる事なんとなくがわかりました。
ボタンを押してではなくては入力中に変更した方がいいって事と解釈したのですが
間違ってるでしょうか?
今回の事でもっと勉強が必要なんだと思いました。
また何かわからない事が出た時には質もすると思いますがその時は宜しくお願いします。

10155 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free