エクセルマクロ
B2の数値を参照してコピーする回数を指定し、 一枚目の画像から二枚目の画像のようになるマクロです それぞれのシートのロット、管理番号は1ずつカウントアップしてます シート全体を選択するのと印刷プレビューはおまけです そのまま印刷できそうですね 動…
例ではA1に付けたい名前 A2に保存したいアドレスを入力しています 保存した結果がこちら 最後にコピー元のシートを削除します この時警告文が表示されるのは改善したいけど改善の方法がわからないので我慢してください ちなみに私の本名は長谷川ではありませ…
Sub Macro9() Dim S As StringDim S2 As StringDim data As Integer Range("A1").Select '元の数値データの先頭を選択S = Selection.Addressdata = ActiveCell Range("C1").Select '000を打ち込む列の先頭を選択S2 = Selection.Address While data <> 0 If d…
例の画像ではSNというデータが何個あるかをC2セルのカウント関数によってカウントさせて、マクロ内でC2を参照して個数によって印刷範囲を変更します。 自分ちで使う場合は印刷範囲を適当に直してください データの数によって印刷範囲が変わるエクセルファイ…
2019/02/18追記 例の画像のように欠番を入力する列の先頭にデータがない場合には欠番が正常に入力されないバグがあったので修正しました。 欠番の列に移動した際にデータがなければif文を実行し、データを入力するようにしました If ActiveCell = 0 Then Act…
前々回書いたマクロの改善版です 「A→B(コピー)→A(ペースト)」頑張ってエクセルマクロ組んだので会社で使えるようここに貼っておく - 思考の漏洩 以下本文 Sub ひらく() '' ひらく Macro'Dim saisyonosiito As WorksheetSet saisyonosiito = ActiveSheet 'シ…
例によって会社用の転記用です Sub sample()Dim fileName As StringfileName = Range("A1") & " " & Range("B1") 'ファイル名作成If MsgBox(fileName & " で保存しますか?", vbYesNo) <> vbYes Then Exit Sub '保存するか確認して保存しない場合は終了Appli…
題にあるとおり エクセルのマクロを組みました。 自宅のパソコンやスマホからメールを送っても会社PCでは弾かれるので ここに書いてコピペします。 万一このマクロを利用する方がいらっしゃった時のために 軽く解説を書いておきます。 あと、職場の同僚が分…