• 締切済み

パソコン内部時計の修正をエクセルで出来ますか？

エクセルのVBAを使ってパソコンの内部日時を変更したいのですが方法を教えて下さい。 OSがXPでエクセル2003の時には下記のVBAで動作しました。 しかしOSがWin7でエクセル2010になると「エラー70」になりました。 PC内部の日付を修正する方法を教えて下さい。 宜しくお願いします。 　Sub PC_Date_Time() 　 With Worksheets("Sheet1") 　 Date$ = .Cells(2, 3) 　 Time$ = .Cells(3, 3) 　.Cells(5, 3) = 1 　End With 　End Sub

みんなの回答

  • todo36
  • ベストアンサー率58% (728/1234)
回答No.1

エラーになるのはUACが原因でしょう。 システム時計を設定するにはAdminに昇格する必要があります。 同じプロセスで昇格するのは難しいので、別プロセスを管理者権限で実行する。 CMD.EXEを起動してDOSコマンドのdate, timeで日時を設定するサンプル Set sha=CreateObject("Shell.Application") sha.ShellExecute "cmd.exe","/C ""date 2011/01/01 time 11:11:11""","","runas"

参考URL：
http://ebi.dyndns.biz/diary/20080813.html
kinjirou-1212
質問者

お礼

お礼が遅くなり申し訳ありません。 何とか自分で編集して作成できました。 有難うございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • このマクロを少し修正したい

    先日、こちらのサイトで下記のマクロを作っていただきました。 エクセルの置換えシートを使って、別のエクセルシートを一括置換えするマクロです。 ただ、置換えしたいシートのセルが結合していたり、文字の前に空欄が入っていると変換されません。 上記も認識しての置換えは、下記のマクロを修正して可能でしょうか？ 修正したマクロを教えていただけると助かります。 　With ThisWorkbook 　　If ActiveSheet Is .Worksheets(1) Then Exit Sub 　　For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row 　　　ActiveSheet.Cells.Replace _ 　　　　 What:=.Worksheets(1).Range("A" & i).Value, _ 　　　　 Replacement:=.Worksheets(1).Range("B" & i).Value, _ 　　　　 LookAt:=xlPart, SearchOrder:=xlByColumns 　　Next 　End With End Sub

  • パソコン内部時計の修正

    内部時計の修正方法を教えてください。今は桜時計で修正しているのですが、１２月ぐらいにある雑誌でレジストリを修正してソフトを使わずに修正する方法がありました。その方法を以前は使っていたのですが、それをメモせずにＯＳの再インストールをしてしまったためにわからなくなってしまいました。ソフトを使わずに、レジストリを修正して内部時計を修正する方法を教えてください。できれば細かく教えてください。ＯＳはＷｉｎＸＰ。パソコンはＮＥＣ　ＬａＶｉｅＬです。

  • アクティブでないシートのセルを選択

    Excel VBAでアクティブでないシートのセルをSelectすることはできないのでしょうか。 Selectメソッドというのは，もともとそういうものなのでしょうか。 エラー： 「RangeクラスのSelectメソッドが失敗しました。」 コード Sub aaa() With Worksheets("Sheet2") .Range(.Cells(44, 1), .Cells(48, 21)).Select End With End Sub

  • ExcelのマクロをAccessで動かすには…

    今までExcelを使用していてVBAも段々と理解してきたのですが 今回Accessを使用することになって詰まってしまいました。 下のようなExcelのマクロ(VBA)があるのですが、 これをAccessでも同じように動かしたいのですがわかりません(汗) ----------------------------------------------- Sub テスト() Dim GYO As Long GYO = 1 Do Until Worksheets("テスト").Cells(GYO, 1).Value = "" If Worksheets("テスト").Cells(GYO, 1).Value >= 80 Then Worksheets("テスト").Cells(GYO, 2).Value = "合格" Else Worksheets("テスト").Cells(GYO, 2).Value = "不合格" End If GYO = GYO + 1 Loop End Sub ----------------------------------------------- これでAccessのレコード一つ一つの合否を入力する欄に 自動で入力されるようにしたいのですが、 Accessでの記述方法がよくわからないのです。(^_^;) お詳しい方、よろしくお願いしますm(_ _)m

  • VBAの修正・上書きについて

    下記、コードにてVBAで作成したユーザーフォームにエクセルで管理している 顧客名簿を表示させ、修正をした後、元のセルに修正したものを 上書きするというコードを書きたいのですが、 実行時エラーにて作動しません。 下記をどのように、直せばいいのかご指摘お願いします。 ※その他に、検索ボタンのプロシージャもありますが、こちらに載せたほうが いいのでしょうか? （修正ボタンを押したときのプロシージャ） Private Sub CommandButton1_Click() Dim gyou As Long Dim z As Object Dim i As Integer With Worksheets("Sheet1") gyou = z.Row For i = 1 To 16 Cells(gyou, i).Value = Me.Controls("TextBox" & i).Text Next End With TextBox1.SetFocus End Sub

  • Excel VBAを使って、Excelデータを別のExcelファイルに取り込みします

    報告書にexcel VBAを使って、（報告書を開いたまま）報告書のデータを別のexcelファイル（一覧）に取り込みします。 Sub k() Dim ブック As Workbook Set ブック = Workbooks.Open("c:\テスト\" & "一覧.xls") ブック.Worksheets("Sheet1").Cells(3, 2) = Worksheets("企業情報シート").Cells(3, 3) End Sub 報告書の"Worksheets("企業情報シート").Cells(3, 3)"は書き方がおかしいみたいで、正しい書き方を教えてください。

  • VBA 変数について

    VBA初心者でございます。 VBAでgrpという変数を設定し、それをキーにしてオートフィルタをしたいです。 以下のコードではエラーがでてしまうのは、なぜでしょうか？ どうぞ宜しくお願いいたします。 Sub 絞り込み2() Dim grp Set grp = Worksheets("リスト").Cells(3, 2) Worksheets("マスタ0701").AutoFilterMode = False With Worksheets("マスタ0701").Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)) .AutoFilter Field:=13, Criteria1:=grp '.CurrentRegion.Select Range(Cells(3, "B"), Cells(Rows.Count, "CK").End(xlUp)).SpecialCells(xlVisible).Copy Worksheets("検索結果").Range("A1") '.AutoFilter End With End Sub

  • エクセルＶＢＡユーザーフォーム・リストボックスについて

    エクセルＶＢＡにてユーザーフォームを作りリストボックスにSheet1、AからEのデータすべてを 表示させることは出来るのですが、Ｅ行にデータがある物のみ表示する方法をご存じの方教えて頂けないでしょうか。 入力したソースは下記のとおりです。 Private Sub UserForm_Click() Dim lastRow As Long With Worksheets("Sheet1") lastRow = .Cells(Rows.Count, 5).End(xlUp).Row End With With ListBox1 .ColumnCount = 5 .ColumnWidths = "35;25;30;100;25" .RowSource = "Sheet1!A2:E" & lastRow .ColumnHeads = True End With End Sub

  • エクセルVBAについて

    エクセルVBA初心者で、勉強している者です。 今、ガントチャートのようなものを作っているのですが、 下記のような記述をしたのですがうまく動きません。 ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ Sub 時間グラフ作成() If Worksheets("(1)(1)(1)(1)(1)").Range("F2").Value = "10:00" Then Worksheets("(2)(2)(2)(2)").Range("T2").Select With Selection.Interior .ColorIndex = 8 .Pattern = xlSolid End With End If End Sub ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ F2のセルを空にし、「""」で実行すると動きました。 色々調べてみたものの、煮詰まってしまいました・・・。 よろしくお願いいたします。

  • エクセルVBAについて

    エクセルVBA初心者で、勉強中の者です。 添付画像のような時間のグラフのようなものを作りたいと思っています。 ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ Sub 時間グラフ作成() If Worksheets("(1)(1)(1)(1)(1)").Range("F2").Value = CDate("9:05") Then Worksheets("(2)(2)(2)(2)").Range("I2").Select 　With Selection.Interior 　　.ColorIndex = 8 　　.Pattern = xlSolid 　End With Elseif Worksheets("(1)(1)(1)(1)(1)").Range("F2").Value = CDate("9:10") Then Worksheets("(2)(2)(2)(2)").Range("J2").Select 　With Selection.Interior 　　.ColorIndex = 8 　　.Pattern = xlSolid 　End With 　・ 　・　 　・ End If End Sub 'それから、終了の時間を入れて、開始から終了までの間を塗りつぶす。 ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ 以上のように作成しようと考えていましたが、いざやろうとすると 1行に対してあまりにも膨大な記述をしなくてはならないことに 気がつきました(一月分ともなると恐ろしいです・・・)・・・。 もっと効率的な方法はあるものでしょうか？ よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する