有効 無効どちらにしたらいいかアドバイスお願いします。
msconfig に乗っている項目ですELAN Smart-PadASUS WebStorageIconUtilityIntel(R) Common User Interface (同じのが3つあります)HDAudioCPLATK HotkeyATKOSD2ATK MediaK7TotalSecurity 2009Adobe Reader and Acrobat ManagerAdobe Acrobatソースネクスト アップデートJava(TM) Platform SE Auto Updater 2.0P2P地震情報FancyStart daemonInstallShieldADSMTrayASUS Screen Sever ProtectorCyberLink MediaLibray ServiceMUI StartMenu Application (同じのが2つあります)Camera Moniter SDOpenOffice.org 3.2で全てです。
今のインターネット環境は内臓無線LANを使用しての接続です。
HOMEグループは作っていません。
自宅で個人PCです。
OS Windows7 home premium 64ビット CPU Prnt.T31000メーカーはASUSです。
ノートPCです。
無駄な情報があったらすみません
Apple Application Support was not found.Error2(windows error2)となっています。
どうしたらよいでしょう。
普通は問題なく動くのですが、新しい行を追加するとイベントが動作しません。
その場合にはイミディエイトウインドウに「Application.EnableEvents = True」と入れ実行するとその追加した行も動作するようになりますが、いちいち行を追加するたびにコードを入力するは面倒です。
下記の記述をどうしたらコードを実行しなくても動作するのでしょうか。
よろしくお願いします。
Private Sub Worksheet_Change(ByVal Target As Range)Dim myRange As RangeDim c As RangeSet myRange = Application.Intersect(Range("AM3:AM65536"), Target)Application.EnableEvents = FalseIf myRange Is Nothing Then Exit SubElse If Target.Count = 1 Then If Target.Value = "" Then Target.Offset(0, -14) = "未" Else Target.Offset(0, -14) = "済" End If Else For Each c In myRange If c.Value = "" Then c.Offset(0, -14) = "未" Else c.Offset(0, -14) = "済" End If Next End IfEnd IfApplication.EnableEvents = TrueEnd Sub
うかつにも、有料製品を購入してしまい、後悔しております。
過去の質問を参考に解約の旨伝えたところ、こんな返答が・・今後どのように進めたらよろしいでしょうか?
Thank you for contacting us for assistance.This is Helen from Uniblue Customer Support team.I am sorry about the issues you have encountered with Uniblue RegistryBooster. Please rest assured that your communication with our technical support representative, will help us improve the product for the benefit of future users.I have checked your order details and can confirm that you are eligible for a refund. However, if you would prefer, we can offer you a product-exchange whereby we will swap your application with either SpeedUpMyPC OR DriverScanner. Furthermore, in recognition of the inconvenience you have experienced so far, we will also bundle in PixelPerfect: our useful photo editor/organizer application. For more information about this product visit:http://www.liutilities.com/products/campaigns/support/pp/index.htmlKindly note that this offer does not affect your entitlement to receive a refund as long as you are within the 30 days from the original purchase date.Please advise how you would like to proceed within 7 days.Please let me know should you require any further assistance.再度メールすると・・・Thank you for getting back to us. Kindly note that your order has been refunded and will be credited back into your account within 5 to 7 business days.Please let me know should you require any further assistanceお助けください・・。
私は取った音楽をiPodに送ることにしかiTunesを使っておらずPC内で音楽を聴いたりしません。
なので余分なソフトは消したいのですがどれなら消しても大丈夫なものなのか分かりません。
本文に書いたものの中で消してもiPodに音楽を送るのに支障の出ないソフトを教えて下さいm(_ _)m
)をドライブDなどに変更するにはどうすればいいのでしょうか?
ご指導お願いします。
訳してもいまいち意味がわからなくて困っています。
マクロ初心者です。
長くてごめんなさい。
ネットを参照しながら「エクセルの複数ファイルを一括でパスワードをかけるマクロ」を作成しました。
ワードでも作成しようとしましたが、うまくいきません。
以下は、エクセル用に作成したマクロを、ワード用にファイルタイプをWordDocumentsへ変更しWorkbooksをDocumentsへ、WorkbookをDocumentへ修正しています。
因みにエクセルでは、一括でパスワードをつけることができました。
詳しい方ご教授下さい。
宜しくお願いします。
Sub PW設定()Dim openFilePath As StringDim passWord As VariantDim FSOSet FSO = CreateObject("Scripting.FileSystemObject")openFilePath = "ファイルまでのパス"passWord = "パスワード"With Application .DisplayAlerts = False .ScreenUpdating = False With .FileSearch .NewSearch .LookIn = openFilePath .FileType = msoFileTypeWordDocuments If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Documents.Open .FoundFiles(i) If MsgBox(.FoundFiles(i) & "をパスワード保存しますか?", _ vbQuestion + vbYesNo) = vbYes Then ActiveDocument.SaveAs _ Filename:=.FoundFiles(i), _ passWord:=passWord End If ActiveDocument.Close False Next i End If End With .ScreenUpdating = True .DisplayAlerts = TrueEnd WithMsgBox "終了しました。
パスワードを忘れないように注意してください。
" & _ "パスワードは " & passWord & " です。
"
ダウンロードできるサイトを教えて下さい「NiconamaCommentViewer」はhttp://www.posite-c.com/application/ncv/#introductionからDLできます。
というのをみて試みたんですがわかりませんでした。
もうすこし詳しくおねがいします><。