- ベストアンサー
EXCEL VBA----文字列の一部を除いて取得したい
セルの文字列の左の１文字を取得する場合は Left(string,1)でいいと思うのですが 左の１文字を取り除いた残りの文字列を取得する場合は どうすればよいのでしょうか？ 文字列は複数あり、文字列の文字数は一定ではありません。（最大半角15バイト） ↓↓↓↓↓ このようにしたいのです。 ------------------------ abcde → bcde keaioph → eaioph uyt → yt dwpkmbvsz → wpkmbvsz ------------------------ よろしくお願いします。
- fk_sap
- お礼率88% (80/90)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 単語の末尾まで取るなら、単に、以下のようにするだけでよいです。 MsgBox Mid$(strWord,2)
その他の回答 (2)
- hana-hana3
- ベストアンサー率31% (4940/15541)
Right(Str,Len(Str)-1) Mid(Str,2,Len(Str)-1) Len(Str) で文字数を取得出来ます。
お礼
hana-hana3さん！ご回答ありがとうございました。 これは、文字数を取得する場合なのですかね…？！ これから試させて頂きたいと思います。 早速ありがとうございました！！
- merlionXX
- ベストアンサー率48% (1930/4007)
Sub test() string1 = Range("A1") MsgBox Mid(string1, 2, Len(string1) - 1) End Sub てな感じかな。
お礼
merlionXXさん！素早く的確なご回答、ありがとうございました！ 教えて頂くと 「なるほど～！」 と思えるんですけどね…。 まだまだ勉強中で、大変役に立ち、且つ勉強になりました。 本当にありがとうございました！！
関連するQ&A
- Javascriptで文字列中の最後の"のみを消去するには？
Javascriptで"が最終文字に含まれた文字列から、それを取り除いた文字列を得る方法がどうしても分からないので、どうか教えてください。 例)「abcde"」→「abcde」 もしよろしければ「a"bcde"」→「a"bcde」といった「"」が途中に出てくるやり方もお願いします。
- ベストアンサー
- JavaScript
- EXCEL VBA:文字列のコピー
1. intputbox で入力したパスにある全ての txtファイル名を sheet1 C列に表示。 （現在 6ファイルでテスト。予定作業で100ファイル程度） 2. 配列を使って C列のファイル名のファイルを順番に読み込み sheet2 A列に行単位で読み込み。 →今ココ 3. sheet2 A列に表示されたファイルに hostname_abcde という行があり、abcde 部分だけを sheet1 A列にコピー。 （ _ は半角スペースに読み替えてください。hostname_を検索すればいいのですが、その後に 続く abcde がファイルによって文字数が異なりコピーする方法が分かりません） 4. 「3.」のコピー後に sheet2全セルをクリアして 動的配列の next文へ進み、要素2 のテキスト ファイルを sheet2 A列に読み込みまた、 hostname_abcde の abcde を sheet1 A列の次のセルに コピー。要素数分繰り返します。 実際に記述した内容は職場のPCでないと分からないので詳しく書けませんが、上記 3. と 4. の 方法をご教示頂きたくお願い致します。
- ベストアンサー
- その他MS Office製品
- 【VBA】 文字列の中から指定の文字列を取り出す
VBAで文字列から指定の文字のn番目からn+1番目までの文字列を取り出すことは可能でしょうか？ A1セルに下記の文字列があった場合、「1番目の半角スペースから2番目の半角スペースまでの文字列」を取り出したいのです。 5 53 00 8R この場合、53を取り出したいというわけです。 また、可能でしたら「最後の半角スペースから文字列の最後まで」を取り出す方法も教えていただけるとありがたいです。 この場合は8Rとなります。 InStr関数を使えばできるかもと思ったのですが、できそうなものが思い浮かびません。 どなたか教えていただけませんでしょうか。 よろしくお願いいたしますm(_ _)m
- ベストアンサー
- その他MS Office製品
- javascriptでtextareaの文字列を取得したいです。
javascriptでtextareaの文字列を取得したいです。 textareaで入力された文字列から半角括弧でくくられた文字列を、半角括弧付きで取得したいです。 例 あいうえお かき(くけ)こ さしすせそ この場合、(くけ)が取得したい文字列です。 正規表現を使えば取得できそうなのですが、 詳しく分からないので教えてください。 よろしくお願いいたします。
- ベストアンサー
- JavaScript
- 目的の文字列を取得するには？
×××× 2011年10月6日 ×××××× というような文字列から日付の部分を取り出そうとしています。 if (mb_ereg("([0-9]{4})年([0-9]{2,})月([0-9]{2,})日",$string,$result)){ echo $result; } という方法で取得しようとしているのですが、失敗します。 半角数字と全角の漢字が混在しているような文字列から、目的の部分を取得する にはどうすればいいでしょうか？
- ベストアンサー
- PHP
- 文字列の取得について
Accessのモジュールを使ってある文字列から指定した文字数の文字列を取得しようとしています。 A："あああああ" & vbcrlf B："いいいいい" & vbcrlf C："うううううう" & vbcrlf D："えええええ" & vbcrlf A～Dまでフィールドがあり、vbcrlfは改行です。 この文字列に対して以下の処理を実行します。 (1)変数mojiにA & B & C & Dを代入 (2)mojiを全角に変換 (3)Left(moji,20)で左から20文字取得します。 (4)mojiをテキストボックスに登録します。 (5)入力チェック処理 ・フィールドサイズが20文字以内か？ ・全角で登録されているか？ →登録後のイメージ ---------------- あああああ いいいいい ううううう ---------------- テキストボックスには全角でしっかり登録されているようにみえるのですが、 どうしても全角で登録してくださいというメッセージが表示されてしまいます。 うううううの次の改行を削除すると、メッセージはでなくなります。 この改行が半角になっているのでしょうか？ アドバイスよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- EXCELで、文字列を任意の文字数毎に分割するには
≪やりたい内容と条件≫ ◆EXCELで、文字列を任意の文字数毎に分割したいです。 ◆文字列は、全角・半角・記号を含みます。 ◆1つのセルが半角80桁という制限があり、その上限を超えると、右の次のセルに流し込まれるようにしたいです。（A1は元の文字列1500桁くらい、以降B1,C1,D1,E1・・・という具合に流し込み） ≪試した内容≫ MIDB関数を見つけ挑戦しましたが、1つ目のセルはうまくいきますが、その後が出来ません。例えば、文字列が「・・・・・・abcあいうえお」となっていた場合、B1は「・・・・・・abcあいう」、C1は「 お」(「お」の前は、半角スペース）となります。 何かよい方法はないでしょうか。 一度に出来ないようであれば、A1-B1で残りの文字列が表示できれば、それ以降はまた関数を入れて一つ一つやっていきたいと思っています。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡ 文字列に関して
現在 Ａ２２のセルに入力された文字列をボタンを押せば ばらばらにしてＡ２２のセルから順番に入れるマクロを作りました （例）Ａ２２のセルに ”こんにちわ”の文字列が入っている場合 ボタン押下 ↓ Ａ２２のセル⇒こ Ｂ２２のセル⇒ん Ｃ２２のセル⇒に Ｄ２２のセル⇒ち Ｅ２２のセル⇒わ になる。 不思議なことに数字を16文字以上いれてボタンを押し文字を分離すると入力していない文字、数字が入ってしまいます。 数字だけこういう現象が発生してしまいます。 例えば "1111111111111111"と入力して文字を分離した場合 1.11111111111111E+15と個々のセルに格納されます。 原因がわかる方、教えて頂けないでしょうか？ 以下がコードです。宜しくお願い致します。 Private Sub CommandButton1_Click() Dim one As String Dim myString As String myString = Cells(22, 1) numString = Len(Cells(22, 1)) If Len(myString) <= 50 Then For i = 1 To Len(Range("A22").Value) one = String(1, myString) Cells(22, i) = one myString = Replace(myString, one, "", 1, 1, vbTextCompare) Next i End If End Sub
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA 文字列
A列のセルに、文字列が以下の様に並べられています。 【あああああ】いいいいいいううううううえええおおおお 上記のような場合に、”あああああ”と【】の文字だけを取り出して、B列に表示させることはマクロで可能でしょうか？但し、【】のなかの文字数はセルによりバラバラです。 ネットでかなり検索したのですが、自分では解決できませんでした。 どうか、よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
お礼
おぉぉぉーWendy02さん！！ いつもありがとうございます！ No.1の方に教えて頂いた方法でやりかけていましたが Wendy02さんに教えて頂いた方法の方が、簡単明瞭と言う感じですね！ 「$」を付けるとできるんですねー。 とても勉強になりました。 今回も助けて頂いてありがとうございました！