新着情報

HOME › 新着情報一覧 › 新着情報

連携パス シートの並びについて(脳卒中、頚部骨折共通事項)

連携パス シートの並びについて(脳卒中、頚部骨折共通事項)

本来、シートの並びが、
急性期病院/連携先施設/全体連携図/Export用/Import用 となっているはずが、
急性期病院/全体連携図/連携先施設/Export用/Import用 と入れ替わっているケースがあるようです。
現在のコードは、シートを左から順に
Worksheets(1)/Worksheets(2)/Worksheets(3)/Worksheets(4)/Worksheets(5)/
と認識させています。急性期病院データの連携先施設へのコピーは次のとおりです。

Sub コピー()
Application.ScreenUpdating = False
If MsgBox(\"急性期病院からデータを引き継ぎます。よろしいですか?\",
vbYesNo, \"確認\") = vbYes Then
Worksheets(1).Activate
Worksheets(1).Range(\"B6:AF66\").Select
Selection.Copy
Worksheets(2).Activate
Worksheets(2).Range(\"B6:AF66\").Select
ActiveSheet.Paste
 (中略)
End If
Application.ScreenUpdating = True
End Sub

つまり、急性期病院データが全体連携図にコピーされてしまい、全体連携図もうまく動作しません。
そのため、シートの並び順は変えないように、また、変わっていた場合は
急性期病院/連携先施設/全体連携図/Export用/Import用 の順に直していただくよう、ご注意をお願いいたします。