【やりたい事】
B1セルに、関数の "=MID(A1,1,3) & "" - "" & MID(A1,4,4) & "" - "" & MID(A1,8,4)"
を入力したい
以下コードにて B列に追加 ws2.Columns("B").Insert を実行せずに(コードより省く)
B1へマクロによって、転記すると、書式が標準になって、通常通り動く関数が転記されます
B列を追加した後に、入れると 関数が 文字列として貼付られ、動きません
改善方法、ご存じの方、教えて下さい
A列 B列
1行目 11111111111 =MID(A1,1,3) & " - " & MID(A1,4,4) & " - " & MID(A1,8,4)
【コード。動きます】
Sub 電話番号ハイフンあり()
Dim filePath As String
filePath = "C:\Users\2020\OneDrive\マクロ\契約番号ハイフンありへ.xlsx"
Dim wb2 As Workbook
Set wb2 = Workbooks.Open(filePath)
Set ws2 = wb2.Worksheets("Sheet1")
ws2.Columns("B").Insert
ws2.Range("b1").Formula = "=MID(A1,1,3) & "" - "" & MID(A1,4,4) & "" - "" & MID(A1,8,4)"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA指定行削除 2 2024/05/26 10:02
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) 【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記 2 2024/05/02 14:17
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Excel(エクセル) 【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい 2 2023/10/29 22:52
- Excel(エクセル) 【関数】適切な文字数の数字を取り出したい 9 2024/05/08 21:42
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
エクセルで指定した日付、店舗の数値を自動で反映させる。
Excel(エクセル)
-
はがきについて。
Excel(エクセル)
-
-
4
エクセルで年休を管理する方法について
Excel(エクセル)
-
5
【マクロ】関数をセルに入力するも、スピルしない件
Excel(エクセル)
-
6
エクセルの空欄をつめて、次の列に表示する方法
Excel(エクセル)
-
7
エクセルで上位バイトのセルと下位バイトのセルを1つのセルにして16進数を作る方法
Excel(エクセル)
-
8
【関数】先頭だけにある、半角スペースを、とりのぞく事はできますか?
Excel(エクセル)
-
9
Excelの関数について教えてください
Excel(エクセル)
-
10
エクセルの計算
Excel(エクセル)
-
11
エクセルで日付を数字+アルファベットと比較したい
Excel(エクセル)
-
12
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
13
エクセルの「赤」の印刷がうまくできなくなりました。
Excel(エクセル)
-
14
CELL関数のヘルプ文の意味?
Excel(エクセル)
-
15
エクセル②
Excel(エクセル)
-
16
エクセルの日付を編集する
Excel(エクセル)
-
17
エクセル:一覧表に存在する文字が含まれているセルを抽出したいです
Excel(エクセル)
-
18
エクセル日付 文字列の関数がエラーになるとき
Excel(エクセル)
-
19
Excel 大小比較演算子による「文字」の比較結果
Excel(エクセル)
-
20
エクセルでセルに標準で入力されている和暦を西暦に変換する方法はありますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
[Excel VBA]空白セル以外に連番...
-
【マクロ】セルに関数を入れる...
-
エクセルのマクロでフォントサ...
-
エクセルで『○』の個数を数値で...
-
Excel VBAで日にちを入力して線...
-
エクセルVBA 複数列をコピーす...
-
エクセルで行挿入した際、自動...
-
Excel VBA 行数調整について こ...
-
excelの関数で割り算をしたいの...
-
VBA初心者です。 よろしくお願...
-
商品の単価と個数を入力するだ...
-
エクセル VBA 指定の範囲内をコ...
-
《エクセル2000》A列・B列の和...
-
エクセルの関数について(日付で...
-
マクロでの可視セルのコピー&...
-
令和三年六月二七日
-
エクセルで表示された値だけ行...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで空白以外のセルの値...
-
エクセルの関数について(日付で...
-
エクセル マクロ 貼り付け先が...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで行挿入した際、自動...
-
エクセルで表示された値だけ行...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
特定の桁数を抽出
-
エクセル マクロ 行や列を削除...
-
エクセルのマクロ、AVERAGEIFを...
-
マクロ初心者です、小数点6桁で...
-
Excel 条件に従いセル移動するには
-
VBAで同じブック内の別シー...
おすすめ情報