tom11 の回答履歴

VBAで算出した複数の値を、Excelへ出力したいと思っています。 具体的なはなしでいくと、例えば、2 ＋ x = a　の"x"に、for x = 1 to 6 …　next というように繰り返し構文を用いて、次々と自然数を代入していくとします。そして、それによって得られる6通りの"a"の値を、以下のようにExcelのA列に全て出力するようなプログラミングを書くとします。 3 4 5 6 7 8 ネットで調べても、正直なところよく理解できませんでした。分かる方がいらっしゃいましたら、もしよろしければ例を添えてお答えいただけますでしょうか。お願いいたします。

VBAで算出した複数の値を、Excelへ出力したいと思っています。 具体的なはなしでいくと、例えば、2 ＋ x = a　の"x"に、for x = 1 to 6 …　next というように繰り返し構文を用いて、次々と自然数を代入していくとします。そして、それによって得られる6通りの"a"の値を、以下のようにExcelのA列に全て出力するようなプログラミングを書くとします。 3 4 5 6 7 8 ネットで調べても、正直なところよく理解できませんでした。分かる方がいらっしゃいましたら、もしよろしければ例を添えてお答えいただけますでしょうか。お願いいたします。

文字が含まれない列の時刻は正しく更新されるのですが、文字が含まれる列は通常は右寄せのはずが左寄せになってしまい、表示形式は「h:mm」なのですがセルを選択すると上のバー？に出るはずの秒が出ません・・・書式設定は一応、時刻になっているのですが・・・たぶん文字列になってしまっているような感じです。 EXCELファイルの形式は下記のようになっています。書式設定は、A列はすべて日付、BとC列はすべて時刻になっています。問題の「休」のセルも時刻のままです。 ........A.........B........C..... 1......日付......出勤.....退勤 2....2010/1/1....7:54....18:24 3....2010/1/2....休........ 4....2010/1/3....7:48....18:28 5....2010/1/4....7:56....18:33 日付と退勤の列はうまく更新できるのですが、B列の出勤列に「休」と書かれている行があるとB列の更新がうまくいきません。 ソースは、下記のようになっています。 con.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0; " & _ "Data Source=" & _ "C:\DATE\タイムカード.xls;" & _ "Extended Properties=""Excel 12.0;HDR=YES;""" Dim cmd As New OleDbCommand() cmd.Connection = con con.Open() cmd.CommandText = "UPDATE [Sheet1$] SET 日付 = @hiduke, 出勤 = @jikoku, 退勤 = @nijikoku WHERE 日付 = 40203" cmd.Parameters.Add("@hiduke", OleDbType.Variant).SourceColumn = "日付" cmd.Parameters("@hiduke").Value = Format(DateValue("2010/1/21"), "yyyy/MM/dd") cmd.Parameters.Add("@jikoku", OleDbType.Variant).SourceColumn = "出勤" cmd.Parameters("@jikoku").Value = Format(TimeValue("2:40"), "H:mm") cmd.Parameters.Add("@nijikoku", OleDbType.VarChar).SourceColumn = "退勤" cmd.Parameters("@nijikoku").Value = Format(TimeValue("15:2"), "H:mm") cmd.ExecuteNonQuery() .NET自体初めてなのでおかしなところもあると思いますが、色々試しても結局どうにもならず現在は上記のような状態です。 上記の出勤と退勤のOleDbTypeが違いますが色々試しましたがすべてダメでした・・・ 試したのは下記になります Variant VarChar VarChar, 255 Char DBTime どのようにすればうまくいくでしょうか?

文字が含まれない列の時刻は正しく更新されるのですが、文字が含まれる列は通常は右寄せのはずが左寄せになってしまい、表示形式は「h:mm」なのですがセルを選択すると上のバー？に出るはずの秒が出ません・・・書式設定は一応、時刻になっているのですが・・・たぶん文字列になってしまっているような感じです。 EXCELファイルの形式は下記のようになっています。書式設定は、A列はすべて日付、BとC列はすべて時刻になっています。問題の「休」のセルも時刻のままです。 ........A.........B........C..... 1......日付......出勤.....退勤 2....2010/1/1....7:54....18:24 3....2010/1/2....休........ 4....2010/1/3....7:48....18:28 5....2010/1/4....7:56....18:33 日付と退勤の列はうまく更新できるのですが、B列の出勤列に「休」と書かれている行があるとB列の更新がうまくいきません。 ソースは、下記のようになっています。 con.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0; " & _ "Data Source=" & _ "C:\DATE\タイムカード.xls;" & _ "Extended Properties=""Excel 12.0;HDR=YES;""" Dim cmd As New OleDbCommand() cmd.Connection = con con.Open() cmd.CommandText = "UPDATE [Sheet1$] SET 日付 = @hiduke, 出勤 = @jikoku, 退勤 = @nijikoku WHERE 日付 = 40203" cmd.Parameters.Add("@hiduke", OleDbType.Variant).SourceColumn = "日付" cmd.Parameters("@hiduke").Value = Format(DateValue("2010/1/21"), "yyyy/MM/dd") cmd.Parameters.Add("@jikoku", OleDbType.Variant).SourceColumn = "出勤" cmd.Parameters("@jikoku").Value = Format(TimeValue("2:40"), "H:mm") cmd.Parameters.Add("@nijikoku", OleDbType.VarChar).SourceColumn = "退勤" cmd.Parameters("@nijikoku").Value = Format(TimeValue("15:2"), "H:mm") cmd.ExecuteNonQuery() .NET自体初めてなのでおかしなところもあると思いますが、色々試しても結局どうにもならず現在は上記のような状態です。 上記の出勤と退勤のOleDbTypeが違いますが色々試しましたがすべてダメでした・・・ 試したのは下記になります Variant VarChar VarChar, 255 Char DBTime どのようにすればうまくいくでしょうか?

