pcb39431のプロフィール
- ベストアンサー数
- 16
- ベストアンサー率
- 84%
- お礼率
- 25%
- 登録日2010/09/10
- ボタンをクリックしてファイルを開く
Microsoft Visual Basic 2010 Expressを使ってプログラミングをし始めた初心者です。 Windowsフォームアプリケーションを作っているのですが、わからないことがありましたので質問します。 あるボタンを作り、そのボタンを押したときに特定のファイルをシステムで設定してある既定のプログラム(docxならWord、xlsxならexcelなど)で開くプログラムを作成したいです。 うまく説明できてないと思うので、下記が例です。 「Button1」を作ったとします。 そして、「Button1」をクリックしたときに、 例えばマイドキュメントの「A.docx」をWordで開くように設定するには どのようにクリックイベントのプログラムを作成すればよいのでしょうか? よろしくお願いします。
- 締切済み
- Visual Basic
- y-king2
- 回答数5
- 複数行コピー、貼り付け実行時エラー1004
ユーザー側が任意の場所を選択コピー し(2行毎) また 任意の位置に貼り付ける動作ですが 1回目のコピー、貼り付けは正常動作しますが 再度 コピー(任意の場所),貼り付け時に1004実行エラーが発生します。 下記はコードです。 どうかご教授お願いいたします。 Dim StartRow As Long, LastRow As Long, SRC As Long Sub コピー() If ActiveCell.Row < 76 Then Exit Sub StartRow = ActiveCell.Row: SRC = Selection.Rows.Count If (ActiveCell.Row Mod 2) = 0 Then StartRow = ActiveCell.Row If (Selection.Rows.Count Mod 2) = 0 Then LastRow = StartRow + Selection.Rows.Count - 1 Else LastRow = StartRow + Selection.Rows.Count End If Else StartRow = ActiveCell.Row - 1 If (Selection.Rows.Count Mod 2) = 0 Then LastRow = StartRow + Selection.Rows.Count + 1 Else LastRow = StartRow + Selection.Rows.Count End If End If ActiveSheet.Range(ActiveSheet.Cells(StartRow, 1), ActiveSheet.Cells(LastRow, 19)).Copy End Sub Sub 貼付け() If ActiveCell.Row >= 76 Or Application.ClipboardFormats(1) <> -1 Then ActiveSheet.Unprotect If (ActiveCell.Row Mod 2) = 0 Then StartRow = ActiveCell.Row Else StartRow = ActiveCell.Row - 1 End If ActiveSheet.Paste Destination:=Cells(StartRow, 1): Application.CutCopyMode = False ActiveSheet.Protect End If End Sub
- 締切済み
- Visual Basic
- maru0130
- 回答数1
- XPの「コントロールパネル→ネットワーク接続」で
インターネットにワイヤレスネットワーク接続で接続しようと思ったところ、コントロールパネル→ネットワーク接続の中のワイヤレスネットワーク接続、ローカルエリア接続とあるはずの中のワイヤレスネットワーク接続がなく、困っております。どうしたら表示されるでしょうか。何かインストールしたりするのでしょうか。
- 締切済み
- ネットワーク
- daimaxisupe
- 回答数3