- ベストアンサー
VBA半角スペースを入れる方法は？
- VBAで半角スペースを入れる方法を教えてください。
- 部長山田太郎様のようになってしまうのを部長 山田太郎様としたいです。
- お手数ですが、ご指摘いただければ追記します。よろしくお願いします。
- 6338-tm
- お礼率95% (89/93)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- hana-hana3
- ベストアンサー率31% (4940/15541)
半角スペースも文字列の一つですから、難しく考える事はありませんよ。 ＆を使った結合方法を正しく理解されていれば誰でも解るかと思いますが？ strMOJI = Range("A" & cellGyo).Value & vbCrLf & Range("C" & cellGyo).Value & vbCrLf & _ Range("D" & cellGyo).Value & " " & Range("E" & cellGyo).Value & "様"
お礼
>＆を使った結合方法を正しく理解されていれば誰でも解るかと思いますが？ おっしゃる通りです。 勉強不足です。 すみませんでした。
関連するQ&A
- VBAの記述の中で半角スペースで区切らなければいけない時、区切ってはい
VBAの記述の中で半角スペースで区切らなければいけない時、区切ってはいけない時を教えてください。 以下は参考書のとうりに記述しました。 ------------------------------------- Sub 分割() 氏名 = Range("A2").Value 姓 = Left(氏名, 2) 名 = Mid(氏名, 4, 10) Range("B2").Value = 姓 Range("C2").Value = 名 End Sub ------------------------------------- ・氏名 = Range ・Left(氏名, 2) ・姓 = Left ・名 = Mid ・氏名, 4, 10 半角スペースは無しで記述を入力したのですが 上記の = の前後と 2 と 4 と 10 の前に 勝手に半角スペースが入りました。 試しに Range("C2")の Range と ("C2") の間に半角スペースを入れようと Range ("C2")とすると 強制的に排除され Range("C2") に戻されました。 試しに 氏名 = Range("A2").Value の「.Value」の前に半角スペースを入れて 氏名 = Range("A2") .Value としたら記述が赤字になって エラーメッセージが出ました。 試しに Range("B2").Value = 姓 の Range の部分でRとaの間に半角スペースを入れて R ange と記述したら確定されました。 （強制的に戻らないのでしょうか？ またエラーメッセージが出ないのでしょうか？） １．記述の中で半角スペースを入れなければならない所。 ２．記述の中で半角スペースを入れてはいけない所。 ３．入力してはいけない所に半角スペースを入力した場合エラーと表示される時。 ４．入力してはいけない所に半角スペースを入力した場合エラーと表示してくれない時。 ５．半角スペースが必要な部分に自動で入力してくれない時。 ６．半角スペースが必要な部分に自動で入力される時。 上記4種類の定義を教えていただきたいです。 NO.4とNO.5は実害があります。 NO.3とNO.6は実害はないのですが理屈を知らないので、 NO.1とNO.2を知っていないと駄目ではと思いました。 参考書では見当たりませんでした。 わかりやすいサイトがあったら教えていただけるとありがたいです。 お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBAについて。その２
以前、こちらの掲示板でお世話になった者です。 Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$C$5" Select Case Target.Value Case 1 Range("C6").Value = 24 Range("D5").Value = 600 Range("D6").Value = 0 Range("E5").Value = 400 Range("E6").Value = 0 Case 2 Range("C6").Value = 32 Range("D5").Value = 1000 Range("D6").Value = 0 Range("E5").Value = 500 Range("E6").Value = 0 End Select Case "$D$5" Select Case Range("C5").Value Case 1 Range("D6").Value = (600 - Range("D5").Value) / 25 Case 2 Range("D6").Value = (1000 - Range("D5").Value) / 25 End Select Case "$E$5" Select Case Range("C5").Value Case 1 Range("E6").Value = (400 - Range("E5").Value) / 50 Case 2 Range("E6").Value = (500 - Range("E5").Value) / 50 End Select と、上記のようなマクロがお手伝いしていただいた結果、完成しました。 C５に1を代入した場合 D5 = 600 D6 = 0 E5 = 400 E6 = 0 C５に2を代入した場合 D5 = 1000 D6 = 0 E5 = 500 E6 = 0 C５に1を代入しており、D5の値を500に下げた時 D6 = 4 （D5の値を100下げる毎にD6の値に+4 ) （D5の値を100上げる毎にD6の値に-4 ） C５に1を代入しており、E5の値を300に下げた時 D6 = 4 （E5の値を100下げる毎にE6の値に+4 ) （E5の値を100上げる毎にE6の値に-4 ) ＜以下、Ｃ５に2を代入した時のケースを省略。＞ というような意味合いのマクロになったと思いますが、少々困ったことが発生しました。 （D5の値を100下げる毎にD6の値に+4 ) （D5の値を100上げる毎にD6の値に-4 ） （E5の値を100下げる毎にE6の値に+4 ) （E5の値を100上げる毎にE6の値に-4 ) この部分を （D5の値を100下げる毎にD6の値に+4 ) （D5の値を100上げる毎にD6の値に-8 ） （E5の値を100下げる毎にE6の値に+4 ) （E5の値を100上げる毎にE6の値に-8 ) に変更したいのですが、計算式がわかりません（？ω？） どなたかご指導のほどよろしくお願いします。
- ベストアンサー
- Windows XP
- 関数で文字の抜き出し方教えてください
現在の状況では以下で使っています。 A列に下のセルがあったとして、 山田 太郎 半角スペースで区切って A列に =LEFT(A1,SEARCH(" ",A1,1)-1) で山田を抜き取り C列に =MID(C13,FIND(" ",C13)+1,LEN(C13)) で太郎を抜き取っています A1 B1 C1 山田 太郎 山田 太郎 しかし、 A1 佐藤 のように半角を使っていないものが#VALUEです。 A2 B2 C2 佐藤 ＃VALUE #VALUE となります。 A2 B2 C2 山田 太郎 山田 太郎 佐藤 佐藤 NULL のようにスペースで区切られていないものを表示しつつ スペースで区切られているものは分けて表示させたいのですが ご教授おねがいします。
- ベストアンサー
- オフィス系ソフト
- VBAでの入力
A1～D5に自動的に順番にデータを入力したいです。 A1→B1→C1→D1→A2→B2→C2→D2→A3・・・ といった感じです。 If range("A1").Value = "" Then range("A1").Value=○ ElseIf range("A1").Value <> "" Then range("B2").Value = ○○ ・・・ のようにたくさんIf文を書くしかないのでしょうか。
- 締切済み
- Visual Basic
- VBAでスクロールバーを動かしても値が変わらない
図のようなスクロールバーを動かして、それぞれの値と、A4のセルの色が変わるものを作りたいのです。 プログラムは、 Sub スクロール1_Change() R = Range("C2").Value G = Range("D2").Value B = Range("E2").Value Range("A4").Interior.Color = RGB(R, G, B) End Sub Sub スクロール2_Change() R = Range("C2").Value G = Range("D2").Value B = Range("E2").Value Range("A4").Interior.Color = RGB(R, G, B) End Sub Sub スクロール3_Change() R = Range("C2").Value G = Range("D2").Value B = Range("E2").Value Range("A4").Interior.Color = RGB(R, G, B) End Sub ですが、スクロールバーに関連付けられていないようです。基本ですみませんが、関連付けるにはどうすればいいのでしょうか。
- 締切済み
- その他MS Office製品
- エクセルVBAで数字の転記
セルの数字の転記でTEST1のように繋がっているセル範囲は、その一つしたの値を一編に持ってこれます。 Sub TEST1() Range("C6:E6").Value = Range("C6:E6").Offset(1).Value End Sub ところがTEST2のように接してはいても繋がっていないとC15の一つ下の値がD14にも入ってしまいます。 Sub TEST2() Range("C15,D14").Value = Range("C15,D14").Offset(1).Value End Sub Range("C15,D14")あるいはRange("C15,E14")のようなとなりあっていない場合でも一個したの数値を一編に持ってくるような方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルでアドレス帳を製作しているのですが・・・
エクセルでアドレス帳を作成しているのですが、 A1セル：氏名 B1セル：フリガナ C1セル：姓 D1セル：名 の項目名を入れてA2～100をアドレス帳として登録 【C2：姓】【D2：名】に入力した文字を【A2：氏名】の列に結合反映するようにA2～100に関数を=C2&D2&E2と登録しています。 例えば C2には 山田 D2には太郎 と入れたら A2には 山田太郎 と入力されます これをA2の姓と名の間に半角スペースを自動で入れてC2とD2に入力した文字のフリガナもB2に自動で入力させる方法を探しています A2 B2 C2 D2 山田太郎 ヤマダタロウ 山田 太郎 ↓ A2 B2 C2 D2 山田 太郎 ヤマダタロウ 山田 太郎 解かりずらい説明ですいませんが、アドバイスよろしくお願い致しますm(__)m
- ベストアンサー
- オフィス系ソフト
- ウォッチウインドウで確認すると、「Range("a1").Value」は「十」ボタンができる
Sub test() Dim Strmoji As String Strmoji = "a" MsgBox Range("a1").Value MsgBox Strmoji End Sub Range("a1").ValueとStrmojiをウォッチ式に追加して このコードをF8でデバッグしていくと Range("a1").Valueの方だけ「十」ボタンが付き、 クリックすると広がりたくさんの情報が表示されています。 これはRangeだからですか？Cellも試してみたけど同じでした。 しかしなぜ、Strmojiは「十」ボタンがでないのでしょうか？ 「十」ボタンがでるのとでないのでは何が違うのですか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBAで
変動する数値が、セル A1に入る状況で、 該当シートに Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 1 Then Range("C62").Value = "○" ElseIf Range("A1").Value = 2 Then Range("C62:C63").Value = "○" ElseIf Range("A1").Value = 3 Then Range("C62:C64").Value = "○" ElseIf Range("A1").Value = 4 Then Range("C62:C65").Value = "○" ElseIf Range("A1").Value = 5 Then Range("C62:C66").Value = "○" ElseIf Range("A1").Value = 6 Then Range("C62:C67").Value = "○" ElseIf Range("A1").Value = 7 Then Range("C62:C68").Value = "○" ElseIf Range("A1").Value = 8 Then Range("C62:C69").Value = "○" ElseIf Range("A1").Value = 9 Then Range("C62:C70").Value = "○" ElseIf Range("A1").Value = 10 Then Range("C62:C71").Value = "○" ElseIf Range("A1").Value = 11 Then Range("C62:C72").Value = "○" ElseIf Range("A1").Value = 12 Then Range("C62:C73").Value = "○" ElseIf Range("A1").Value = 13 Then Range("C62:C74").Value = "○" ElseIf Range("A1").Value = 14 Then Range("C62:C75").Value = "○" ElseIf Range("A1").Value = 15 Then Range("C62:C76").Value = "○" End If End Sub と言ったマクロを記述しましたが、 動作がどうにも重くて困っています。 一度、プレビューをした後は特に遅くなります。 何か良い解決方法はありますでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルのＶＢＡで悩んでいます。
いつもありがとうございます。 エクセルのＶＢＡで悩んでいます。 セルの範囲指定をＶＢＡで行いたいのです。 ただし、引数に数値変数を使用する為、Cellsプロパティを使います。 すると、離れている範囲の範囲指定が出来ないのです。 例えば、Rangeプロパティだと、 Range("A5:E5,A9:E32").Select こうなるところを、 A9:E32 を変数に置き換えたくて、 Range("A5:E5", Cells(g, 1), Cells(h, 5)).Select と、するとエラーが出ます。 VBAの前文は次の通りです。 Private Sub CommandButton1_Click() a = Me.TextBox1.Value b = Me.TextBox2.Value Set c = Range("a:a").Find(what:=a, LookIn:=xlValues, lookat:=xlWhole) Set d = Range("a:a").Find(what:=b, LookIn:=xlValues, lookat:=xlWhole) 'MsgBox c + d e = c.Address 'MsgBox e f = d.Address 'MsgBox f g = Range(e).Row MsgBox g h = Range(f).Row MsgBox h Range(Cells(g, 1), Cells(h, 5)).Select End sub よろしくお願い致します。
- 締切済み
- Windows XP
お礼
回答頂いた通りで出来ました！ 教えて頂いて初めて気が付きました。 まだまだ頭がかたいです．．． ありがとうございました！