- ベストアンサー
VBAで表作成中解らないことだらけ・・・ひとつずつ教えてください。
pkh4989の回答
- pkh4989
- ベストアンサー率62% (162/260)
商品情報が表示されないのは、多分検索処理だと思います。 以下のモジュールの中で '商品情報の編集 Sub Edit_Shouhin(wSh2 As Worksheet) If .Cells(wI, "B") = wDate Then '←ここで両方の日付を確認してください コメントしたように、デバッグしてみてください。 この行で「F9」を押すと色反転されます。実行するとここで止まりますので、 マウスで、両方の日付形を確認してみてください。 例えば、.Cells(wI, "B") → "mm/dd" の形式 wDate → "yyyy/mm/dd" だと駄目ですので、両方のTypeを合わせる必要があります .Cells(wI, "B") → "mm/dd" / wDate → "yyyy/mm/dd" の場合は、 If .Cells(wI, "B") = Format(wDate,"mm/dd") Then に修正してください。
関連するQ&A
- ＶＢＡ 表作成 再 続
引き続きよろしくお願いします。 入力データというブックがありそこには Ｂ列に日付と曜日（日付の下）３行目～、 Ｍ列に区分（１か２が入力）３行目～、 Ｔ列に商品名３行目～、 ＡＱ列に商品数３行目～、 ＢＡ列４行目～にコードが入力されています。 日付を入力したブックに 入力データにある、日付の部分を見て入力フォームで日付から１ヶ月の間の日付で一致すれば、商品名、コードを別ブックにある表に貼り付けます。日付部分の表に数値を商品名とコードにあわせて貼り付け、日付も、商品名もコードも同じであれば足してから表示します。 元にあるのはひとつ分しかはいらないので増えるたびに行数を挿入していくようにします。 最初にある表は Ｂ Ｍ Ｌ ・・・ ４ 日付・・・ ５ 曜日・・・ ６ 商品名 コード 数値・・・ ７ 小計・・・ ８ 商品名 コード 日付・・・ ９ 小計・・・ １０ 合計・・・ という表になっています。上段には区分１、下段には区分２のものが入ります。 わかりますかね・・・；； 説明下手で申し訳ありません よろしくお願いします
- 締切済み
- その他（プログラミング・開発）
- ＶＢＡ 表作成 続続
以前何度もこの「ＶＢＡ表作成」というタイトルで何度か質問させていただきました。 前回の締め切りのあと何度もデバック？やってみながら訂正してみたりしたのですが出来ませんでした。 ☆詳細（仕様？） ・入力フォームブックで日付を入力すると出力ブックに入力した日付から１ヶ月の日付が表示されます。 ・入力データブックがあり入力フォームで入力した日付から１ヶ月の日付で入力データにあるデータを貼り付けます。 ・重複したデータは足して表示させます。 ☆入力データブック ・Ｂ列に日付：日付の下に曜日が表示されています。 ・Ｍ列に区分：１か２が書いてあります。 ・Ｔ列に商品名：結合は関係ないとは思いますが、ＴからＡＰまで結合されています。 ・ＡＱ列に数量：ＡＱからＡＵまで結合されています。 ・ＢＡ列にコード：表示上記４つに比べ１行下に表記されていてＢＡからＢＤまで結合されています。 ☆出力ブック ・ＢからＨまで結合されており、Ｂ６に商品名が表示されます。（現時点では商品１つ分しかないので増えるたびに１行ずつセルが結合され挿入されます ・ＩからＫまで結合されており、Ｉ６にコードが表示されます。（これも上記と同じ） ・６行目～→区分１の場合・８行目～→区分２の場合に表示します。 (1)出力ブック（以下book）の表は品名とコードを表示する部分が結合されているのですが、挿入され別の値が表示となったときに結合されておらず、コードも表示されませんでした。 (2)入らないはずの所に数値が入ってしまいます。 (3)入るはずの所に値が表示されません（８行目以降の欄） ・品名：Ｂ５からＨ５まで結合されています。 品名が表示されるのはＢ６からＨ６までで挿入されるときも結合されて表示されたいです。 ・コード：Ｉ５からＫ５まで結合されています。 コードが表示されるのはＩ６からＩ６までで挿入されるときも結合されて表示されたいです。 Sub Get_nyuryoku(wDate As String, hNm As String, hCd As String, hKbn As String, s As Integer) Dim wData As Worksheet Dim i As Integer Dim mR As Long Set wData = Workbooks("入力データ.xls").Worksheets("Sheet1") With wData mR = .Cells(Rows.Count, "B").End(xlUp).Row For i = 3 To mR If .Cells(i, "B") = wDate Then '←ここで両方の日付を確認 hNm = .Cells(i, "T") ←商品名 hCd = .Cells(i, "BA") ←コード hKbn = .Cells(i, "M") ←区分 s = .Cells(i, "AQ") ←数量 Exit For End If Next End With End Sub お手数掛けますがよろしくおねがいします。 他に書かなきゃいけないことがありましたら言ってください。
- ベストアンサー
- その他（プログラミング・開発）
- ＶＢＡ 表作成
こんにちわ。 表が完成しました。 しかし、後３つの課題が残されています。 ネットで見ても今ひとつわからなかったので再度質問させていただきました。ブックは全部で３つになります。 →入力フォーム、出力、入力 質問１ アラートは表示されずに上書きもなく保存させたいです。 ・入力フォームで入力された日付で保存。（入力する場所はＣ６でyyyy/m/d/という形です。） ・同じ日付の場合は上書きではなくその日付に何か解るように足せられたものが名前になるようにしたいです。 保存のやり方はわかるのですが上記２つが解りません 質問２ 保存が終わって指定したブックのみ閉じたい。 ・入力データを閉じたいです。 解りづらいかもしれませんがよろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- ＶＢＡ 表作成したい
こんにちわ 別ブックで入力した値から１ヶ月分の日付を表示させていく表を作成したいのです。 すでに表の元は完成していて、３１日入るようになっています。 線もひいてあります。 ですが、入力日によっては３１日の所もあれば３０日の場合もあり、２８日の時や２９日の時もあると思うんです。 それに対応する形で表に埋まった日付の分だけの表をVBAで作成したいのですが、処理をするたびに随時変更できるのでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBA ユーザーフォーム 検索
現在VBAにてユーザーフォームにて入力したデータをシート１に転記するものを作成しました。 この転記したデータを生かして作業したいと考えております。 データは商品データで A B C E F 商品コード 商品名 区分 単価 備考 となっており ユーザーフォームも TEXTBOX1=A TEXTBOX2=B と言う様になってます。 現在考えているのがこのデータの一部を変更したい場合、コマンドボタンを押すと商品コード入力用boxがでてきて、商品コードを入力するとA列から検索し該当する商品データをユーザーフォーム上に表示するようにしたいのです。 そのデータがA75行にあったとします。 そのユーザーフォーム上で単価を変更した場合検索した行（A75行）にそのまま上書きする様にしたいです。 説明がうまくできてないかも知れませんが、どなたかご教授願います。
- 締切済み
- オフィス系ソフト
- 集計表の作成
集計表の作成 AccessとExcelを使用して集計Aを作成したいと思っています。 （ボタン1クリックだけで行なうのが理想です） 1.グループ毎に小計行を追加したい（小計行はグループ毎の合計 2.エクスポートしたExcelの最終に合計行の追加したい （合計行は全グループの合計） Ａ列はデータ数によって毎回行数が変わる為にあらかじめレイアウトを 作成して、Vlookuopで当てはめるという事も出来ません。 元となる金額のデータはAccessで作成してExcelにエクスポートする 所までは出来たのですがそれ以降（小計行の追加・計算、合計行の追加・計算）が分かりません。どの様にすればよいでしょうか？ Access：仕入先テーブル コード ｜テキスト型 名称 ｜テキスト型 仕入額 ｜数値型 前年比 ｜数値型 グループ ｜数値型 Excel：集計A Ａ ｜ Ｂ ｜ Ｃ ｜ Ｄ ｜ E ｜ F ｜ １ ｜コード ｜ 名称 ｜仕入額 ｜前年比｜グループ｜ ２ ｜1030 ｜ Ａ ｜ 1,000 ｜ 49％｜1 ｜ ３ ｜1040 ｜ Ｂ ｜ 1,050 ｜ 32％｜1 ｜ ４ ｜ ｜小計(Ａ+Ｂ) ｜ 2,050 ｜ 81％｜ ５ ｜1050 ｜ Ｃ ｜ 1,000 ｜ 50％｜2 ｜ ６ ｜1060 ｜ Ｄ ｜ 1,050 ｜ 52％｜2 ｜ ７ ｜1070 ｜ Ｅ ｜ 1,050 ｜ 49％｜2 ｜ ８ ｜ ｜小計(Ｃ+Ｄ+Ｅ)｜ 3,100｜50.3％｜ ９ ｜1080 ｜ Ｆ ｜ 1,000 ｜ 60％｜ ｜ １０｜1090 ｜ G ｜ 2,000 ｜ 38％｜ ｜ １１｜2000 ｜ H ｜ 1,000 ｜ 60％｜ ｜ ・ ・ ・ ・ ｜ ｜合計 ｜ 9,150 ｜49％ ｜ ・・・Ｃ4+Ｃ８+Ｃ9+合計行の直前まで
- 締切済み
- その他MS Office製品
- VBA表作成 再
頭がこんがらがってしまい途中でしめさせていただきました。改めて整理がついたので質問をしたいと思います。 VBAを使い表を作成しています。 まず入力フォームというブックがあり、そこに入力した日付より１ヶ月分のデータを日付、曜日などを別ブックにある予めできている表に貼り付けていきます。表には３１日分の表（罫線あり）が出来ています。 ☆一つ目 Datediff("d",wSh1.Range("C6"),Dateadd("m",1,wSh1range("C6"))) を使いその月の日数を求め表からいらない分の表を削除。 例えば）2/1を入力した際に３１日分もいらないため２つ削除。 削除したら入力した日付から１ヶ月間の日付と曜日を貼り付ける。 表は Ｌ ・・・ ４ 日付・・・ ５ 曜日・・・ ・ ・ ・ のようになっています。 ここまでにいく前に次のような処理をしましたのでソースを載せます。 Private Sub CommandButton1_Click() Dim wStr As String Dim wDate As String Dim wDate2 As String Dim Exitflg As Boolean Dim i As Integer Dim wVal As Variant Dim wSh1 As Worksheet Dim wSh2 As Worksheet Dim iStartRow As Long Dim iEndRow As Long Dim wDay As Long Set wSh1 = Workbooks("入力フォーム.xls").Worksheets("日付セット") If wSh1.Range("C6") = "" Then '値が入っているか MsgBox "日付を入力してください！" Exit Sub End If wDate = Replace(wSh1.Cells(6, "C"), "西暦", "") wDate = Format(wSh1.Cells(6, "C"), "yyyy/mm/dd") If Date < wDate Then MsgBox "未来の日付入力はできません！" Exit Sub End If If DateAdd("yyyy", -1, Date) > wDate Then MsgBox "日付を今日から１年以内で設定してください！" Exit Sub End If わかりづらいかもしれませんがよろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- エクセル vbaでの相談です
エクセルでの質問です。 販売管理表を作りたいと思います。 sheet1を商品マスター表とし、下記の見出しがあって A1 JANコード（上一桁4からの番号で13桁） B1 商品コード （14桁） C1 商品名 D1 価格 以下A2行以降、A1行の見出しを元に商品詳細があるとします。 sheet2の下記のA1行を見出しとし、A2行から販売実績をユーザーフォームを使って入力していきたいと思います。 A1 JANコード B1 商品コード C1 商品名 D1 価格 E1 販売番号 フォームを作成し、入力窓に JAN、商品コードのいずれかを入力すると、他の入力窓にsheet1の商品マスター表から該当する商品名、価格を自動入力し登録ボタンを押すと、sheet2の該当セルに反映されるということはできますでしょうか？ そして異なる商品のまとめ買いの件数も知りたいので、フォーム上で複数アイテム登録できるようにし、販売番号で件数を管理したいのですが、そちらも可能でしょうか？ 販売番号も自動で通し番号が入るようにしたいです。わかりにくい文章で申し訳ありません。ご教授の程、よろしくお願い致します。
- 締切済み
- その他（ITシステム運用・管理）
- 「JANコード」と「日付」で販売個数表を作成したい
エクセルで販売個数表を作成していますが、うまくいかず困っています。 Sheet1のA列に現在在庫している全ての商品のJANコード、B1～AF1にある月の1日から31日までの日付が日付データとして入っています。別ブックのSheet1にA列（販売日）、B列（JANコード）、C列（販売個数）のデータがあり、この販売個数を前述の個数表にJANコードと日付を対応させて入力したいのです。（例えばＭというJANコードの品物が14日に2個売れたとしたら、MというJANコードの行の14日の列のセルに2と入れたいということです。）尚、別ブックの販売個数のデータは各商品ごとに1日の総売り上げ個数が出ているため、合算をする必要はなく、C列の数字をそのまま該当するセルに直接入れることができればOKです。 できることならマクロを使って、「別ブックを参照してデータを読み込み、販売個数表に個数を反映」させたいのですが、どのように作ったらよいのか具体的に教えていただけないでしょうか？関数を使って入力する方法もあれば是非、お願いします。
- ベストアンサー
- オフィス系ソフト
- VBAで表作成
こんにちわ VBAを使い表を作っているのですが、入力フォームで日付を入力しコマンドボタンを押すと別ブックになり、予め用意してある表に入力した日付から１ヶ月の日付が貼り付けるというのをやっています。 マクロを記録し試してみたところ構文エラーが出てしまいました。 日付を貼り付けるところまでできたのですが・・・ 表には線がすでに入っています。 入力された最後の日付のところで太線で表を閉めたいのですができますでしょうか。 構文エラーになったソースを貼り付けます。 Range((4,"i"+12):(10,"i"+12)).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With よろしくお願いします
- 締切済み
- その他（プログラミング・開発）
補足
できたんですが、デバック表示にはならなっかたんですが・・・ 日付を１ヶ月貼り付けたブックで ６行目 Ｂ列と数値は入っているもののコードが入っていません。 挿入された部分が６行目とは違い結合されていなく、コードの場所もなくなってしまいました。数値も挿入された部分は全て同じ数値になってしまいます。 区分２も貼り付けがされていませんでした。 出来たのは日付が一致しないときのみの表作成はできました。 しかし一致する際の表ができていません・・・。 この表示で解りますでしょうか？ 自分でも何言ってるかわからないんですが；； ひとつずつでもいいですか？ １つ目 区分２の品名とコードが表示されません。 コードが表示されません。 ２つ目 挿入された際の貼り付けが表示されません。 ３つ目 数値が指定された一致したところだけの貼り付けが全てに貼り付けられています。 今わかるのはこの３つです。 忙しいと思いますがよろしくお願いします。