Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11063 / 76735

←次へ　｜　前へ→


	【71213】レジストリー

亜矢 - 12/2/10(金) 18:13 -


	引用なし

	パスワード

よろしくお願いします。
　下記のプログラムは自宅のパソコンで実施して問題の無い状態です。
　実際には会社のサーバーにこのプログラムを入れて、自分専用のパソコンで
　起動することになりますが、このときのレジストリとはサーバーに
　なるのか、あるいは自分専用のパソコンになるのか教えていただきたいと
　おもいます。
　Private Sub CommandButton1_Click()
Call Module1.コンピュータ名を取得する_WSH
If Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" And Me.TextBox3.Text <> "" And Me.TextBox4.Text <> "" And Me.TextBox5.Text <> "" Then
　　If Module1.PC名 = "NPC" Then
　　　　On Error Resume Next
　　　 DeleteSetting "NPC", "Main"
　　　 SaveSetting "NPC", "Main", "Text1", Me.TextBox1.Text
　　　 SaveSetting "NPC", "Main", "Text2", Me.TextBox2.Text
　　　 SaveSetting "NPC", "Main", "Text3", Me.TextBox3.Text
　　　 SaveSetting "NPC", "Main", "Text4", Me.TextBox4.Text
　　　 SaveSetting "NPC", "Main", "Text5", Me.TextBox5.Text
　　Else
　　　 On Error Resume Next
　　　 DeleteSetting "YMC", "Main"
　　　 SaveSetting "YMC", "Main", "Text1", Me.TextBox1.Text
　　　 SaveSetting "YMC", "Main", "Text2", Me.TextBox2.Text
　　　 SaveSetting "YMC", "Main", "Text3", Me.TextBox3.Text
　　　 SaveSetting "YMC", "Main", "Text4", Me.TextBox4.Text
　　　 SaveSetting "YMC", "Main", "Text5", Me.TextBox5.Text
　　End If
Else
　MsgBox "データが不正です"
End If
End Sub
　よろしくお願いします。

5 hits

▼

【71213】レジストリー 亜矢 12/2/10(金) 18:13

≪