Set checknm = ws.Range(ws.Cells(i, 2).Text).Name If InStr(checknm, "check") > 0 Then If ws.Cells(i, 2).Value = "" Then GoTo Cont のように変更してみましたが、エラーになります。 エラーは 「実行時エラー'1004':
パーソナル コンピューター、タブレット、ノート PC、電話、モノのインターネット デバイス、自己完結型 Mixed Reality ヘッドセット、大規模なコラボレーション画面、その他のデバイスにわたって実行される Microsoft オペレーティング システムのファミリ。 78 件の質問 サインインして...
実行時エラー'1004' 'Range'メゾットは失敗しました。'Worksheet' オブジェクト 実行時エラー3706 「プロバイダーが見つかりません。正しくインストールされていない可能性があります。」が表示されます。 数字や文字を打ち込んだ時、別のセルに日付を表示させたい 数百枚のword の内容をaccess...