文字が含まれない列の時刻は正しく更新されるのですが、文字が含まれる列は通常は右寄せのはずが左寄せになってしまい、表示形式は「h:mm」なのですがセルを選択すると上のバー？に出るはずの秒が出ません・・・書式設定は一応、時刻になっているのですが・・・たぶん文字列になってしまっているような感じです。 EXCELファイルの形式は下記のようになっています。書式設定は、A列はすべて日付、BとC列はすべて時刻になっています。問題の「休」のセルも時刻のままです。 ........A.........B........C..... 1......日付......出勤.....退勤 2....2010/1/1....7:54....18:24 3....2010/1/2....休........ 4....2010/1/3....7:48....18:28 5....2010/1/4....7:56....18:33 日付と退勤の列はうまく更新できるのですが、B列の出勤列に「休」と書かれている行があるとB列の更新がうまくいきません。 ソースは、下記のようになっています。 con.ConnectionString = _ "Provider=Microsoft.ACE.OLEDB.12.0; " & _ "Data Source=" & _ "C:\DATE\タイムカード.xls;" & _ "Extended Properties=""Excel 12.0;HDR=YES;""" Dim cmd As New OleDbCommand() cmd.Connection = con con.Open() cmd.CommandText = "UPDATE [Sheet1$] SET 日付 = @hiduke, 出勤 = @jikoku, 退勤 = @nijikoku WHERE 日付 = 40203" cmd.Parameters.Add("@hiduke", OleDbType.Variant).SourceColumn = "日付" cmd.Parameters("@hiduke").Value = Format(DateValue("2010/1/21"), "yyyy/MM/dd") cmd.Parameters.Add("@jikoku", OleDbType.Variant).SourceColumn = "出勤" cmd.Parameters("@jikoku").Value = Format(TimeValue("2:40"), "H:mm") cmd.Parameters.Add("@nijikoku", OleDbType.VarChar).SourceColumn = "退勤" cmd.Parameters("@nijikoku").Value = Format(TimeValue("15:2"), "H:mm") cmd.ExecuteNonQuery() .NET自体初めてなのでおかしなところもあると思いますが、色々試しても結局どうにもならず現在は上記のような状態です。 上記の出勤と退勤のOleDbTypeが違いますが色々試しましたがすべてダメでした・・・ 試したのは下記になります Variant VarChar VarChar, 255 Char DBTime どのようにすればうまくいくでしょうか?

