VBAについての質問です。
VBAで次の事ができるコードを作ることはできますか?
・EXCELに記入してある項目とデータを、必要な項目とデータだけ抽出し、適切な値や文字に変換してCSV形式で出力する。
(EXCELのデータは変
えず、抽出・変換した結果をCSV出力する)
・EXCEL内の列が変わっても、決まった形(決まった項目の並びに順、データ出力場所)でCSV出力されるようにする。
・EXCEL内のデータの行数は毎回変わるので、その都度対象範囲をすべて認識して、CSV出力される。
(表示されているデータの行数全てCSV出力されるようにする。先述の通り列はCSV出力される際に必要なところだけ抽出されるようにする)
●参照先:EXCEL
以下の通り、各セルに項目名が入っており、それぞれの項目名の列には適切なデータが出力されております。
●出力形式:CSV形式
必要なデータをEXCELから抽出し、適切な値や文字に変換して出力したいと考えてます。
●例
【見方】
・入力されているセル:EXCELデータ→項目名を入力するセル:CSV出力するときに変換した時の項目名
・文頭に※があるものには計算式が入力されています。
A1セル:インシデント→出力なし
B1セル:作業内容→出力なし
C1セル:施設ID→B1セル:FACT_ID
(C2セル以降に入力されている値を、そのままB2以降のセルに転記)
D1セル:施設名(日)→C1セル:COMP_NM
(D2セル以降に入力されている値を、そのままC2以降のセルに転記)
E1セル:責任者(苗)→D1セル:LAST_NM_EN、F1セル→LAST_NM_LOCAL
(E2セル以降に入力されている値を、そのままD2、F2以降のセルに転記)
F1セル:責任者(名)→E1セル:FIRST_NM_EN、G1セル→FIRST_NM_LOCAL
(F2セル以降に入力されている値(漢字かローマ字)を、そのままE2、G2以降のセルに転記)
G1セル:施設区分→L1セル:KYOTEN_CODE、P1セル:DEPA_KB
(G2以降に記入されている値を、L2とP2以降に0_AA→0.1_BB→1.2_CC→2に変換して入力、)
H1セル:国名→I1セル:LAND_CODE
(H2セル以降に入力されている値を、そのままI2以降のセルに入力)
I1セル;拠点区分→H1セル:FACT_KB
(I2セル以降に入力されている値を、H2以降のセルに0_AA→0.1_BB→1.2_CC→2に変換して入力)
J1セル:登録申請日→J1セル:REG_APPLE_DT
(J2セル以降に入力されている値を、そのままJ2以降のセルに入力)
K1セル:削除申請日→A1セル:IMPORT_TYPE(削除:0,1:追加)、K1セル:DEL_APPLE_DT
(K2セル以降、空白→0、それ以外→1をA2セルに出力する(フラグを立てる?)。K2セル以降に入力されている値を、そのままK2以降のセルに入力)
L1セル:備考→Q1セル:REMAKES
(L2セル以降に入力されている値(全角平仮名カタカナ漢字、半角英数字入り混じり)を、そのままQ2以降のセルに入力)
M1セル:ADJ→M1セル:ADJ_SOFT_DEV_FLG
(M2セル以降に入力されている値を、そのままM2以降のセルに入力。空白の場合は0を入力)
N1セル:PRINT→N1セル:PRINT_KB
(N2セル以降に入力されている値を、そのままN2以降のセルに入力。空白の場合は0を入力)
O1セル:AUTH→O1セル:AUTH_KB
(O2セル以降に入力されている値を、そのままO2以降のセルに入力。空白の場合は0を入力)
※P1セル:PS(OU)→出力無し
※Q1セル→PS(G)→出力無し
以上になります。
解りづらく長い文で大変申し訳ございませんが、
切実に回答を求めておりますため、どうかどなたかお知恵を貸してください。
宜しくお願い致します。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
No1です。
読み直したら、誤記がありましたので訂正しておきます。
(内容的に変わりはありませんが…)
◇誤
>必要な項目とデータだけ
>必要な項目とデータだけ
◇正
>必要な項目とデータだけ
>適切な値や文字に変換して
No.1
- 回答日時:
こんにちは
>次の事ができるコードを作ることはできますか?
ご質問文に曖昧な記述がありますが・・
>必要な項目とデータだけ
>必要な項目とデータだけ
>決まった形
などの内容がよくわかりませんけれど、これらを論理的に説明可能であれば(=コード化が可能である論理性)基本的に可能と考えられます。
ご自分で作成なさるのであれば、不明部分はご自身で判断できるので問題はありません。
一方で、「まるっと作って」というつもりなのであれば、回答者に必要な情報を整理して伝えることができなければ無理です。
仮に、キチンと伝えられたとしても、「作ってあげよう」という奇特な方がいないと、やはり無理ですね。
内容をよく読んではいませんが、なにやら複雑そうなので、依頼サイト等で依頼する方が速いのではないかという気がします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル 自動計算 1 2023/01/30 13:28
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) 特定の条件で計算式を組みたいのですが、教えて頂けますでしょうか? 6 2022/10/28 19:02
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 独自の条件を用いた計算式、もしくは別の方法で打ち出す事は可能でしょうか? 6 2022/05/18 10:38
- Excel(エクセル) ExcelのVBAコードについて教えてください。 1 2022/06/20 09:22
- Excel(エクセル) エクセルの昇順での数値入力のミスの見つけ方を教えてください。 4 2022/06/26 20:41
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
ExcelVBAを使って、値...
-
Excelで指定した日付から過去の...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelのVBAで数字と文字列をマ...
-
【VBA】指定したセルと同じ値で...
-
特定の文字を条件に行挿入とそ...
-
セル色なしの行一括削除
-
VBA実行後に元のセルに戻りたい
-
【VBA】シート上の複数のチェッ...
-
指定した条件で範囲選択したい
-
Excel VBA、 別ブックの最終行...
-
EXCELのVBA-フィルタ抽出後の...
-
実行時エラー438 オブジェクト...
-
先頭と末尾を指定して連続した...
-
EXCEL VBA 画面のロックについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
Excel vbaで特定の文字以外が入...
-
特定の文字を条件に行挿入とそ...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
Excelのプルダウンで2列分の情...
-
EXCELで変数をペーストしたい
-
連続する複数のセル値がすべて0...
-
Excel VBA、 別ブックの最終行...
-
VBAを使用した時間管理
-
エクセルVBAでコピーして順...
-
セル色なしの行一括削除
-
【EXCEL VBA】Range("A:A").Fi...
-
VBA コピーして次の値まで貼り...
-
VBA初心者です。結合セルを保持...
おすすめ情報