kuroooooo の回答履歴

全28件中1~20件表示
  • C#について・・・

    次のようなブログラムなのですが、ラジオボタンが上手く切り替わりません。 どこを修正すると上手くいくでしょうか? <<文字数オーバーのため省略>> public Form1() { // // Windows フォーム デザイナ サポートに必要です。 // InitializeComponent(); if(isJapanStyle) { label5.Text=string.Format("0時0分0秒"); label6.Text=string.Format("0時0分0秒"); } else { label5.Text=string.Format("00:00:00"); label6.Text=string.Format("00:00:00"); } // // TODO: InitializeComponent 呼び出しの後に、コンストラクタ コードを追加してください。 // <<文字数オーバーのため 省略>> static void Main() { Application.Run(new Form1()); } protected void button1_Click(object sender, System.EventArgs e) { if(isJapanStyle) { label5.Text=string.Format("{0}時{1}分{2}秒",dt.Hour,dt.Minute,dt.Second); } else { label5.Text=DateTime.Now.ToString("T"); } recTime=dt; timer2.Stop(); timer3.Start(); } private void button2_Click(object sender, System.EventArgs e) { Application.Exit(); } private void timer1_Tick(object sender, System.EventArgs e) { dt=DateTime.Now; if(isJapanStyle) { label4.Text=string.Format("{0}時{1}分{2}秒",dt.Hour,dt.Minute,dt.Second); } else { label4.Text=DateTime.Now.ToString("T"); } } private void timer3_Tick(object sender, System.EventArgs e) { keika=dt-recTime; if(isJapanStyle) { label6.Text=string.Format("{0}時間{1}分{2}秒",keika.Hours,keika.Minutes,keika.Seconds); } else { label6.Text=string.Format("{0}:{1}:{2}",keika.Hours,keika.Minutes,keika.Seconds); } } private void timer2_Tick(object sender, System.EventArgs e) { timer3.Stop(); } private void radioButton2_CheckedChanged(object sender, System.EventArgs e) { isJapanStyle=false; } private void radioButton1_CheckedChanged(object sender, System.EventArgs e) { isJapanStyle=true; } } }

    • tyamoro
    • 回答数1
  • 【Excelマクロ】もっと頭の良い書き方って無いかな?

    5行空白列があったらそこで処理を終わりたいんですが、もっといい書き方はないでしょうか? 下記が私の考えた頭の悪いやり方です。 Sub macro() Dim i As Integer For i = 1 To 1000 If Cells(i, 1) = "" Then  If Cells(i + 1, 1) = "" Then   If Cells(i + 2, 1) = "" Then    If Cells(i + 3, 1) = "" Then     If Cells(i + 4, 1) = "" Then      If Cells(i + 5, 1) = "" Then       MsgBox (i - 1 & "行目で終わりです")       Exit For      End If     End If    End If   End If  End If End If Next End Sub

  • REGZAで写真再生するには?

    REGZA Z2000をもっています。 PC内に保存している写真を、このTVで見たいのですが、どのようにすればいいのか 助言をおねがいします。 現状ですが、ホームネットワーク(100Mbps)が構築済みです。 REGZAにはNAS専用LAN端子でNASが接続された状況です。 USBメモリに写真をコピーして、USB端子に接続し、見るのが一番簡単なのでは? と思ってます。 ちなみに、マニュアルにはJPEGが再生可能となっていましたが、上記の作業を実施 しても、再生可能なファイルがない!のようなメッセージがでるだけです。

  • ExcelVBA:コンボボックスのリストを手動で変更できなくする方法

    ExcelVBAで、コンボボックスに選択する項目、リストが表示されますが、これをキーボードなどで入力できないようにする方法を教えてください。 EnabledやLockedプロパティを使っても選択自体できなくなってしまうので何か方法はありませんか? 回答よろしく願いします。

    • miya_HN
    • 回答数2
  • アクセスで、データの件数をだしたい

    アクセスのレポートで、リストを出力したときにその合計の件数を上か、下に出したいのですが、どうすればいいでしょうか?

    • noname#83408
    • 回答数3
  • あいまい検索画面を作成したい

    「1.htm」の入力フォームで入力された条件を、 「2.asp」に出力するASPを作成しました。 現状だと、「1.htm」で入力された条件の 完全一致のクエリ結果しか表示されません。 そこで、部分一致でも表示させようと考えています。 「*」を付ければいいのかと思うのですが、うまくいきません。 どうすればいいのでしょうか。 宜しくお願いします。 ***1.htm**** <form method="POST" action="2.asp"> <input name="simei" type="text"> <input type="submit" value="検索"> </form> ***2.asp**** Set rs = db.Execute("SELECT * FROM test WHERE ((test.氏名) Like '" & simei & "')") ↑ここにLikeのところに*をつけたい

  • [イーサネットとTCP/IP] 通信能力の違いについて

    こんにちは。通信能力の違いについて一つ質問です。 指定されたホストからある一つのファイルをダウンロードする場合に、 1台のPCからだけそのファイルをダウンロードする場合に比べて、 複数台のPCからそのファイルを同時にダウンロードする場合の方が 転送時間は増え、転送速度は落ちますよね。 当たり前の話ではありますが、これは何故なのでしょうか? 人に説明をする際に困ってしまいました。 詳しく説明してくださる方がいましたらよろしくお願いします。

  • あいまい検索画面を作成したい

    「1.htm」の入力フォームで入力された条件を、 「2.asp」に出力するASPを作成しました。 現状だと、「1.htm」で入力された条件の 完全一致のクエリ結果しか表示されません。 そこで、部分一致でも表示させようと考えています。 「*」を付ければいいのかと思うのですが、うまくいきません。 どうすればいいのでしょうか。 宜しくお願いします。 ***1.htm**** <form method="POST" action="2.asp"> <input name="simei" type="text"> <input type="submit" value="検索"> </form> ***2.asp**** Set rs = db.Execute("SELECT * FROM test WHERE ((test.氏名) Like '" & simei & "')") ↑ここにLikeのところに*をつけたい

  • VB2005 TextBoxに何も入力しない場合のエラー

    VB入門者なので、よろしくお願いします。 VB2005で、Textboxに何も文字を入力しないで Button1をクリックしたら、  MessageBox.Show("何か入力してください", "エラーメッセージ") の様に何かエラーメッセージが表示されるようにしたいのですが、何かいい方法はありますか? ちなみにTextboxに入力するものは、ひらがな、数字、漢字、ローマ字 なんでも入力できるようにしています。

    • nesy
    • 回答数2
  • excel vba 17桁の数字が表示できません。

    毎度お世話になります。 EXCEL VBA で、CSVファイルを読み込み マクロで17桁数字を表示したいのですが、どうしても出来ません。 Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "00000000000000000" 上記ですと15桁制限のため下2桁がゼロになってしまい Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "@" ですと1.2345E+16となってしまい Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "'00000000000000000" ですと'12345678901234500 となってしまいます。 セルの書式設定はあらかじめ文字列にしてありますが、これも vbaで何らかの指定が必要なのでしょうか? 初心者でわからないことだらけですが、よろしくお願いします。

  • 入力フォームの値をSQLのクエリに代入したい

    「1.htm」で入力された値を、次のページ「2.asp」で受け取って、 SQLに代入したいと考えています。 が、うまくいきません。 結果としては、クエリの結果がなく、 データが何も表示されない状態です。 どなたか宜しくお願いします。 ****1.htm**** <form method="POST" action="2.asp"> <input name="simei" type="text"> <input type="submit" value="検索"> </form> ****2.asp**** i = "Request.Form("simei")" Set rs = db.Execute("SELECT * FROM test WHERE ((test.氏名)='i')")

  • ネットゲーム依存症で困っています

    1年前にネットゲームの存在を知り、軽い気持ちで始めました。しかしそれから私の人生はどんどん狂い始めました。 元々友達がいなく寂しがり屋だったので24時間色んな人と触れ合えるネットゲームが物凄く楽しかったです。 現実の生活よりネットゲームでのレベル上げや、早く上手くなろうという気持ちが強かったです。 毎日2000円を払い、ネットカフェに通ってネットゲームをしていました。お金が無くなれば親の財布から盗んだりしていました。 お金が無くてネットゲームが出来ない日は発狂しそうになり自殺しようとも思います。 もう20歳なのでそろそろ仕事をしないといけないのは分かっています。でも仕事をしている最中もネットゲームの事で頭がいっぱいで、すぐ辞めてしまいます。 ネットゲーム依存症を治すにはどうすればいいでしょうか?本当は死ぬまでネットゲームをやり続けたいんですが、それだと親を悲しませてしまいます。 親を安心させたいという気持ちはあります。でも自分の理性がいう事を聞かなくて、今もネットゲームをやりたいという気持ちで頭がいっぱいです。 どうすればいいのでしょう?やはり病院か、それとも死ぬしかないのでしょうか・・・。よろしくお願いします。

  • excel vba 17桁の数字が表示できません。

    毎度お世話になります。 EXCEL VBA で、CSVファイルを読み込み マクロで17桁数字を表示したいのですが、どうしても出来ません。 Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "00000000000000000" 上記ですと15桁制限のため下2桁がゼロになってしまい Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "@" ですと1.2345E+16となってしまい Range(Cells(GYO, 1), Cells(GYO, 4)).NumberFormat = "'00000000000000000" ですと'12345678901234500 となってしまいます。 セルの書式設定はあらかじめ文字列にしてありますが、これも vbaで何らかの指定が必要なのでしょうか? 初心者でわからないことだらけですが、よろしくお願いします。

  • Excel 印刷時の改行について

    Excelで下記のようなデータを作ったのですが、 香典No|金額|郵便番号|名前|住所|TEL|備考| これを印刷プレビューすると名前と住所が長すぎて、横幅をはみ出してしまい一ページ内に収まりきりません。 指定したセルの幅を超えると自動的に改行にしてくれるような機能はないものでしょうか。 また良いアイデアがあればご伝授をお願いできないでしょうか。 どうかよろしくお願いします。

    • gigigi
    • 回答数2
  • ネットワークプリンタについて

    前回こちらで質問しましたが、やはり解決しないままなので、もう一度質問いたします。 小規模なオフィスで、4台のノートPCをLANでネットワークを組んでいます。2台は無線LAN,2台はLANケーブルで接続していて、ファイルは共有できます。 プリンタも共有したいのですが、プリンタの「共有」を開き、 「共有」タブで、「このプリンタを共有する」に●を入れ、「ポート」のところでは共有したいプリンタ名のポートにチェックは入っています。 しかしそれでも、直接接続されているパソコン以外のパソコンからは印刷できません。 この設定が間違ってないとしたら、何が原因と考えられますでしょうか? よろしくお願い致します。

  • アクセスVBA CSVへ出力後、最終レコードの次の行に任意の文字を入れたい

    VBA超初心者です。宜しくお願いします。 今回は、テーブルからエクセルへ出力後、最終レコードの次の行に任意の文字を入れたいというのがわからず質問です。 全体の流れとしては、エクセル起動→テーブル名1を出力→テーブル名2を出力→CSV形式で保存となります。 このテーブル名2を出力した際の処理についてです。以下の記述の中で、”★★テーブル名2を貼り付け”の処理を追加、変更などする形で考えたいのですが、よい方法はございませんでしょうか? 具体的には【テーブル名2をエクセルの任意の範囲に出力】→最終レコードの次行の特定の列を複数指定して任意の文字”END”を入れる。 (例:貼り付け開始がB25、データが3レコードであれば、28行目の任意の列(CとE)を指定して”END"といれる) なお、テーブル名2のレコード数は毎回ことなります。 説明不足の場合はご指摘ください。 御知恵を拝借したく宜しくお願いします。 --------------------------- Sub opnXLtmp3() On Error GoTo Err_opnXLtmp3 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim cnn2 As ADODB.Connection Dim rst2 As ADODB.Recordset Dim stBasis As String Dim stDetail As String Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim fName As Variant Dim stPath As String 'mdb & Excel Book Path Dim stXLName As String 'Book Name Dim stSheet As String 'Sheet Name Dim stRng As String 'Range Address stPath = CurrentProject.Path '自mdb & Excel Book のパス stXLName = "ファイル名.csv" 'テンプレート用の Book stBasis = "テーブル名1" 'テーブル名1 stDetail = "テーブル名2" 'テーブル名2 stSheet = "シート名" '出力するシート名 stRng = "B25" '出力開始セル番地 Set cnn = CurrentProject.Connection Set cnn2 = CurrentProject.Connection Set rst2 = cnn2.Execute(stBasis) Set rst = cnn.Execute(stDetail) 'テンプレート としてオープン Set xls = CreateObject("Excel.Application") xls.Workbooks.Add template:=stPath & stXLName Set wkb = xls.Workbooks(1)   'テーブル名1を貼り付け With wkb.Worksheets(stSheet) .Cells(3, 10) = rst2("番号") End With '★★テーブル名2を貼り付け With wkb.Worksheets(stSheet) .Range(stRng).CopyFromRecordset Data:=rst    'ここに .Cells(X, 3) = "END" じゃだめでした。    'ここに .Cells(X, 5) = "END" じゃだめでした。 End With 'Excel画面を表示して終了(保存しない) xls.Visible = True fName = xls.Application.GetSaveAsFilename("ファイル名3" & rst2("番号"), _ "CSVファイル(*.csv),*.csv", 1) If fName <> False Then wkb.SaveAs FileName:=fName MsgBox "新規ブックは、「" & fName & "」の名前で保存しました!", vbOKOnly Else MsgBox "新規ブックは保存できませんでした。", vbOKOnly End If End Sub

  • アクセスVBA CSVへ出力後、最終レコードの次の行に任意の文字を入れたい

    VBA超初心者です。宜しくお願いします。 今回は、テーブルからエクセルへ出力後、最終レコードの次の行に任意の文字を入れたいというのがわからず質問です。 全体の流れとしては、エクセル起動→テーブル名1を出力→テーブル名2を出力→CSV形式で保存となります。 このテーブル名2を出力した際の処理についてです。以下の記述の中で、”★★テーブル名2を貼り付け”の処理を追加、変更などする形で考えたいのですが、よい方法はございませんでしょうか? 具体的には【テーブル名2をエクセルの任意の範囲に出力】→最終レコードの次行の特定の列を複数指定して任意の文字”END”を入れる。 (例:貼り付け開始がB25、データが3レコードであれば、28行目の任意の列(CとE)を指定して”END"といれる) なお、テーブル名2のレコード数は毎回ことなります。 説明不足の場合はご指摘ください。 御知恵を拝借したく宜しくお願いします。 --------------------------- Sub opnXLtmp3() On Error GoTo Err_opnXLtmp3 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim cnn2 As ADODB.Connection Dim rst2 As ADODB.Recordset Dim stBasis As String Dim stDetail As String Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim fName As Variant Dim stPath As String 'mdb & Excel Book Path Dim stXLName As String 'Book Name Dim stSheet As String 'Sheet Name Dim stRng As String 'Range Address stPath = CurrentProject.Path '自mdb & Excel Book のパス stXLName = "ファイル名.csv" 'テンプレート用の Book stBasis = "テーブル名1" 'テーブル名1 stDetail = "テーブル名2" 'テーブル名2 stSheet = "シート名" '出力するシート名 stRng = "B25" '出力開始セル番地 Set cnn = CurrentProject.Connection Set cnn2 = CurrentProject.Connection Set rst2 = cnn2.Execute(stBasis) Set rst = cnn.Execute(stDetail) 'テンプレート としてオープン Set xls = CreateObject("Excel.Application") xls.Workbooks.Add template:=stPath & stXLName Set wkb = xls.Workbooks(1)   'テーブル名1を貼り付け With wkb.Worksheets(stSheet) .Cells(3, 10) = rst2("番号") End With '★★テーブル名2を貼り付け With wkb.Worksheets(stSheet) .Range(stRng).CopyFromRecordset Data:=rst    'ここに .Cells(X, 3) = "END" じゃだめでした。    'ここに .Cells(X, 5) = "END" じゃだめでした。 End With 'Excel画面を表示して終了(保存しない) xls.Visible = True fName = xls.Application.GetSaveAsFilename("ファイル名3" & rst2("番号"), _ "CSVファイル(*.csv),*.csv", 1) If fName <> False Then wkb.SaveAs FileName:=fName MsgBox "新規ブックは、「" & fName & "」の名前で保存しました!", vbOKOnly Else MsgBox "新規ブックは保存できませんでした。", vbOKOnly End If End Sub

  • excel使用時の余分なメッセ-ジ

    先日、不要なソフトウエアをアンインスト-ルしたあとから、excelを開く時と閉じるときに”非表示モジュ-ルAutoExecNew内でコンパイルエラ-が発生しました”との表示がでるようになりました。 解決方法を教えて下さい。

  • マイコンピュータのファイルのサイズなどを表示するエリアを出すには?

    いつも勉強させていただいております。今回は質問をさせていただけないでしょうか。 マイコンピュータを起動します。 フォルダやファイルをクリックすると、左下にファイルのサイズなどを 表示するエリア(灰色のバーみたいな感じ)があると思います。 なぜか、自分のマシンにはありません。 このエリアを表示する方法は、ありますでしょうか? それでは、よろしくお願いします。

  • アクセスで、データの件数をだしたい

    アクセスのレポートで、リストを出力したときにその合計の件数を上か、下に出したいのですが、どうすればいいでしょうか?

    • noname#83408
    • 回答数3