こんにちは エクセルVBAで配列aをワークシート関数countifで計算したいのですが、できないようです。代わりになるVBA関数はないでしょうか？もしくは、代替可能な方法はないでしょうか？sumifの代わりもご教示ください！ よろしくお願いします。 --------------- a(0)=1 a(1)=10 a(2)=100 msgbox worksheetfunction.countif(a,">50") 'ここでエラーとなる。 -- エクセル2003

いつもお世話になっています。 VB6のシェイプ (Shape) コントロール(長方形、丸等)を使用して、 陸上競技場のトラックのような横長な円を描きたいのですが、 Shapeの丸と長方形を組み合わせると、トラック内に線が引かれる (丸の中央部分の線と長方形の縦線が引かれる)ので、 この線を消したいのですが、どなたか良い方法がありましたら 教えてください。 [開発環境] OS:WindowsXP/Pro SP3 VB:VB6 よろしくお願いします。

ＶＢ　2005においての0から12までの値ｎを入力し、ｎと階乗ｎ！値を表示させなさい。という問題が出ました。　色々調べてみたのですが、いまいち、ばらばらで要領を得ません。　プログラムに詳しい方どうか教えてくださいよろしくお願いします。

こんにちは エクセルVBAで配列aをワークシート関数countifで計算したいのですが、できないようです。代わりになるVBA関数はないでしょうか？もしくは、代替可能な方法はないでしょうか？sumifの代わりもご教示ください！ よろしくお願いします。 --------------- a(0)=1 a(1)=10 a(2)=100 msgbox worksheetfunction.countif(a,">50") 'ここでエラーとなる。 -- エクセル2003

こんにちは java初心者です。早速ですが質問させていただきます。 スペースキーを押したときに、ラベルにテキストを表示させる意図で 以下のようなコードを作りましたが、うまくいきません。 どなたか、ダメな点を指摘していただけないでしょうか。 よろしくお願いします。 import java.awt.event.KeyAdapter; import java.awt.event.KeyEvent; class KeyClass extends KeyAdapter { int keyshot; public KeyClass() { keyshot = 0; } public void keyPressed(KeyEvent e) { int kc = e.getKeyCode(); if( kc == KeyEvent.VK_SPACE) { if( keyshot == 0 ) { keyshot = 2 ;} else keyshot = 1; } } public void keyReleased(KeyEvent e) { int kc = e.getKeyCode(); if( kc == KeyEvent.VK_SPACE) { keyshot = 0; } } public int checkShotKey() { int ret = keyshot; if(keyshot == 2) keyshot =1; return ret; } } import java.applet.Applet; import java.awt.*; import java.awt.event.*; /*<applet code="keytest.class" width="300" height="100"></applet> */ public class keytest extends Applet implements Runnable { KeyClass keyclass; Thread th; Label label1; Label label2; String st1; int shotkey_state; int count; public void init() { setBackground( new Color(120,60,80) ); keyclass = new KeyClass(); addKeyListener(keyclass); label1 = new Label("スペース押してね"); label2 = new Label(); add(label1); add(label2); th = new Thread(this); th.start(); shotkey_state=0; } public void run() { while(true) { try{ Thread.sleep(1000); for(count=0; ; count++) { shotkey_state = keyclass.checkShotKey(); if( (shotkey_state==1 || shotkey_state==2)&&(count%4==0) ) { st1 = "スペース押したよ!!"; } else st1 = ""; label2.setText(st1); } } catch(InterruptedException ie) {} } } }

