Office Home and Student 2010を購入してインストール済です。
しかし、Officeを立ち上げるといつもMicrosoft Office Professional 2010 Trialが立ち上がってします。
NEXTボタンをクリックするとプロダクトキーを要求されますので入力し、再度Office を立ち上げるとnon-commercial useになります。
しかしPCをシャットダウンするとまた同じ状況に戻ってしまします。Trial Version で使用可能ですがせっかくOffice Home and Student 2010を購入しているので使いたいですし、Trial Versionは期限付きです。PC購入とOffice Home and Student 2010インストールは今年の6月です。
尚、Office を立ち上げる時間は異常に遅いです。
毎回、毎回こんな作業をしたくありません。
ちなみに当方マレーシアにいます。ａｃｅｒのデスクトップＰＣを購入しJapanese Microsoft IMEをインストールして使っています。
コンボボックスのクリックイベントについて。
コンボボックスの▼ボタンをクリックしたらイベントを発生させたいのですが
Private Sub コンボ0_Click()
MsgBox ""
End Sub
として、▼ボタンを押しても無反応です。
どうやらClickイベントは値が入力されたら発生するようですが
値を入力する前に、▼ボタンでプルダウンで値を入力しようとしたとき位
発生させるにはどうすればいいでしょう？
GotFocusイベントだと、▼ボタン以外の部分に触れてもイベントが発生してしまいます。
filedialogでファイル名取得しようとしてます。
With Application.FileDialog(msoFileDialogFilePicker)
.Show
for i=1 to selecteditems.Count
p(i) = .SelectedItems(i)
next i
Debug.Print p
End With
質問１
Showにて選択したファイル名がselecteditemsコレクションに入る筈ですが、順番はどうなるのでしょうか？選択順？それともファイル名順？
質問２
あわよくば、の質問です。
selecteditemsコレクションに入ったファイル名の文字列を取り出すだけのために、わざわざfor nextを使ってます。もうちょっとウマイ方法はないでしょうか。せっかくコレクションに入ったのなら、そのまま使う方法とか。この後のファイル名の用途は、図を挿入します。
どなたかご教授お願い致します。
・エクセルの当該ブックを、起動10分後に自動終了（保存しない）させる
・開いている間は、10分のカウントダウンを「分：秒」でA1セルに表示する
以上を実行したいのですが、VBAは全く素人ですので、うまくいきません。
見よう見まねで、以下のようなことをしましたが、結局ダメでした。
何卒、よろしくお願い致します。
ThisWorkbook Workbook Open
Private Sub Workbook_Open()
test01
Application.OnTime Now + TimeValue("00:10:00"), "終了"
End Sub
標準モジュール Module1
Sub 終了()
ThisWorkbook.Close Savechanges:=False
Application.Quit
End Sub
Sub test01()
With Sheets("バックアップ").Range("A1")
.Value = Time
.NumberFormatLocal = "mm:ss"
End With
Application.OnTime Now + TimeValue("0:00:01"), "test01"
End Sub
どなたかご教授お願い致します。
・エクセルの当該ブックを、起動10分後に自動終了（保存しない）させる
・開いている間は、10分のカウントダウンを「分：秒」でA1セルに表示する
以上を実行したいのですが、VBAは全く素人ですので、うまくいきません。
見よう見まねで、以下のようなことをしましたが、結局ダメでした。
何卒、よろしくお願い致します。
ThisWorkbook Workbook Open
Private Sub Workbook_Open()
test01
Application.OnTime Now + TimeValue("00:10:00"), "終了"
End Sub
標準モジュール Module1
Sub 終了()
ThisWorkbook.Close Savechanges:=False
Application.Quit
End Sub
Sub test01()
With Sheets("バックアップ").Range("A1")
.Value = Time
.NumberFormatLocal = "mm:ss"
End With
Application.OnTime Now + TimeValue("0:00:01"), "test01"
End Sub
1.メーカーロゴが出る➡︎2.Windowsロゴが出る➡︎3.黒い画面に白い文字が出てくる。「Windowsを通常起動」を選択➡︎1～3の繰り返しで起動しない。セーフモードを選択しても1～3の繰り返しです。
Windows xpです。デスクトップのパソコンです。故障する前はいつも通り起動してました。購入して4年ですが寿命なんでしょうか?
