pcb39431のプロフィール

@pcb39431 pcb39431
ありがとう数23
質問数3
回答数47
ベストアンサー数
16
ベストアンサー率
84%
お礼率
25%

  • 登録日2010/09/10
  • ボタンをクリックしてファイルを開く

    Microsoft Visual Basic 2010 Expressを使ってプログラミングをし始めた初心者です。 Windowsフォームアプリケーションを作っているのですが、わからないことがありましたので質問します。 あるボタンを作り、そのボタンを押したときに特定のファイルをシステムで設定してある既定のプログラム(docxならWord、xlsxならexcelなど)で開くプログラムを作成したいです。 うまく説明できてないと思うので、下記が例です。 「Button1」を作ったとします。 そして、「Button1」をクリックしたときに、 例えばマイドキュメントの「A.docx」をWordで開くように設定するには どのようにクリックイベントのプログラムを作成すればよいのでしょうか? よろしくお願いします。

    • y-king2
    • 回答数5
  • A6版縦長で原稿を作りたいです。

    パソコンでA6縦長の原稿を作る方法を教えてください。

    • noname#128100
    • 回答数3
  • 複数行コピー、貼り付け実行時エラー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

  • XPの「コントロールパネル→ネットワーク接続」で

    インターネットにワイヤレスネットワーク接続で接続しようと思ったところ、コントロールパネル→ネットワーク接続の中のワイヤレスネットワーク接続、ローカルエリア接続とあるはずの中のワイヤレスネットワーク接続がなく、困っております。どうしたら表示されるでしょうか。何かインストールしたりするのでしょうか。

  • Windows XP SP3 検索

    Windows XP SP3に付属の検索機能の名称とバージョンを教えてください。

    • noname#124872
    • 回答数2