回答受付が終了しました

再送です。『資料を添付せず送信して申し訳ありません。資料を添付して再送致しますので、ご確認下さい。』

画像

Excel | Visual Basic109閲覧xmlns="http://www.w3.org/2000/svg">250

回答(4件)

0

バーコートは解らないので、ボタンを押したら印刷して、Sheet2へ転記するプログラムです。 項目は①~㉔の○つき数字が入っているのが前提です。この数字で転記位置を判断します。 ⑤連番は関数で出します。 Sheet1 L6: =TEXT(TODAY(),"YYMMDD")&"-"&TEXT(COUNTIF(Sheet2!E:E,TEXT(TODAY(),"YYMMDD")&"*")+1,"000") を入れて下さい。 Option Explicit ' Sub Macro1()     Dim O As Worksheet     Dim Cell As Range     Dim Row As Long     Dim Col As Integer '     ActiveSheet.PrintOut     Set O = Sheets("Sheet2")     Row = O.Cells(Rows.Count, "B").End(xlUp).Row + 1     O.Cells(Row, "A") = Row - 1 '     For Each Cell In [B5:V17]         Col = AscW(Cell & " ")         Col = Col _             + (Col >= 9312 And Col <= 9331) * 9311 _             + (Col >= 12881 And Col <= 12890) * 12860 '         If Col < 31 Then             O.Cells(Row, Col) = Cell.Offset(1) '             If Not Cell.Offset(1).HasFormula Then                Cell.Offset(1).ClearContents             End If         End If     Next Cell End Sub

0

回答ではありませんが、 >E. A.のシートのバーコードを読み込み、特定ファイルの特定のシートのある 同じバーコードデータのセルを選択出来るようにしたいです。 どのような方法でバーコードを読み込むのか。 バーコードをどこへ読み込むのか。 バーコードを読み込んで、どのような操作もしくはイベントでセルを選択するのかをはっきりさせておいた方が良いです。

1

なぜ表計算ソフトでやりたいのか謎。データベースソフト使えばほとんどの部分が自分でマクロを書く必要もなく提供されています。レイアウト切り替えるだけだもの。

1人がナイス!しています

0

日付とはなんの日付でしょうか?記入した日か、どこかのセルに入っている数値のことか、またそれは同じ日付が連続せず、途中で前の日などが入っている可能性がありますか この伝票は記入時点で生成したいのか、どこかでまとまった表を一括で印刷するのか シート1は2枚にまたがることがあるのか? そうなると連番は違うシートから記入するか最終ナンバーがいくつかということを人の手で打つことになると思います