- ベストアンサー
Numberシートにナンバリングして表示したい
EXCEL(VBA)で DATAシートのA2セル以下にターゲットの文字列が入っています。 (ターゲットの文字列は、複数の場合もあります。) この文字列の左からの位置を数えた数値を視覚的に知るために Numberシートにナンバリングして表示したいのですが VBAで処理できますか ? 言葉で解説するのが難しいので 参照画像を参照してください。 -------------- 半角、全角はスペースを含めて同じ1文字とします。 参照画像 https://imgur.com/ktTxZuP
- みんなの回答 (7)
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- エクセルシートを半角・スペースなしに
エクセルのシートに文字列・数字が入力されています。しかし文字や数字の間に空白があったり、全角・半角がバラバラに入力さています。 これを全て、半角でスペースをなくすにはVBAにどのように書けばよいのでしょうか?
- ベストアンサー
- オフィス系ソフト
- VBAでナンバリング
こんにちは。 はじめまして。 VBA初心者です。 教えてください。 VBAであるリストを作成しました。 その表のA列に列を加え、B列にデータがある間、「1、2、3、4、…」とナンバリングしたいと思っています。 列を加えることは出来たのですが、ナンバリングがいまいちうまくいきません。どうか、良い方法をお教えください。 よろしくお願いします。 A B C 1 No. 名前 住所 2 1 青野太郎 東京都 3 2 東野次郎 岡山県 4
- ベストアンサー
- オフィス系ソフト
- エクセル:文字列のバイト数が欲しい
セルB1に、 半角スペース、全角2文字、半角スペース、 と入力しました。 このシートの別のセルに、 =Len(B1)と入力すると4と表示され、 =LenB(B1)と入力すると6と表示されますので、 間違いなく「半角スペース・全角2文字・半角スペース」がB1に入っているはずです。 このシートのコードに、 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$L$1" Then MsgBox LenB(Cells(1, 2).Value) End If End Sub と打ちました。 ここでシート上のセルL1に何か入力するとメッセージボックスが出るのですが、 メッセージボックスに出る値は8です。 何が原因でしょうか。 6が表示されて欲しいのですが(文字列のバイト数が欲しい)、 どのようにコードを書けばよいでしょうか。 実際にB1に入れていた文字は、 1B です。 (半角スペース・全角数字1・全角英字B・半角スペース)
- 締切済み
- オフィス系ソフト
- Excel2010:文字列の表示
Excel2010で、添付画像のような文字列があるとき、V列に以下のような規則で表示することはできるでしょうか? ■規則 英数字は半角 カタカナは全角 スペースは全角 ハイフンは半角 ハイフン以外の記号は全角 それ以外は全角 自分としては、難しいのでたいしたお礼は言えないと思いますがよろしくお願いします。 回答よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Excelでの自動ナンバリング後の印刷について
自分がやりたい事はExcelでブックを開く度にナンバリングが自動生成され、都度印刷の度に部数に応じてその数が自動で加算されていくというようなものです。 過去の質問において下記のような回答を見つけました Private Sub Workbook_Open() Dim cnt As Long Dim シート名, セル, 文字列 As String シート名 = ActiveSheet.Name セル = "B2" '←ナンバーを入れるセル(Range("C2")なら"C2")…(1) cnt = Len(Sheets(シート名).Range(セル)) If cnt = 0 Then Sheets(シート名).Range(セル) = "No." & Format(InputBox("発行No.の初期値をセットしてください。"), "0000") Else 文字列 = Right(Sheets(シート名).Range(セル), cnt - 3) cnt = Val(文字列) cnt = cnt + 1 Sheets(シート名).Range(セル) = "No." & Format(cnt, "0000") '←桁数をセット(5桁なら"00000")…(2) End If End Sub 上記の記述は自分のやりたい事とほぼ一致しているのですが、この場合では複数枚印刷すると同じナンバリングの用紙がでてきてしまいます。 例えば、ブックを開いた際に自動生成された数がNo.0005だとして、10枚印刷した場合にNo.0005から連番で印刷され、次回ブックを開いた際にNo.0015から始まるといったような事です。 別シート等を使うような方法でも構わないので何か良い方法はありますでしょうか? また不特定多数の人が出力した際に上書き保存をして終了しない人がいた場合等は上記の記述でのナンバリングは成立しませんが、そのような環境において通しでのナンバリングを成立させる方法はありますでしょうか?(Excel以外になったとしても) 解りにくいかもしれませんが、ご教授頂ければ幸いです。
- ベストアンサー
- オフィス系ソフト
- (VBA)文字列の最後のスペース及びーを削除
(VBA)文字列の最後のスペース及びーを削除 2021/09/01 11:35 offie_2019,windows10 ちょっと紛らわしい質問なのですが 例えば、E列に文字列が数十行あって それぞれの文字列の最後が下記のよう場合 不必要なスペースと-を削除したいのですが何か方法がありますか ? (視認性を良くするために 半角又は全角のスペースを□で表します。) -は、半角若しくは全角 それぞれ削除した文字列をE列の横のF列に書き出す形式を考えています。 takano□- takano- takano□- takano□-□ takano. takano.□ takano□(vol.2)□- 不必要削除後は、 takano takano takano takano takano. takano. takano takano□(vol.2) 一例の参考画像を下記に添付しました
- ベストアンサー
- Excel(エクセル)
- エクセルシートの文字列加工について
エクセルのシートのA列に"全角ひらがな漢字"の文字列と"半角英数"の文字列を含むセルが縦に並んでいます。約200行。 ■この中から、"全角ひらがな漢字"の文字列を右となりのB列に、"半角英数"の文字列をさらに右となりのC列に、それぞれコピーしたいのですが、関数・マクロなどでいい方法がありましたら教えて下さい。 ■それから、半角英数文字列のC列から、""で囲まれた文字列のみをさらにD列にコピーしたいのです。 文字列の長さが統一されていれば、比較的簡単なのですが、今回は文字列の長さが不規則です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- splitを使ってスペース位置で文字列を区切りたい
splitを使ってスペース位置で文字列を区切りたいのですが、 String[] word = str.split(" ",0); //半角空白 のように書くと、全角スペースは区切りとしてみなされず、 String[] word = str.split(" ",0); //全角空白 のように書くと、半角スペースは区切りとしてみなしてくれません。 全角スペースでも半角スペースでも、スペース位置で文字列を区切りたいのですが、どのように書けばよいのでしょうか?
- ベストアンサー
- Java
- Excel VBAで、特定半角文字のみ全角文字に変換したい。
Excel VBA で、 A列に半角、全角が混在した文字列及び数字が入っています。 ファイル名に出来ない半角文字 \ / : * ? " < > | だけを全角文字にするには、 どのようなコードを書けば良いのか、宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- ワードのワイルドカードを使った置換について
ワードでワイルドカードを使って置換をしたいのですが、うまくいきません。 数字の前の全角スペースを半角スペースに変えたいのです。 置換でワイルドカードを使用するにチェックを入れ、 検索する文字列は「全角スペース[0-9]」 置換後の文字列は「半角スペース\1」 として実行してみたのですが、 〔置換後の文字列〕に指定できない範囲の番号が含まれています というメッセージが出ます。 全角スペース[0-9]はきちんと認識しているようで、検索まではうまくいっているようですが、 置換後の指定の仕方が悪いようなのです。 お教えいただければと思います。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- デート後に過食をしてしまう癖があり、後悔や自己嫌悪がつらい。
- 食べることが好きな恋人とのデートでたくさん食べてしまうが、一人になると食べたくて仕方ない気持ちになる。
- 同じような経験をされた方やアドバイスを求めています。
お礼
No3の修正(気になった点も含めて)ありがとうございます。 修正でエラー無く完動しました。 uRows、uRangeと見たこと無いコードが出てきたので WEB検索して見ましたがヒットしませんでした。 両者の解説したWEB等あれば紹介ください。