VBAでデータ登録 データ検索をできるように現在模索しています。
VAB初心者の為、迷走しています^^:
惜しいところまでいってる気はするのですが・・遠い
お力添え頂ければ幸いです。
シート名〔登録〕
シート名〔台帳〕
①注文番号 を〔登録〕シートB1セルに記載するようにしています。
②必要データ入力後に登録コードで〔台帳〕シートへ横一列反映
③検索用として別に検索コードでB1セルに注文番号入力で〔台帳〕から〔登録〕シートへデータ反映
④〔登録〕シートから〔台帳〕シートにデータ移行する場合は横1行で表示
問題点
・B1セル注文番号が行参照の為、注文番号が数字に限られる
・〔台帳〕側シートをソートした場合、注文番号検索が行参照の為、別のデータが入ってしまう。
・注文番号を連番で取得しないと、〔台帳〕に空白行ができてしまう。
やりたいこと
・注文番号は数字+文字列にしたい! 例)12W001
・〔台帳〕シートへは空白行は詰めたい!列はきにしません!
・〔台帳〕シートをソートしても問題なく使えるようにしたい!
注文番号 B1セルに記載するようにしています。
下記、登録コード
Sub Test()
Set S1 = Worksheets("登録") ' S1 シート名
Set s2 = Worksheets("台帳") ' S2 シート名
R = S1.Range("B1").Value + 3
s2.Cells(R, 1).Value = R - 3
s2.Cells(R, 2).Value = S1.Range("D1").Value
c = 2
For i = 10 To 47 ' B10~47までデータ取得
For j = 1 To 7 'A~G列までデータ取得
c = c + 1
s2.Cells(R, c).Value = S1.Cells(i, j).Value
Next j
Next i
End Sub
下記、検索コード
Sub Test3()
Set S1 = Worksheets("登録")
Set s2 = Worksheets("台帳")
R = S1.Range("B1").Value + 3
S1.Range("D1").Value = s2.Cells(R, 2).Value
c = 2
For i = 10 To 47
For j = 1 To 7
c = c + 1
S1.Cells(i, j).Value = s2.Cells(R, c).Value
Next j
Next i
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
まず聞くことが多すぎます。
この姿勢が解決を遅らせるんです。
全てを完璧にしなきゃプログラムって意味を持たないんですから
一件ずつ聞いてください。
でないと答える方も片手間なんだから気後れしますよ。
それに説明が足らないです。
全部訊くから書ききれないのもあるんだと思うけど。
>①注文番号 を〔登録〕シートB1セルに記載するようにしています。
登録なのに入力じゃなくて記載?
どういう意味?
>②必要データ入力後に登録コードで〔台帳〕シートへ横一列反映
これは多分Keyとして登録コードってのがあるんだと思うけど
それを先頭にして1行にしてるんだろうね。
そこは正しいです。データは1件1行が鉄則ですから。
>③検索用として別に検索コードでB1セルに
これって登録のシートが検索も兼ねてるってこと?
じゃあその状態は今どっちのモードかどう判る様になっているの?
ね、説明すべき事って意外に多いでしょ?
>・B1セル注文番号が行参照の為、注文番号が数字に限られる
は?
行参照ってなんのこと?
台帳の注文番号の列を検索すればいいだけでは?
>・注文番号を連番で取得しないと、〔台帳〕に空白行ができてしまう。
なんだこれ、てことは注文番号の数字の行を使う発想?
大胆だな。
普通は登録時にもう一度注文番号の列を検索して
存在したら上書き確認、なければ最終行の次の行に
登録するものです。
後は、一つずつ解決しましょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) VBAでのループ順序について 3 2023/03/13 10:55
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vba SUMIF関数で合計を出す
-
エクセル VBA ユーザフォーム ...
-
Excelにて、ユーザーフォームで...
-
エクセルで文字が白くなる
-
エクセルで円グラフに引き出し...
-
エクセルで文字を含む式に、カ...
-
EXCEL VBAで複数シートから該当...
-
EXCELの散布図で日付が1900年に...
-
エクセルの関数で範囲のある数...
-
【エクセル】区切り文字が含ま...
-
エクセルで上付き,下付き文字...
-
妊娠週数をエクセルで計算した...
-
エクセルVBAで、複数セルのデー...
-
エクセルの主軸と第2軸の0を合...
-
excelグラフでデータテーブルを...
-
別のシートから値を取得するとき
-
ローソク足チャートに線画を書...
-
EXCELでCSVファイル保存すると...
-
Excelで、空白を表示したい
-
1年分のデータから特定の月分...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelにて、ユーザーフォームで...
-
indirect 関数を使った複数シー...
-
Openoffice calc で複雑な入力...
-
【再質問】【マクロ】複数シー...
-
vba SUMIF関数で合計を出す
-
Excel、複数シート同セルを別シ...
-
エクセルで三つの条件での参照...
-
エクセルの関数について : CHOO...
-
Excelの操作方法
-
Excelで複数シートの特定カラム...
-
エクセルで各シートの該当項目...
-
エクセルで条件に一致した別の...
-
エクセル VBA ユーザフォーム ...
-
エクセル 不特定数シートのく...
-
9枚のシート上の同形式の表を...
-
VBA データ抽出 出力 検索模索!
-
excel マクロで数字を入れると...
-
別シートに毎回異なるデータを...
-
ABC DEF GHI の3個の会社を[...
-
エクセルで円グラフに引き出し...
おすすめ情報