MAXIMAX の回答履歴

全162件中61~80件表示
  • Win32 コンソールアプリケーション

    VisualC++ 2010 Express を利用して、C++を学んでいます。 Win32 コンソールアプリケーション でプロジェクトを作成しました。 最初に用意されたテンプレート(?)に、  printf("%s\n", "Hello World!"); を追加して、実行してみたのですが、「Hello World!」がどこにも表示されませんでした。 ソリューション(プロジェクト?)が保存されているフォルダへ移動して、 exe形式の実行ファイルがあったので、これを実行してみましたが、すぐに画面が消えてしまいます。 コマンドプロンプトを起動して、↑のexeを実行したところ、「Hello World!」が表示されました。 ★ いちいちこの手順を踏むのが非常に面倒なのですが、Visual C++ 内で完結できないでしょうか? 以上、よろしくお願いします。

  • 同一フォルダの複数ブックの値を取得マクロ

    エクセル2010のマクロで困っています。 同一フォルダ内・複数ブックの 「異動表」というシートの特定のセルを抽出し、一覧にするマクロを素人ながら作成しようとがんばっています。 下記、マクロを作成したのですが、 必ず、98件(98ブック)前後でマクロが止まってしまいます。 【Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。】←ここで止まります。 なぜなのでしょうか??ご教授願います。 Sub (1)() Dim mb As Workbook, wb As Workbook Dim myfdr As String, fname As String, n As Integer Application.ScreenUpdating = False '画面更新を一時停止 Set mb = ThisWorkbook 'このコピー先ブックをmbとする。 myfdr = ThisWorkbook.Path fname = Dir(myfdr & "\*.xlsx") 'フォルダ内のExcelブックを検索 Do Until fname = Empty '全て検索 If fname <> mb.Name Then 'ブック名がこのブックの名前でなければ Set wb = Workbooks.Open(myfdr & "\" & fname) 'そのブックを開きwbとする。 wb.Sheets("異動表").Range("A1").Copy '選択&コピー mb.Sheets("Sheet1").Activate 'コピー先シートを選択してアクティブにする Range("a1048576").End(xlUp).Offset(1, 0).Activate 'データ最終行を選択 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '形式を選択して貼付→値 wb.Sheets("異動表").Range("b1").Copy '選択&コピー mb.Sheets("Sheet1").Activate 'コピー先シートを選択してアクティブにする Range("b1048576").End(xlUp).Offset(1, 0).Activate 'データ最終行を選択 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '形式を選択して貼付→値 wb.Sheets("異動表").Range("b4").Copy '選択&コピー mb.Sheets("Sheet1").Activate 'コピー先シートを選択してアクティブにする Range("c1048576").End(xlUp).Offset(1, 0).Activate 'データ最終行を選択 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '形式を選択して貼付→値 wb.Sheets("異動表").Range("m2").Copy '選択&コピー mb.Sheets("Sheet1").Activate 'コピー先シートを選択してアクティブにする Range("d1048576").End(xlUp).Offset(1, 0).Activate 'データ最終行を選択 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '形式を選択して貼付→値 wb.Sheets("退職金計算書").Range("d21").Copy '選択&コピー mb.Sheets("Sheet1").Activate 'コピー先シートを選択してアクティブにする Range("e1048576").End(xlUp).Offset(1, 0).Activate 'データ最終行を選択 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False '形式を選択して貼付→値 Application.ScreenUpdating = True 'コピー先のセルの内容を置き換えますか?=YES Application.DisplayAlerts = False '警告表示を出さない Application.CutCopyMode = False 'クリップボードのコピーを消す wb.Close (False) '有無を言わずに保存せず閉じる For Each c In mb.Sheets(mb.Sheets.Count).UsedRange '取り込んだシートの使用範囲に If c.FormulaR1C1 Like "=*!*" Then '他シート参照があれば c.Value = c.Value '値に変更 End If Next n = n + 1 'ブック数をカウント End If fname = Dir 'フォルダ内の次のExcelブックを検索 Loop '繰り返す Application.ScreenUpdating = True '画面更新一時停止を解除 Dim ws As Worksheet '全てのシートの色をなしにする For Each ws In Worksheets ws.Tab.ColorIndex = xlColorIndexNone Next MsgBox UCase(Environ("UserName")) & "さん、" & n & "件のブックをコピーしましました。" _ + Chr(&HD) + Chr(&HA) + "他シートを参照する式だけは値にしておきましたよ。" _ + Chr(&HD) + Chr(&HA) + "" _ + Chr(&HD) + Chr(&HA) + "", , "( ̄ー ̄)v " End Sub

  • Orbit 、DLが始まらない

    パソコンに詳しくないスケベなおっさんです。 いままでXP(IE8)でorbitを使ってFC2などの動画をキャプチャーしDLしてきましたが、今回、Windows7に買い替えたところ、うまくいきません。 オービットダウンローダー(4.1.0.2)を使用し、Grabは正常にキャッチします。 チェックを入れてダウンロードを押せば、Orbitに移りますが「0%」のまま、リトライ待機を試みるばかりで一向にはじまらず、時間切れとなってしまいます。(Grabにもそのままチェックのついたファイル名が残っているのもなんだかおかしい。) まず、新PCのIE9のせいかと考え、これを8にIEに下げました。 Orbitも何度か入れなおし、また「Area61 ビデオダウンローダー」を試みにDL、赤いボタンをおしてもNGでした。 インターネットオプションの設定のせいかとも思いますが、識者のご教示をいただければと思います。 よろしくお願いします。 (こうしているうちにも動画がどんどん投稿されていくのかと思うと、夜も眠れません!) なお従来のPC(XP)では引き続き、DLが可能です。

  • PC画面上と、印刷後の違い(Lightroom3)

    お世話になっております。 以前、こちらでインクジェットプリンター購入の質問をさせていただきました。 格安で手に入れることが出来、EP-803Aを使用しています。 今回は、タイトルの通りPC画面上の表示と、印刷後の輝度の違いを直す方法をご教示いただければ幸いです。 D7000(普段はほとんどjpegで撮影) Lightroom3 にてトリミング、色の修正を実施 EP-803Aにて印刷(印刷はLightroom3にて行っています。) 用紙はエプソン クリスピア L または 2L、A4です。 この際、PC画面上に比べ、印刷後の写真が露光量で約1段分暗く印刷されます。 Lightroom上の設定は 解像度720 カラーマネジメントはLightroom3にて設定し、プロファイルもクリスピアに設定。 プリンタードライバの色補正は「行わない」にしてあります。 以前のCANON ip4830では、ほぼ同等で印刷出来ていたので、そのように設定できればと思っております。 宜しくお願い致します。

  • WebクライアントでDBセッションを維持させたい

    C/S系システムをWebシステムに移行することを考えてます。 Webクライアントにおいて、アプリでログイン後にDBセッションをずっと保持させたままにしておきたいのです。(WebクライアントとDBセッションを1対1にしたい) APサーバ上でコネクションプーリングしてDBとのセッションを維持させておくことは知ってます。 実現方法や、実現された事例等がありましたら教えて頂けないでしょうか? DBはORACLEを利用してますが、 Webクライアントと dbms_session.unique_session_id を一意に定めたいのです。

  • ケイタイのデータをPCで表示できないのですが・・

    miniSDをアダプターに装着し、カードリーダーでPCに接続しました。 データをハードディスクとCD-Rにダウンロードしたいので、CD-Rを挿入し、編集からコピーを選択し、編集先を指定してEnterしましたが、『ディスクの挿入』のウィンドウが出て『E:ドライブにディスクを挿入してください』という表示が出てしまいます。 ディスクを挿入しているのに、なぜ表示が出てしまうのでしょうか? 回答よろしくお願いします!

  • ケイタイのデータをPCで表示できないのですが・・

    miniSDをアダプターに装着し、カードリーダーでPCに接続しました。 データをハードディスクとCD-Rにダウンロードしたいので、CD-Rを挿入し、編集からコピーを選択し、編集先を指定してEnterしましたが、『ディスクの挿入』のウィンドウが出て『E:ドライブにディスクを挿入してください』という表示が出てしまいます。 ディスクを挿入しているのに、なぜ表示が出てしまうのでしょうか? 回答よろしくお願いします!

  • DELLサーバについて勉強できるサイト・本

    会社にて既存のサーバの管理を任されることになりました。 DELL タワーサーバ 2台 ・PowerEdge 1600SCなど 内訳は、認証・ドメインサーバ、ファイルサーバなど OSはWindows2000サーバが多く、2008に入れ替える予定のマシンもあり。 サーバの「機能」・「サービス」・「ActiveDirectry」などの管理などは 少しずつ本などで勉強しました。 ですが、「HDが故障したときは、ホットスワップならこうする」 「そうでないならこうする」などのやり方がわかりません。 また、エラーの出ているHDを単に交換しただけでは駄目なのか、 設定も必要なのかもわかりません。 初心者には難しく、「有償サポートに頼んだほうが」と言われそうですが、 今回は、自分で行う事を前提とさせてください。 オススメのHPや本があれば教えてください。

  • VB リストボックス選択項目が取得できない。

    エクセルのユーザフォームで日程表を作っています。 下記ListBox1で会議名称だけ表示させています(チェックボックス無し)。 Private Sub ListBox1_click()で選択さした項目を、ここではあらかじめ結合したF5、F6セルに入力させたいのですが、なにも入力されません。 また、ウォッチウインドゥで cとListIndexとListBox1.Valueを設定し、実行後に見るとListIndex 2、ListBox1.Value : "責任者会議"とそれなりに表示されますが、cはEmptyです。 なぜF5セルと、併せてウォッチウインドゥに変数cが設定されないのでしょうか。教えてください。 Excel 2007 VB6.5です。 '行事入力一覧 Private Sub UserForm_Initialize() With ListBox1 .AddItem "" .AddItem "サービス課会議" .AddItem "責任者会議" .AddItem "安全衛生委員会" .AddItem "ISO委員会"  End With End Sub --------------------------------- Private Sub ListBox1_click() MsgBox ("選択した行事名を「行事等」欄へコピーします。" _ & vbCrLf & vbCrLf & "コピーしたい日付の「行事等」欄をクリックしてください。") Dim ListIndex As Long '選択番号 Dim c As Variant ListIndex = ListBox1.ListIndex With ActiveSheet For i = 0 To -1   c = ListBox1.Value Range("F5").Value = ListBox1.Value ’ Range("F5:F6").MergeCells.Value = ListBox1.Value ’ Cells(5, 6).Value = ListBox1.Value Next i  .Range("G5").Value = "-4A56" 'Test G5とG6の結合セルだが入力される。 End With Stop      ListBox1.Value = ""       Unload Me End Sub

  • スモーククキング

    サクラスティックのを使って鍋型スモーカーで初めてスモークしてみました 一本2時間のスティックが途中で消えてしまいます 初めの点火が弱いのでしょうか? 対策が有ったら教えて下さい 宜しくお願いしますナリンm(__)m

  • OS コピ bcdedit.exe 編集 VIST

    HDDからSSDへの換装を実施中です。 HDD(C:)システムドライブを丸々SSD(M:)にコピーし(M:)ドライブにて起動しましたが、恐らくXPで言うところのBOOT.INIにあたるブート情報が(C:)なので立ち上がりません。当たり前ですが・・・ bcdedit.exeを使用して(M:)の頭にある?バイナリデータ編集をすればSSD(M:)からの立ち上げが可能である、と、認識で正解でしょうか?。。 作業が中断してしまった具体的な不明点として、 SSDとHDDを双方接続してcmd.EXEにてBCDEDITを実行したところ、表示されるのは ・Windows ブート マネージャ ・windows ブート ローダ の二つだけで、SSD(M:)に存在するデータを確認できず、編集方法が分かりませんでした。(使用中のシステムドライブのデータしか見れない?) 有識者の方々、情報提供願います。よろしくお願いします。

  • DELLサーバについて勉強できるサイト・本

    会社にて既存のサーバの管理を任されることになりました。 DELL タワーサーバ 2台 ・PowerEdge 1600SCなど 内訳は、認証・ドメインサーバ、ファイルサーバなど OSはWindows2000サーバが多く、2008に入れ替える予定のマシンもあり。 サーバの「機能」・「サービス」・「ActiveDirectry」などの管理などは 少しずつ本などで勉強しました。 ですが、「HDが故障したときは、ホットスワップならこうする」 「そうでないならこうする」などのやり方がわかりません。 また、エラーの出ているHDを単に交換しただけでは駄目なのか、 設定も必要なのかもわかりません。 初心者には難しく、「有償サポートに頼んだほうが」と言われそうですが、 今回は、自分で行う事を前提とさせてください。 オススメのHPや本があれば教えてください。

  • Access2000について

    Access2000でExcel2010のテーブルリンクを設定する事は可能ですか またエクスポート・インポートをするのには何か支障が出ますでしょうか Officel2000から2010にバージョンアップしたいです ただし、Accessだけはは2000のままで バージョン違いということで不可能な操作または不便なことがあったら教えてください

  • Access2000について

    Access2000でExcel2010のテーブルリンクを設定する事は可能ですか またエクスポート・インポートをするのには何か支障が出ますでしょうか Officel2000から2010にバージョンアップしたいです ただし、Accessだけはは2000のままで バージョン違いということで不可能な操作または不便なことがあったら教えてください

  • Access メインフォームのリフレッシュについて

    Access2003 にて、下記の手順で処理するプログラムを作成しています。 メインフォーム(埋め込みサブフォーム ※データシートビュー 一覧表) →埋め込みサブフォームの対象のレコードセレクタをダブルクリック。 →別フォームを起動し、データ入力更新。別フォームを閉じる。 →メインフォームのリフレッシュ し別フォームで変更した内容を反映させたい。 メインフォームのリフレッシュを行いたいのですが、うまくいきません。 ■試してみたこと メインフォーム、サブフォーム、別フォームとあり、 1. 別フォームのデータ更新が終了したあと、 別フォームを閉じる直前にForms![メインフォーム名].requery をしてみた メインフォームは別フォームを開く前の状態と、変化なし 2. 別フォームのデータ更新が終了したあと、別フォームを閉じ サブフォーム内ロジックで、Forms![メインフォーム名].requery をしてみた メインフォームは別フォームを開く前の状態と、変化なし 3. 別フォームのデータ更新が終了したあと、別フォームを閉じ サブフォーム内ロジックで、Me.requery をしてみた メインフォームは別フォームを開く前の状態と、変化なし ----- いずれもメインフォームには変化はありませんでした。 出来れば、メインフォームにはForm_Loadした時と同じように 処理を走らせたい(メインフォームを閉じることなくフォームロードから処理を再開させたい) と考えています。 サブフォームを含め、メインフォームごとリフレッシュするような処理はないでしょうか。 ご存知のかた宜しくお願いいたします。

  • ケイタイのデータをPCで表示できないのですが・・

    miniSDをアダプターに装着し、カードリーダーでPCに接続しました。 データをハードディスクとCD-Rにダウンロードしたいので、CD-Rを挿入し、編集からコピーを選択し、編集先を指定してEnterしましたが、『ディスクの挿入』のウィンドウが出て『E:ドライブにディスクを挿入してください』という表示が出てしまいます。 ディスクを挿入しているのに、なぜ表示が出てしまうのでしょうか? 回答よろしくお願いします!

  • Access メインフォームのリフレッシュについて

    Access2003 にて、下記の手順で処理するプログラムを作成しています。 メインフォーム(埋め込みサブフォーム ※データシートビュー 一覧表) →埋め込みサブフォームの対象のレコードセレクタをダブルクリック。 →別フォームを起動し、データ入力更新。別フォームを閉じる。 →メインフォームのリフレッシュ し別フォームで変更した内容を反映させたい。 メインフォームのリフレッシュを行いたいのですが、うまくいきません。 ■試してみたこと メインフォーム、サブフォーム、別フォームとあり、 1. 別フォームのデータ更新が終了したあと、 別フォームを閉じる直前にForms![メインフォーム名].requery をしてみた メインフォームは別フォームを開く前の状態と、変化なし 2. 別フォームのデータ更新が終了したあと、別フォームを閉じ サブフォーム内ロジックで、Forms![メインフォーム名].requery をしてみた メインフォームは別フォームを開く前の状態と、変化なし 3. 別フォームのデータ更新が終了したあと、別フォームを閉じ サブフォーム内ロジックで、Me.requery をしてみた メインフォームは別フォームを開く前の状態と、変化なし ----- いずれもメインフォームには変化はありませんでした。 出来れば、メインフォームにはForm_Loadした時と同じように 処理を走らせたい(メインフォームを閉じることなくフォームロードから処理を再開させたい) と考えています。 サブフォームを含め、メインフォームごとリフレッシュするような処理はないでしょうか。 ご存知のかた宜しくお願いいたします。

  • ファイルマネージャーなどのサンプルコード

    大学の研究でネットワーク内のDropboxのようなソフトで保存先がNASになっているファイルマネージャーを作れと言われたのですが、ハッキリ言ってプログラミングはC言語の基本を学んだ程度でして0からつくって間に合うとは思えません。 そこで、ファイルマネージャー等のフリーソフトでオープンソースのものがないか探したのですが見つかりませんでした。 どなたか参考になるようなソフトのソースコードやホームページをご存知でしたら教えてください。

  • 録画が半分しかできていません

    閲覧ありがとうございます。 早速ですが、今私はテレビを観たり録画するのにパソコン用の地デジチューナー バッファローのDT-H45/U2を使っています。 最近録画をしてもどんな長さの録画でも必ず半分まで観たところで、 映像の時間はまだ残ってるのに映像が切れてリアルタイム放送に切り替わってしまいます。 HDDの容量も見てみたのですがまだまだ余裕があり、あまり原因と考えられません。 何か原因のわかる方がいらっしゃいましたら回答していただけるとありがたいです。 よろしくお願いします。

  • Access2000について

    Access2000でExcel2010のテーブルリンクを設定する事は可能ですか またエクスポート・インポートをするのには何か支障が出ますでしょうか Officel2000から2010にバージョンアップしたいです ただし、Accessだけはは2000のままで バージョン違いということで不可能な操作または不便なことがあったら教えてください