pcb39431 の回答履歴
- ボタンをクリックしてファイルを開く
Microsoft Visual Basic 2010 Expressを使ってプログラミングをし始めた初心者です。 Windowsフォームアプリケーションを作っているのですが、わからないことがありましたので質問します。 あるボタンを作り、そのボタンを押したときに特定のファイルをシステムで設定してある既定のプログラム(docxならWord、xlsxならexcelなど)で開くプログラムを作成したいです。 うまく説明できてないと思うので、下記が例です。 「Button1」を作ったとします。 そして、「Button1」をクリックしたときに、 例えばマイドキュメントの「A.docx」をWordで開くように設定するには どのようにクリックイベントのプログラムを作成すればよいのでしょうか? よろしくお願いします。
- 締切済み
- y-king2
- Visual Basic
- 回答数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
- 締切済み
- maru0130
- Visual Basic
- 回答数1
- XPの「コントロールパネル→ネットワーク接続」で
インターネットにワイヤレスネットワーク接続で接続しようと思ったところ、コントロールパネル→ネットワーク接続の中のワイヤレスネットワーク接続、ローカルエリア接続とあるはずの中のワイヤレスネットワーク接続がなく、困っております。どうしたら表示されるでしょうか。何かインストールしたりするのでしょうか。
- 締切済み
- daimaxisupe
- ネットワーク
- 回答数3
- Windows2008上でVB6アプリの動作が異常
Windows2008上でVB6アプリの動作が異常です。 異常の概要) Collection のキーに漢字を使用すると、エラーが発生する場合がある。 Windows 2000/XP/2003 では再現しません。 またWindows2008でも、キーがANKである場合も再現しません。 エラー) 実行時エラー'5' プロシージャの呼び出し、または引数が不正です。 再現プログラム) フォームにボタンとリストボックスを貼って以下のコードを記述し 実行すると、20分程度でエラーが発生します。 Private Sub Command1_Click() Dim c As Collection Set c = New Collection c.Add 1, "明細KEY" c.Add 2, "販売区分" c.Add 3, "伝票NO" While True DoEvents List1.AddItem c("明細KEY") List1.AddItem c("販売区分") List1.AddItem c("伝票NO") List1.Clear Wend End Sub
- 締切済み
- soumusan
- Visual Basic
- 回答数2
- ボタンをクリックしてファイルを開く
Microsoft Visual Basic 2010 Expressを使ってプログラミングをし始めた初心者です。 Windowsフォームアプリケーションを作っているのですが、わからないことがありましたので質問します。 あるボタンを作り、そのボタンを押したときに特定のファイルをシステムで設定してある既定のプログラム(docxならWord、xlsxならexcelなど)で開くプログラムを作成したいです。 うまく説明できてないと思うので、下記が例です。 「Button1」を作ったとします。 そして、「Button1」をクリックしたときに、 例えばマイドキュメントの「A.docx」をWordで開くように設定するには どのようにクリックイベントのプログラムを作成すればよいのでしょうか? よろしくお願いします。
- 締切済み
- y-king2
- Visual Basic
- 回答数5
- ノートンのセキュリティーで画像が表示されません。
パソコンを買い替えたので、もともと入っていた Norton Internet Security 2011をインストールしたところ、 ほとんどのWebサイト上の画像や広告があるはずのところに赤いバツ印が表示されるようになってしまいました。 色々調べて原因がクッキーやインターネット接続の問題ではなく ノートンのセキュリティソフトの問題であることまでは分かりました。 そこでノートンのサポートサイトを見ると、解決法の説明に 「Norton Internet Securityを起動して中央にある『広告ブロック』を押し・・・」と書いてあります。 ところが私がインストールした2011版(よく調べると2007版以降は全てでした)には 『広告ブロック』の項目が無く、どうしたらいいかわかりません。 そのほかの解決法に示されたボタンや項目も見当たらず、対処のしようがなくなってしまいました。 サイトの最終更新日も2007年だったり2005年だったりと、どれが正しいのか分かりません。 どなたか画像が表示されるようにする方法を教えてください。お願いします。 OSはMicrosoft Windows 7 Home Premiumで、 ブラウザはInternet Explorer 8です。
- ORACEL UPDATEがうまくいきません
明けましておめでとうございます。本年もよろしくお願いします。 覚えたてのRANK関数を使って以下の処理を実現したいのですが、うまくいきません。 エラー”ORA-01427: 単一行副問合せにより2つ以上の行が戻されます”が出てしまいます。 どのように対処すれば良いか、教えて頂けないでしょうか? ※SQL文は最後尾に記載しています。INSERT文の方は、うまくいってます(2000文字越えのため INSERT文は載せていません) UPDATEの方は、UPDATE文を除いてSELECT文では店コードは各1件しか表示されないのですが・・・ また、SQL文も長々となってしまい、後々メンテ時には苦労しそうなので、RANK文以外に 何かいい案があれば教えて頂きたいと思います。 ※マージは使用しない方針らしいので、それ以外で何かないでしょうか・・ 以上、よろしくお願いします。 【処理】 トランより抽出したレコードの店CDより、マスタのデータを更新する。 存在しない店CDの場合、追加を行う。 ただし トラン上に同一店CDのレコードが複数存在する場合は、登録日の新しいもの優先する。 登録日が同じ場合は、登録者の大きい方を対象とする。 登録日、登録者ともに同じ場合は、連番の小さい方を優先する 例) トラン(キー:日付・連番) 日 付 連番 登録日 登録者 店CD データ ┼───┼──┼───┼───┼───┼───┼ │12/10 │001 │12/09 │ 80 │ 0001 │DATA-A│ │12/10 │002 │12/10 │ 10 │ 0001 │DATA-B│→登録日が新しい方を優先 │12/10 │003 │12/10 │ 10 │ 0003 │DATA-C│ │12/10 │004 │12/10 │ 50 │ 0005 │DATA-D│ │12/10 │005 │12/10 │ 80 │ 0005 │DATA-E│→登録日が同じ場合、登録者の大きい方を優先 │12/10 │006 │12/10 │ 20 │ 0005 │DATA-F│ │12/10 │007 │12/10 │ 10 │ 0006 │DATA-G│→登録日、登録者が同じ場合、連番の小さい方を優先 │12/10 │008 │12/10 │ 10 │ 0006 │DATA-H│ マスタ(キー:店CD) 店CD データ ┼───┼───┼ │ 0001 │DATA-Z│ │ 0002 │DATA-Y│ │ 0004 │DATA-W│ │ 0005 │DATA-V│ │ 0006 │DATA-R│ 【結果】 マスタ(キー:店CD) 店CD データ ┼───┼───┼ │ 0001 │DATA-A│→更新 │ 0002 │DATA-Y│ │ 0003 │DATA-C│→追加 │ 0004 │DATA-W│ │ 0005 │DATA-E│→更新 │ 0006 │DATA-R│→追加 ■更新用のSQL UPDATE マスタ SET( データ )=( SELECT データ FROM (SELECT * FROM (SELECT RANK() OVER(PARTITION BY 店CD ORDER BY 登録日 DESC, 登録者 DESC, 連番 ) wRANK, 店CD, データ FROM トラン WHERE EXISTS(SELECT * FROM マスタ WHERE トラン.店CD=マスタ.店CD) ) WHERE wRANK = 1 ) );
- パソコン上に別ウィンドウ(広告)が勝手に開きます。
こんばんは。誰か助けてください。 パソコン上に別ウィンドウ(広告)が勝手に開いて困っています。 Windows Vistaを使っています。 最近インターネットを使っている際に exploreの別ウィンドウが勝手に開いて困っています。 内容は広告、英語のもの、日本の有名な会社などです。 数十分に1件くらいの発生で、消していかないとどんどん増えていきます。 そのたびに消せばいいのでは?>頻繁なのでうっとうしいです。 インターネットはfirefoxを利用していて、exploreは全く使っていません。 最近ダウンロードしたものは picasaとtrendmicroのウイルスバスターくらいです。 アダルトサイトなどは行っていません。 他の方の質問の答えを参照して (1)ウイルスバスターでウイルス確認>ウイルスなしの結果 (2)Exploreのインターネットオプションから規定状態への設定のリセット>変化なし >再起動 はしてみましたがお手上げです。 何か解決方法をご存じの方は教えていただけると助かります。
- 締切済み
- ranntakunn
- ネットワーク
- 回答数1
- VB6の習得について
現在、小さな会社で研究開発の仕事をしています。 これまでプログラミングの経験はないのですが業務の必要上、 既存のプログラム(VB6、約6000行)を修正、場合によっては 一から書き直すように指示がありました。これにあたって上司のスタンスですが、 ・たとえ初心者だとしても、「練習のためのコーディング」は業務時間には認めない 何らかの形で製品に反映されるコーディングのみを認める ・今後のメンテナンスのことも考えると、VBの6以降のバージョンは使ってはいけない VB6の範囲で完結させるように ・そもそもコーディングとは好きな人、向いている人が、人から言われなくても 書くものだ、だから自宅で練習やコーディングをするのが当然だ ・お前ができないなら、外注に出す(今の私は契約社員なので、立場はかなり悪くなります) ある程度なら、自腹で開発環境を自宅におこうかとも思ったのですが、最新のVBならともかく VB6は私の知る限り、正規の方法でインストールは難しいようです。(できたとしても非常に高額) VB6を含めてVBをある程度マスターしたいという気持ちはあるのですが、今の状況で どのような手段がベストでしょうか? また、VB6でコーディングしたテキストと最新のVBとの互換性などはどのような関係にあるのでしょうか? ご教示のほど、よろしくお願いします。
- 締切済み
- inorganicchemist
- Visual Basic
- 回答数6
- マイクロソフトWEBサイトの偽造品報告ページ
マイクロソフトWEBサイトの偽造品報告ページ http://www.microsoft.com/howtotell/reports/report.aspx?displaylang=ja から手持ちの偽造品ぽいOSについて報告しました。 しかし1週間以上経ちますが何の応答もありません。 もっと待っていると何か応答があるんでしょうか、それとも一方的に報告をするためだけのページで、基本的に応答はないんでしょうか。
- ベストアンサー
- Kevin1964
- Windows系OS
- 回答数1
- Canon ip2600 プリンタの分解法???
Canon ip2600 プリンタを使用していますが、数枚の用紙を巻き込みでしまいました 用紙の一部がプリンタの送り部分に残ってしまい取り除けません ボディカバーを外せば除去出来ると思うのですが、カバーが外せません カバーの取り外し手順を教えてください お願いします
- ベストアンサー
- sato-may
- ハードウェア・サーバー
- 回答数1
- Win7でコードレスマウスでスリープできない
SANAWAのMA-LSW4Rがお亡くなりになりました。しくしく。 AmazonでMA-NANOLS3Rを発注したのですが、つなぎに、Microsoft Wireless Notebook Optical Mouse 4000 V1.0 (Vista 買ったらおまけで付いてきた)を使ったら、スタートメニューのスリープを選んでも、画面は暗転するのですが、すぐにログインウィンドウに引き戻されます。本体の休止状態にする電源ボタンもすぐにログインウィンドウに引き戻されます。 Amazonさんの配送が来たので、Intellipoint はアンインストールして、SANWA の Scroll mouse II をインストールしたのですが、状態が変わらず。いつも電源が入りっぱなしのマシンになってたしまいました。 MA-LSW4Rのときは、すなおにスリープしてくれていたのですが。 環境情報 マザーボード:Gigabyte GA-EP35-DS3R OS : Windows 7 enterprise 64bit 版 メモリ : 8GB LANの WOL 関係は無効にしてあります Mouse の「このマウスで電源の回復が出来る」は無効にしてあります。
- ベストアンサー
- くりはら にゃーにゃ
- Windows系OS
- 回答数2
- ボタンをクリックしてファイルを開く
Microsoft Visual Basic 2010 Expressを使ってプログラミングをし始めた初心者です。 Windowsフォームアプリケーションを作っているのですが、わからないことがありましたので質問します。 あるボタンを作り、そのボタンを押したときに特定のファイルをシステムで設定してある既定のプログラム(docxならWord、xlsxならexcelなど)で開くプログラムを作成したいです。 うまく説明できてないと思うので、下記が例です。 「Button1」を作ったとします。 そして、「Button1」をクリックしたときに、 例えばマイドキュメントの「A.docx」をWordで開くように設定するには どのようにクリックイベントのプログラムを作成すればよいのでしょうか? よろしくお願いします。
- 締切済み
- y-king2
- Visual Basic
- 回答数5
- ボタンをクリックしてファイルを開く
Microsoft Visual Basic 2010 Expressを使ってプログラミングをし始めた初心者です。 Windowsフォームアプリケーションを作っているのですが、わからないことがありましたので質問します。 あるボタンを作り、そのボタンを押したときに特定のファイルをシステムで設定してある既定のプログラム(docxならWord、xlsxならexcelなど)で開くプログラムを作成したいです。 うまく説明できてないと思うので、下記が例です。 「Button1」を作ったとします。 そして、「Button1」をクリックしたときに、 例えばマイドキュメントの「A.docx」をWordで開くように設定するには どのようにクリックイベントのプログラムを作成すればよいのでしょうか? よろしくお願いします。
- 締切済み
- y-king2
- Visual Basic
- 回答数5
- vectorからダウンロードできません。
vectorからダウンロードしようとすると、添付画像のような画面が表示されて何もできなくなってしまいます。 原因はなんだと思われますか?
- ベストアンサー
- satoutomoya
- ネットワーク
- 回答数3
- XPの「コントロールパネル→ネットワーク接続」で
インターネットにワイヤレスネットワーク接続で接続しようと思ったところ、コントロールパネル→ネットワーク接続の中のワイヤレスネットワーク接続、ローカルエリア接続とあるはずの中のワイヤレスネットワーク接続がなく、困っております。どうしたら表示されるでしょうか。何かインストールしたりするのでしょうか。
- 締切済み
- daimaxisupe
- ネットワーク
- 回答数3
- vectorからダウンロードできません。
vectorからダウンロードしようとすると、添付画像のような画面が表示されて何もできなくなってしまいます。 原因はなんだと思われますか?
- ベストアンサー
- satoutomoya
- ネットワーク
- 回答数3