- ベストアンサー
エクセル２０００マクロ記述について
Ｂ列の２行目から下記のようなデータがあります。（例４件の18桁） AD120000110000000P AD120000110000000P AD120000110000000P AD120000110000000P 頭から７桁目と8桁目の間、12桁目と13桁目の間に半角のスペースを空けたいのですが マクロでの記述はどうすればよいか教えてください。 データの件数はその都度変わります。
- オフィス系ソフト
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんな感じでしょうか。 Sub Macro1() Dim i As Integer Dim buff As String i = 2 While 1 If Range("B" & i).Value = "" Then End End If buff = Range("B" & i).Value Range("B" & i).Value = Left(buff, 7) + " " + Mid(buff, 8, 5) + " " + Right(buff, 6) i = i + 1 Wend End Sub
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17068)
VBAでは下記。 Private Sub Worksheet_Activate() n=20 for i=1 to n a = Worksheets("sheet1").cells(i,1) 'A列のセルデータ Worksheets("sheet1").Cells(i,2) = Mid$(a, 1, 7) & " " & Mid(a, 8, 5) & " " & Mid(a, 13, 7) 'B列にデータをセット next i End Sub ------------ 関数式ならＡ３のセルのデータをＢ３にセットするなら =MID(A3,1,7) & " " & MID(A3,8,5) & " " & MID(A3,13,7) で同じものです。関数式のほうは、Ｂ列で式を複写してください。
関連するQ&A
- Excel２０００マクロ記述について
下記の条件で下記のようなマスターを参照してマクロを作成したいのですが、どのように記述したら良いでしょうか シート名 滞留在庫表 条件 ｃ列の５行目からdataが入っています。data例(AD1200S0110000000P)18桁 dataの頭８桁目がBの場合はL221をV列に表示 dataの頭８桁目が、A又はM又Ｐの場合はL222をV列に表示 dataの頭８桁目がB、Ａ、Ｍ、P以外の場合は、ブランクをV列に表示 シート名 表示再設定マスタ Ａ列 Ｂ列 ５行目****************** ６行目*******B********** L221 ７行目*******A********** L222 ８行目*******M********** L222 ９行目*******P********** L222
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ記述について
Ｂ列～Ｉ列に入力されている最終行まで下記処理を行うマクロの記述を教えてください。 整数のみ小数点以下１桁表示にする。（例： 2→2.0） 小数（例：1.32、2.4）の場合は何もしない。
- 締切済み
- Visual Basic
- 住所編集のマクロを組んでいて、ハイフンをいれたい。
住所編集のマクロを組んでいます。ハイフンをいれたいです。 データ住所にはハイフンが入っておらずかわりに半角スペースが入っています。 本来ハイフンがないであろう場所にも半角スペース入っている場合も有り。 データ例※●○◎は文字です。数字は伏せていません。 ●●●市●●区●●● ３丁目 ８ ９ ●●マンション ○○市 ○○○区○○５丁目１５ ２０ ◎◎◎市 ◎◎◎◎ ６丁目 ４５ ◎◎◎◎マンション スペースをハイフンにする置換をマクロで記録しました。 ●●●市●●区●●●-３丁目-８-９-●●マンション ○○市-○○○区○○５丁目１５-２０ ◎◎◎市-◎◎◎◎-６丁目-４５-◎◎◎◎マンション 当然ですが、文字列と文字列の間や 数字と文字列の間にもハイフンが入ってしまいます。 そこで皆様よりお力添えをお願いしたいのですが、 数字と数字の間のみハイフンをいれることは可能でしょうか？ 住所件数は不定期です。 上記例はA列に3行 1行目は項目なので合計で4行あると過程します。 勝手申し上げますが納期が迫っておりお返事急いでおります。 どなたかお力をお貸しください！ よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルのマクロで文字の置換について
エクセルのマクロを使った文字の置換についてお聞きしたことがありましす。 やりたいイメージは例として添付の画像としてアップしましたが、 ・エクセルシートに英数文字列の表がある（例では2行2列ですが、実際は6行48列ぐらいです） ・その表を各英数文字列の間に半角カンマ","を入れて、メモ帳に貼り付けたい ※実際メモ帳に貼り付ける動作は手動で行うので、クリップボード上で「各英数文字列 の間に半角カンマ","が入っている状態」で構いません。 ・各英数文字列の最初の2文字は必ず"0a"、その後の英数字は3桁または4桁です。 ちなみに、エクセルシートで英数文字列の表をそのままコピーしてメモ帳でペーストすると 各英数文字列の間にスペース（空白）が入ってしまいます。 その後、メモ帳で置換などを使い半角カンマ","を入れてもいいのですが、そこまでをマクロで行いたいと思っております。 上記のことがそもそもエクセルのマクロで出来るかどか分かりませんが、なにか有用な方法がございましたらご教授お願い致します。 ※使用OS：Windows7、エクセルバージョン：2007
- ベストアンサー
- その他MS Office製品
- Excel 2007のマクロ記述について
Excel 2007で、B4セルからＩ最終行までの整数のみを小数点以下１桁にする処理をマクロで実行したいのですが、どのように記述したらよいか教えてください。 最終行とはＩ列にセルの値がある最後の行です。 下記の例のマクロ実行結果は、1→1.0、2→2.0となります。 （例） 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2 2 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1 1 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1 1 1.5 1.5 CIRCLE CIRCLE マクロ実行結果 列 A B C D E F G H I J K 行4 A1 0.9 0.9 0.9 0.9 1.2 1.2 2.0 2.0 CIRCLE CIRCLE 5 A2 1.4 1.4 1.6 1.6 1.0 1.0 1.5 1.5 CIRCLE CIRCLE 6 A3 0.71 0.71 0.71 0.71 1.0 1.0 1.5 1.5 CIRCLE CIRCLE
- 締切済み
- Visual Basic
- excel2000マクロ記述
シート名JISEKIの中のＦ列には２行目から４桁のコードが入っています。 Ｘ列の２行目から数値データが入っています。 条件としてＦ列のコードがA310又はA505で、Ｘ列の数値がマイナスの場合は、 Ｒ列からＷ列の数値データを非表示にしたい。 これをマクロ化したいのですが、記述の仕方を教えてください。
- ベストアンサー
- Visual Basic
- エクセルのソートのマクロ
エクセルでのソートのマクロを教えてください。 範囲選択は手動でその都度変更します。優先列、昇順は変更ありません。 例えば、AからE列までデータがあり、第一優先列をD列、第二優先列をA列として、それぞれ昇順でソートします。 範囲はその都度手動で複数行を全列選択します。 つまり、適宜、複数行を選択してからこのマクロを実行すれば常に先の形式でソートできるようにしたいです。 わかりにくい記述で恐縮ですがよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセル マクロの記述をご教示下さい。
宜しくお願い致します。 ● Aファイルに下記のようなマクロを記述したい。 ・BファイルのB列の６行目から２０００行に入力されている、データを 削除する。 ・出来れば、人為的にBファイルは、立ち上げない状態で削除したい。 ・マクロを実行することによって、自動的に立ち上がるのは結構です。 ・また、削除後、Bファイルは立ち上がっていても結構です。 ご指導のほど宜しく御願い申し上げます。
- ベストアンサー
- Windows XP
- エクセルのマクロ記述について
Ｊ列、Ｋ列に入力されている行まで下記処理を行うマクロの記述を教えてください。 Ｊ列のセルの文字列がにＳＨＡＰＥの場合、その行のＢ～Ｅ列のセルの色を黄色にする。 Ｋ列のセルの文字列がにＳＨＡＰＥの場合、その行のＦ～Ｉ列のセルの色を黄色にする。
- 締切済み
- Visual Basic
お礼
よくわかりました ありがとうございました。