エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14741 for VBA�� (0.003 sec.)

[[20090129150308]]: #score: 3407; @digest: 26ce89829f78311107ad2fec99cc7867; @id: 41840; @mdate: 2009-02-02T00:51:40Z; @size: 2996; @type: text/plain; #keywords: 」, (6630), 不規 (3065), さ, (2818), 角ス (2180), 度変 (2009), 直後 (1829), 全角 (1473), marbin (1457), replace (1448), 変換 (1398), にvb (1389), スペ (1186), 「か (1169), で, (1124), ん, (984), が, (877), 則に (844), 「あ (838), 定文 (807), と不 (733), 空欄 (726), てa1 (699), split (675), substitute (623), 規則 (622), function (620), 文字 (613), ペー (604), て, (602), ース (580), かき (576), か」 (492); 『特定文字の変換』（みほじょう）
すみません,教えてください。 A1セルに「あ,か」,A2セルに「さ,あ」,A3セルに「か,た」と不規則に文字が入っているとします。それで,A1,A2,A3セルを検索して「あ」を「あいう」,「か」を「かきく」と変換して A1セルに「あいう,かきく」,A2セルに「さ,あいう」,A3セルに「かきく,た」と表示されるようにVBAでしたいのですが,できますでしょうか。 ---- VBAではないですが・・・。 =SUBSTITUTE(SUBSTITUTE(B1,"あ","あいう"),"か","かきく") ではだめですか? (MARBIN) ---- VBAでの場合でも考え方は同じです。 RePlace を使います。 VBAの場合は入れ子でもできるとおもいますが、一度変換した値を再度変換、でもできます。 (MARBIN) ---- Replace 分かりました。検索で調べて,以外と簡単でした。ありがとうございました。ここでまた質問ですが。 A1セルに「あAい,うえA」,A2セルに「AおA,うAえ」と不規則に文字が入っているとします。ここで,各単語の最後の文字がAのときだけ,AをABCに変換して A1セルに「あAい,うえABC」,A2セルに「AおABC,うAえ」と変換されるようにVBAでしたいのですが,こんなことできますでしょうか。（みほじょう） ---- Right(文字列,1) で一番右の文字列を取得できます。これで条件分岐してはいかがでしょう? (MARBIN) ---- > と変換されるようにVBAでしたいのですが,こんなことできますでしょうか。そのような仕組みを作ればできますよb Split、Joinなども使うとやりやすいかも。 (ROUGE) '---- Sub Sample() Dim rr As Range, x, i As Long For Each rr In Range("A1:A3") x = Split(rr.Text, ",") For i = 0 To Ubound(x) Select Case Right(x(i), 1) Case "あ": x(i) = x(i) & "いう" Case "か": x(i) = x(i) & "きく" Case "A": x(i) = x(i) & "BC" End Select Next rr.Value = Join(x, ",") Next End Sub ---- Like演算子などというのもありました。 (MARBIN) ---- 分かりました。どうもありがとうございました。すみません,また別の質問ですが。 A1セルに「あいう AAえおか」,A2セルに「かきくAAけこさし」と不規則に文字が入っているとします。ただし,AAという文字が間に含まれています。また文字と文字の間の空欄は,全角スペースです。ここで,AAより前の全角スペースは全て削除して,空欄を詰める。 AAの直後には,必ず全角スペースを1つ作る。という操作をして A1セルに「あいうAA えおか」,A2セルに「かきくAA けこさし」というふうに変換されるようにVBAでしたいのですが,できますでしょうか。いつも,教えてもらうばかりですみませんが,よろしくお願いします。（みほじょう） ---- >ここで,AAより前の全角スペースは全て削除して,空欄を詰める。 >AAの直後には,必ず全角スペースを1つ作る。いずれも >RePlace でできるかとおもいます。 (MARBIN) ---- このようなFunction Procedureを使用されてはどうでしょうか。 Private Function Miho(txt As String, dl As String) As String Dim x If InStr(1, txt, dl) > 0 Then x = Split(txt, dl) x(0) = Replace(Replace(x(0), " ", ""), " ", "") Miho = Join(x, dl & " ") Else Miho = txt End If End Function (ROGUE) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200901/20090129150308.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