フィボナッチに関するプログラムを組んでいます。繰り返し構文を利用したいのですが、よく分かりません。 先に念のため、フィボナッチ数列とその周期について説明しておきます。 まずフィボナッチ数列とは、1,1,2,3,5,8,13,21,34,55,89,144,233,377,610, のような数列のことです。 それぞれの項をある自然数で割った場合、その余りの数には特定の周期性が見られます。具体的な例でいくと、例えば５でそれぞれの項を割り、その余りを書き下していくと 1,1,2,3,0,3,3,1,4,0,4,4,3,2,0,2,2,4,1,0, 1,1,2,3,0,3… と、あるところから先はそれまでの列の繰り返しになります。この場合、ひと周期の長さは20ということになります。 今回組んだ以下のプログラム(注１)は、TextBox1に任意の自然数を入力し、その数で割っていった場合の周期の長さを表示するというものです。しかしこれでは、いちどに１つの周期しかもとめることができません。これを、例えば1000と指定したら、2から１000までの(注2)それぞれの数で割っていった場合の周期の長さを全て羅列するプログラムにしたいと思っています。プログラムに関しては全くの素人ですので、もしお時間があればご解答お願いいたします。 注1 ほとんど他の方にやってもらったものです。 注2 このプログラムの性質上、割る数として１を指定するとエラーが生じるようです。しかし割る数１なら周期も１なので問題ありません。 Dim a(3), c, n, x As Long a(1) = 1 : a(2) = 1 : n = 2 x = Val(TextBox1.Text) Do n = n + 1 a(3) = (a(1) + a(2)) Mod x If a(2) = 1 AndAlso a(3) = 1 Then c = n - 2 Exit Do End If a(1) = a(2) a(2) = a(3) Loop Label1.Text = c

お教え下さい　 WindowsXP下でExcel 2002 を使っている者です 　VBA命令で Excelシートを操作したいのですが、桁番号を数値で指定する方法が 判らないので、困っております 　即ち、For Next文で変数iiを使い、是で桁番号を選択したいのですが、これを使うと、 ～～～ aa=cstr(ii):bb=Cstr(ii+3) Columns("aa:bb").Select Selection.ColumnWidth = ss ～～～ とコーディングをしても、Columns("aa:bb").Select の行で Errメッセ-ジが出て 動きません 　…(Excelでは 桁番号を アルファベット番号で送っているから、当然の事ですが…) 　例えば 数値で枠を指定したい時には、Range(aa,bb)ではなくて、Cell(ii,ii+3) と言う、数値の使えるコマンドを使いますが、同様に、数値を使って桁番号を指定する場合は、何の様なコマンドを使ったら数値での指定が可能なのか、それをお教え下さい 　お願い申し上げます

以前にイクリプスでJavaのコードを入力する際の行のコピペについて質問させて頂いた事があります。 http://oshiete1.goo.ne.jp/qa5503347.html ヘルプに記載されている、Ctrl + Shift + L で出てくるリストに 「行をコピー」Ctrl+Alt+Down 「行を複写」　Ctrl+Alt+Up　 とあり、Ctrl と Alt を押しながら矢印キーの上下を押すと即座にコピーできるはずなのに、画面が逆さまになってしまいます。 ご回答いただいたときは出来たと思ったのですが、また、うまくいきません。 また、「行をコピー」と「行を複写」のコピーと複写とは、どうちがうのでしょうか。 すみませんがもう一度質問させて頂きました。 宜しく御指導御願い致します。

