![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセル関数 → VBAへの変換
現在、エクセル関数で記述していた以下の命令をすべてVBAに置き換える必要があります。
理由は、VBAで初期化ボタンをつくってそのボタンを押したとき、対象セルにデフォルトでエクセル関数の
式を入れたいからです。
なので、エクセル関数を以下のようにVBAにいれていました
.Cells(7, 51).Formula = "C6&E6"
しかし、これを以下のようにすると、エラーになってしまいました。
.Cells(7, 51).Formula = "C6&" "&E6" '氏名の間に半角スペースを入れたいため
同様に、以下のものがすべてエラーになります。
.Cells(8, 51).Formula = "L9&M9&"年"&N9&"月"&O9&"日""
.Cells(9, 51).Formula = "IF(OR(ISNUMBER(SEARCH("090-",C9)),ISNUMBER(SEARCH("070-",C9)),ISNUMBER(SEARCH("080-",C9))),"",C9)"
どうすればよろしいでしょうか?
No.1ベストアンサー
- 回答日時:
> .Cells(7, 51).Formula = "C6&E6"
.Cell(7, 51).Formula = "=C6&E6"
> .Cells(7, 51).Formula = "C6&" "&E6"
.Cells(7, 51).Formula = "=C6&"" ""&E6"
> .Cells(8, 51).Formula = "L9&M9&"年"&N9&"月"&O9&"日""
.Cells(8, 51).Formula = "=L9&M9&""年""&N9&""月""&O9&""日"""
> .Cells(9, 51).Formula = "IF(OR(ISNUMBER(SEARCH("090-",C9)),ISNUMBER(SEARCH("070-",C9)),ISNUMBER(SEARCH("080-",C9))),"",C9)"
.Cells(9, 51).Formula = "=IF(OR(ISNUMBER(SEARCH(""090-"",C9)),ISNUMBER(SEARCH(""070-"",C9)),ISNUMBER(SEARCH(""080-"",C9))),"""",C9)"
ポイントとして""で囲われた文字列中で「"」を使用したい場合、「'」に置き換えるか、"あ""い""う" など""を二つ重ねるようにします。
あとFormulaを使用する場合、先頭に=を入れてあげないと文字列として処理されますのでお気をつけて。
No.3
- 回答日時:
最後の数式だけですがこちらの方が簡単では?
.Cells(9, 51).Formula = "=IF(SUM(COUNTIF(C9,{""070-*"",""080-*"",""090-*""})),C9,"""")"
No.2
- 回答日時:
1.最初の=がありません。
2.式の途中の”は"" に直さなくてはなりません。
With ActiveSheet
.Cells(7, 51).Formula = "=C6&"" ""&E6"
.Cells(8, 51).Formula = "=L9&M9&""年""&N9&""月""&O9&""日"""
.Cells(9, 51).Formula = "=IF(OR(ISNUMBER(SEARCH(""090-"",C9)),ISNUMBER(SEARCH(""070-"",C9)),ISNUMBER(SEARCH(""080-"",C9))),"""",C9)"
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) 最終列の右へSUM関数を作成するため下記コードを実行しましたが、最終列「10月28日」が上書きされて 3 2022/12/05 20:32
- Visual Basic(VBA) 関数を最終行までコピー 3 2022/09/04 11:05
- Excel(エクセル) R列の1111/11/11以外、且つQ列の×の条件で該当行のAからAE列までオレンジに塗りつぶす 2 2022/07/02 10:18
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Excel(エクセル) 時間差を求めるマクロコードを教えてください。 4 2022/05/17 18:22
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワーポイントをエクセルファ...
-
IFとIFS関数
-
エクセルで「500時間」を「何日...
-
エクセル 列の最大数はIV?
-
エクセル関数の解読サイトなん...
-
エクセルで数値の上3桁で切捨...
-
エクセルに変な矢印が出てクリ...
-
エクセルのマウス操作(左クリ...
-
エクセルで検索して、ヒットセ...
-
エクセルに貼った画像が変形し...
-
エクセルで使えるかわいい枠を...
-
差し込み印刷での小数点表示に...
-
エクセル関数を使用して。
-
「ジャストカルク」を使用中の方へ
-
エクセルデータをメモ帳に
-
forms用エクセル いきなり、for...
-
楽譜をデータベース化したい!
-
【エクセル】 右端のスクロー...
-
ネットワーク上のエクセルが開...
-
エクセルVBAで2つのマクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントをエクセルファ...
-
エクセルで「500時間」を「何日...
-
エクセル 列の最大数はIV?
-
エクセルで使えるかわいい枠を...
-
エクセル関数の解読サイトなん...
-
xl
-
エクセルで数値の上3桁で切捨...
-
エクセルのマウス操作(左クリ...
-
PDFの請求明細をエクセルにしたい
-
エクセルに変な矢印が出てクリ...
-
エクセルで検索して、ヒットセ...
-
Accessのクエリの結果を、既存...
-
並び順の違う2つのエクセル表
-
エクセルに貼った画像が変形し...
-
エクセル関数を使用して。
-
差し込み印刷での小数点表示に...
-
「ジャストカルク」を使用中の方へ
-
エクセルでの囲い文字
-
エクセルデータをメモ帳に
-
エクセル 「クリップボードを開...
おすすめ情報