マイクロソフトのビジュアルモジュールの質問
こんにちは
私はMicrosoft Visualセクションにモジュールを作成しました.これは素晴らしい機能で、1月のすべてのジョブを新しいシートに入れる.しかし今、私は2月などのこのモジュールを複製したいです.
どうやってこれを行うことができますか?
これはモジュール1
のコーディングです.サブMoverowBasedOnCellValue()
'exteNdOffice 2017/11/10
によって更新されました範囲
としてDIM XRG範囲
としてのDIM XCell薄暗い
長い
を薄暗くする長い
を薄暗くするi=ワークシート(「見積もり状況」).usedRange.rows.count
J=ワークシート(「JAN21」)USEDRANGE.ROWS.COUNT
j= 1の場合
if application.worksheetfunction.counta(ワークシート( "jan21").USEDRANGE)= 0次の場合J= 0
の場合は終わりますset xrg=ワークシート( "見積ステータス").範囲( "H2:H70"&i)
エラーの再開Next
application.ScreenUpdating= false
k= 1からxrg.count
cstr(xrg(k).value)= "Jan"
XRG(k).entirerow.copy Destination:=ワークシート( "Jan21")範囲( "a"&j + 1)
j= j + 1
の場合は終わります次の
application.ScreenUpdating= true
返信リスト(回答:4)
サブCopyRowBasedOnCellValue()
'すべての行を "見積もりステータス"(列の月名)からコピーする
'草刈りの月紙に
'Andreas Killer 2021/01/29
ワークシートとしてDIM WS
範囲、Hの範囲としてQS、range asの範囲としての範囲、
薄暗い星中の文字列として薄暗くなる
ワークシート( "見積もりステータス")を使って
QS=.Range( "h2"、.range( "h"&.rews.count).end(xlup))
QS
の各Hの場合
ThisMonth= H.Value
このemonth= ""であれば
このWorkbook.Worksheetsの各WSについて
ws.nameのようなものである場合は、&"*"から
WS
set dest=.range( "a"&rows.count).end(xlup).OFFSET(1)
h.entirerow.copy dest
の場合は終了
次の
WSが何もない場合は
MSGBOX「「「&ThisMonth」のためのシートは見つかりません.データを確認してください.
h.parent.Select
H.Select
の場合は終了
スキップ:
次の
終了SUB
応答4# ->にスキップ3 #staceynありがとうございました.
私の無知の言い訳ですが、それは私にエラーを与えています
「月」のシートは見つかりません.データを確認してください.
しかし、私はそれが撮影しているコードのどこにでも見ることができませんか?
応答3# ->にスキップ1 #Andreas私のコードはあなたのデータを使ってシートを見つけるので、私たちはすべてのシートに1つのコードを1つだけ必要とします.
あなたのファイルを見せてください.
重要:あなたのファイルをzipあなたのファイル! https://support.microsoft.com/ja-jp/windows/zip-and-unzip-files-8D28FA72-F2F9-712F-67DF-F80CF89FD4E5
ログインする https://onedrive.live.com (このフォーラムとして同じログインIDとパスワードを使用してください).
上部の[アップロード]をクリックしてファイルを選択します.
アップロード後、ファイルを右クリックして[共有]を選択します.
左下のEdgeの[リンクのコピー]をクリックします(電子メールを入力する必要はありません).
リンクをコピーしてここに貼り付けます.
アンドレアス