お世話になります。 同一ブックの中にＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆ、Ｇ．．．のシートが存在します。 （シートＡ以外は他ブックからコピー） Ａはブック内に最初から必ず存在し、以降Ｂ～は月毎に数量や名称が変わります。 Ａ以外のシートから共通する範囲の情報を指定セルへコピーする以下のコマンドの内、 「ＡとＢ以外から」に変更したく望みます。 （Ｂのシートも最初からブック内に存在する条件に変更となったため） Private Sub CommandButton1_Click() Const target = "A1:F10" Dim sh As Worksheet Dim r As Integer r = 2 ' For Each sh In Worksheets 'Aシート以外で If Not sh Is Sheets("A") Then 　←　ココ（複数のシート名が指定できるように変更） sh.Range(target).Copy Sheets("A").Range("A" & r) r = r + Range(target).Rows.Count End If Next End Sub お手間を取らせて申し訳ありませんが、宜しくお願い致します。

Java言語のSwingコーポネント「JToggleButton」について質問です。 選択後のボタンの背景はどうすれば変更できるでしょうか？ 選択前のボタンはsetBackGroundで変更できるのですが、ボタンを押すと色が元に戻ってしまいます。 コンストラクタ内でも他のクラスからでも、また選択されていない状態でsetBackGroundを実行しても変わりません。 以下ソースコード public コンストラクタ(){ this.setBackground(Color.YELLOW);//これでも無理 this.setSelected(true); this.setBackground(Color.YELLOW);//これでも無理 this.setIcon(icon); }

前回回答してくれた方々ありがとうございます！ 実は今回も相談があり、質問させていただきました。 実は、新基準Javaプログラミングという本の手順にのっとり、今度は簡易webブラウザを作動させてみようとしているのですが、動作させると訳のわからない英文（おそらくエラー）がずらりと出てきてうまく作動しません。テキストファイルのタイトルはMiniBrowser.java 内容は以下の通りです。また、空白を示す為にスペースの数だけ~を挟みます。 import~javax.swing.*; import~java.io.*; class~MiniBrowser~{ ~~public~static~void~main(~String[]~args~)~throws~IOException~{ ~~~~JEditorPane~jep~=~new~JEditorPane(args[0]); ~~~~jep.setEditable(false); ~~~~JFrame~jf~=~new~JFrame(); ~~~~jf.add(jep); ~~~~jf.setSize(800,~600); ~~~~jf.setVisible(true); ~~} } 行頭はtabです。二回目の空白はtabとただの段落と二通り試しましたがどちらもエラーが出ました。javaコマンド起動は確認済みなので、おそらくコンパイル前のファイル内容に問題があるのではないかと思うのですが、何度も見直しましたが正確に入力できていると思います（おそらく）正直もう自分ではお手上げ状態です。ぜひ回答お願いします。どうしたらいいでしょうか？

表があります マクロにより、動いてます その中で、 土日祝の場合赤にしたいんでが、 まず土について書いてみました If Sheets("統計表作成").Cells(Ｔ, 2) = "土" Then Sheets("統計表作成").Cells(Ｔ, 2).Font.ColorIndex = 3 End If 土　を認識してもらえず、赤にかわりません お力かしてください

VB2005を使っています。 Listviewに表示された文字をコピーペーストを試みましたができませんでした。 プロパティを見ても、設定箇所が見あたりませんでした。 コピーペーストする方法をご存じでしたらご教授お願いします。

VB2005を使っています。 Listviewに表示された文字をコピーペーストを試みましたができませんでした。 プロパティを見ても、設定箇所が見あたりませんでした。 コピーペーストする方法をご存じでしたらご教授お願いします。

初心者なりにいろんなサイトを閲覧しましたがどうしてもわかりませんので どなたか助けてください。 ドライブからして不明な、どこかにあるはずのフォルダを探すプログラムを書きたいのですが・・・ 　「（不明ドライブ）\（不明フォルダ数個）\フォルダA\フォルダB」という条件で、 フォルダBの絶対パスを取得する方法はあるのでしょうか？ ドライブの名前や数も不明という条件下で使えるものにしたいのですが。 説明もへたくそですみません、宜しくお願いします。 （VB2008です。）