
下記のマクロを実行したところ、J2,K2,M2セルには数式がそのまま表示され数式として認識されません。J,K,M列はハイフン付き数字、ローマ字付き数字等を入力するために文字列に設定、他の列は標準に設定してあります。数式が表示されるためにデータ、区切り位置、完了を押すことで認識されるとありましたので、後段、マクロの記録で追加した結果、文字列も数式として認識するようになりましたが,他の方法がありましたら教えてください。
Sub データ初期設定()
Worksheets("データ").Activate
ActiveSheet.Unprotect
Range("c5").Formula = "=最終行(""b"")"
Range("a2").Formula = "=IF(COUNTIF(P2:Y2,""A"")>=1,1,"""")"
Range("b2").Formula = "=ROW()-9"
Range("c2").Formula = "=C1"
Range("d2").Formula = "=IF(E2=1,"""",D1)"
Range("e2").Formula = "=IF(C1<>C2,1,E1+1)"
Range("f2").Formula = "=IF(E2=1,"""",F1)"
Range("j2").Formula = "=IF(ISERROR(VLOOKUP(B2,記録表!$B$11:$V$300,21,0)),"""",VLOOKUP(B2,記録表!$B$11:$V$300,21,0))"
Range("k2").Formula = "=IF(E2=1,"""",K1)"
Range("m2").Formula = "=IF(E2=1,"""",M1)"
Range("z2").Formula = "=IF($AC2="""","""",IF(AD2<>"""",VLOOKUP($AC2,項目説明!$B$7:$C$53,2,0)&"" ""&VLOOKUP($AD2,項目説明!$B$7:$C$53,2,0),VLOOKUP($AC2,項目説明!$B$7:$C$53,2,0)))"
Range("af2").Formula = "=K2&"" - ""&M2&"" - ""&N2"
Range("ag2").Formula = "=IF(COUNTIF($AF2:AF$9,AF2)>1,""重複"","""")"
Range("ai2").Formula = "=IF(AC2="""","""",VLOOKUP(AC2,項目説明!$B$10:$D$53,3,0)& IF(AD2="""","""",VLOOKUP(AD2,項目説明!$B$10:$D$53,3,0)))"
'後段 マクロの記録から
Range("j2").Select
Selection.TextToColumns Destination:=Range("J2"), TrailingMinusNumbers:=True
Range("K2").Select
Selection.TextToColumns Destination:=Range("K2"), TrailingMinusNumbers:=True
Range("M2").Select
Selection.TextToColumns Destination:=Range("M2"), TrailingMinusNumbers:=True
ActiveSheet.Protect
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 3 2022/08/21 20:51
- Excel(エクセル) マクロを簡潔にしたい 6 2022/09/16 10:37
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) Formulaプロパティーを使ってセルに数式を組んだのですが簡潔にしたい。 2 2022/03/28 17:38
- Visual Basic(VBA) 関数を最終行までコピー 3 2022/09/04 11:05
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 配列の勉強をしています。使用する変数の意味、検索条件の書き方が難しいです。 2 2022/09/15 14:06
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数について
-
【マクロ】元データと同じお客...
-
エクセルのリストについて
-
エクセルの複雑なシフト表から...
-
【マクロ】変数に入れるコード...
-
【マクロ】別ファイルへマクロ...
-
Amazonでマイクロソフトオフィ...
-
【マクロ】【相談】Excelブック...
-
エクセルシートの見出しの文字...
-
【マクロ】数式を入力したい。...
-
【マクロ】左のブックと右のブ...
-
他のシートの検索
-
【画像あり】オートフィルター...
-
【マクロ】実行時エラー '424':...
-
エクセル GROUPBY関数について...
-
Office2021のエクセルで米国株...
-
Excelで4択問題を作成したい
-
エクセルのVBAで集計をしたい
-
別のシートの指定列の最終行を...
-
ページが変なふうに切れる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
9月17日でサービス終了らし...
-
エクセル
-
【マクロ】WEBシステムから保存...
-
エクセルの循環参照、?
-
エクセル ドロップダウンリスト...
-
エクセルのdatedif関数を使って...
-
特定のセルだけ結果がおかしい...
-
【マクロ】A列にある、日付(本...
-
【マクロ】EXCELで読込したCSV...
-
【マクロ】アクティブセルの時...
-
【エクセル】期限アラートについて
-
iPhoneのExcelアプリで、別のシ...
-
【関数】同じ関数なのに、エラ...
-
Excelの新しい空白のブックを開...
-
【マクロ】3行に上から下に並...
-
【マクロ】宣言は、何のために...
-
VBA チェックボックスをオーバ...
-
Excelについての質問です 並べ...
-
【マクロ】アクティブセルの2...
-
【関数】不規則な文章から●●-●●...
おすすめ情報