rivoisu の回答履歴

ＶＢＡ初心者です。 入門書などで勉強中ですが、手に負えません。 助けてください。 　　A　　　　　B　　　C　 　名前　　　体重　分類 1ニワトリ　　○　　鳥 2ヒラメ　　　■　　魚 3スズメ　　　△　　鳥 4インコ　　　▼　　鳥 5タイ　　　　◇　　魚 6イワシ　　　◆　　魚 というような入力シートの表があります。(下にたくさん続きます) このデータを分類別にしてワークシートを作成しています。 そこで、次のようなＶＢＡを書きたいのです。 ＶＢＡを実行すると、 別シートに分類別に入力表のデータが振り分けられて、 魚がＡ，Ｂ列 　　A　　　　　B 　名前　　　体重 1ヒラメ　　　■ 2タイ　　　　◇ 3イワシ　　　◆ 鳥がＤ，Ｅ列 　　D　　　　　E 　名前　　　体重 1ニワトリ　　○ 2スズメ　　　△ 3インコ　　　▼ と入力シートに入力されたデータが振り分けられるものです。 どうか、よろしくご指導お願いいたします。

マクロを使って複数ブックを一つにマージしたいです。 どなたか宜しくお願いします。 フォルダに１６個のエクセルブックがあります。ブックは４つのシートでできています。シートの列数は共通なのですが、行数が異なります。 これを新しいブックにコピペでつなげていきたいのです。 すみませんがどなたか宜しくお願いします。

現在のコンピュータ技術では、いわゆる汎用コンピュータとＰＣ系コンピュータ間でのソフトウェアの互換性はあるのでしょうか？ 当社は１０年ほど前まではオフコンにより業務システムを構築しており、端末にはＰＣを配置していましたが、入力処理のためにいわばＰＣの画面を借りているに過ぎず、オフコンとＰＣ間でデータのやり取りをすることは出来ませんでした（あるいは非常に手間がかかりました）。 そのためにデータをＰＣのアプリケーション上で使用することが出来ず、非常に不便を感じましたので、その後ＰＣによるクライアントサーバ方式にシステムを変更し今日に至っています。 今日でも社内のメインシステムは大型コンピュータをメインフレームとして運用されている会社は多いと思いますが、ＰＣ系アプリケーションとの互換性がないために不便を感じることはないのでしょうか？ ひょっとすると的外れの質問かもしれませんが、私も最新のコンピュータ技術知識に乏しく、このように質問させて頂いた次第です。

エクセルで納品書を作成しています。 毎回違う商品名や値段を記入しているのですが そのデーター内容を自動で別シートにデーター管理（リスト管理）したいのですが可能でしょうか 条件　 シート１に記載したら自動的にシート２に１行ずつ下げて記載してほしい。 詳細 【シート１】 (1)　B14　　商品名（こちらはB14～B17まで記入することもあります） (2)　B25　　名前 (3)　B24　　住所 これをシート２の シート１の　B14 を　シート２の D70　に シート１の　B25 を　シート２の H70　に シート１の　B24 を　シート２の I70　に　　 というふうに記載してほしい。 名前や住所等　購入品名等を別シートに毎回コピーしていたのですが もっと簡単にデーター保存できればと思いましたので

喫煙者の方・非喫煙者の方に質問致します。 民主党が増税の一つとして、煙草税の大幅アップを打ち出しておりますが、この政策をどう思われますか？ 反対か賛成か、その根拠も教えて頂けると幸いです。 よろしくお願い致します。

会社を退社するに辺り守秘義務は何処まで求められるのでしょうか？何気ない茶飲み話の中にも盛り込んでは往けないのでしょうか？（因みに会社とは守秘義務に付いては何も取り交わしておりません）

こんばんは Excel VBAの初心者です。 Do Until Loopを使って B列の値が変わるところ（下記の表だと、空白からコスモスに変わる、4行目。コスモスからチューリップに変わる6行目。チューリップから菊に変わる8行目。）に行を挿入させたいと思い、下記のマクロを組んだのですが、Do Until Loopが理解できませんでした。 どうしたら良いのか教えて頂けないでしょうか。 宜しくお願い致します。 Excelのシート B1　　項目 B2　　空白 B3　　空白 B4　　コスモス B5　　コスモス B6　　チューリップ B7　　チューリップ B8　　菊 Sub 行の挿入() Dim y As String Cells(2, 2).Select y = Cells(2, 2).Value Do Until Cells(2, 2).Value <> y ActiveCell.Offset(1).Select Selection.EntireRow.Select Selection.Insert shift:=xlDown Loop End Sub

Excel VBAで以下のようなことをしたいです。 C列に作業日が入っています。 date(today)を条件に C列で該当するセルが あればフォントの色を変えて強調させようと考えています。 それ以外は黒字フォントのままで固定です。 単独のセルだけを対象にするとうまくいので おそらく、行全体の値を取得しなければならないと 思うのですが　forをつかってuboundを使っても うまくいきません。どなたかご意見をください 以下　うまくいかないコードですが のせています。　 *********************** range("A1") = date set 選択範囲 = columns(C) if 選択範囲 = range("A1") then end if

会社でのエクセルのデータ入力で困っています。 得意先から発注データ（エクセル）と倉庫会社からの在庫データ（エクセル）を当社の出荷データ表（エクセル）に入力しています。 毎週やっているのですが、データ数が多くミスが多いので、 困っています。また、ひとつの品番で色がたくさんあり、発注データと在庫データでは順番が異なっており、間違いの原因になりやすいです。 どうすれば、ミスを減らせるか教えてください。

fortran初心者です。 以下のプログラムのコンパイルは出来るのですが、実行すると At line 9 of file ./rennsyu1.f90 Fortran runtime error: End of file というエラーがでてしまいます。 End of fileが何を意味するのか解からず対処が出来ません。 一つ言えることは、open文を使用すると必ずこのエラーが出てしまうということです。 どなたか、End of fileの意味と対処法を教えてください。 プログラム　 既存のファイルxx.txtからx1とx2の値を読み取り、画面に出力させる。 program rennsyu1 implicit none real :: x(2) integer :: i open (17 , file = ' xx.txt ' ) do i = 1 , 2 read (17 , *) , x(i) write (6 , *) " x = " , x(i) end do close(17) stop end program rennsyu1

こんばんわ。 http://oshiete1.goo.ne.jp/qa5404464.html ↑でエクセルの分類付けについていろいろ教えていただきました。 今回はまた別のエクセルで似たような分類付けをするのですが、 上記URLで教えていただいた関数で行うと件数が多すぎてエクセルが応答なしになることがあります。大体5万件以上のときが多いです。 現状の作業をマクロで行いたいのでアドバイスをください。 シートの構成ですが、1シート（シート名は作業用）のみにデータはまとまっています。 A列は製品番号 B列は製品名（ハードディスクやメモリなどPC周辺機器全般です） C列は分類名として関数を使ってB列の分類付け。 となっています。各列の1行目は見出しです。 分類数は現状20種類以上です。 また今回のデータには未分類扱いのデータもあります。 それは削除せずに分類名を未分類をしなければなりません。 教えてほしいのは、 (1)D列から右側の作業列を使わずにマクロで一気にC列にB列の分類名を入力するやり方。 (2)分類名と同じシートを作成して各シートに値をコピペ（A列とB列のみ） 例えばCPUの分類ならシート：CPUに値をコピペするといった具合です。 ＝＝＝C列に入れる分類名と分類条件＝＝＝ (1)分類名：未分類 分類条件：B列に"AAA"、"BBBB"、"CCCCC"という値がある。10種類あります。 "AAA"を含むでなく、完全一致の場合は未分類にします。 (2)分類名：CPU 分類条件：分類名が未分類でなく、B列に"GHz"か"AMD "か"Intel(R)"を含む。 (3)分類名：HDD 分類条件：分類名が未分類でなく、B列に"ハードディスク"か"ハードドライブ"を含む。 (4)分類名：メモリ 分類条件：分類名が未分類でなく、B列に"DDR"を含む、"メモリ"を含む。 (5)分類名：FDD 分類条件：分類名が未分類でなく、B列に"フロッピ"を含む。 (6)分類名：DVDROM 分類条件：分類名が未分類でなく、B列に"DVD-ROM"を含む。 (7)分類名：DVDスーパーマルチ 分類条件：分類名が未分類でなく、B列に"スーパーマルチ"を含む、"ブルーレイ"は含まない。 (8)分類名：ブルーレイ 分類条件：分類名が未分類でなく、B列に"ブルーレイ"を含む、"スーパーマルチ"は含まない。 (9)分類名：ブルーレイスーパーマルチ 分類条件：分類名が未分類でなく、B列に"ブルーレイ"を含む、"スーパーマルチ"を含む。 (10)分類名：CDRW 分類条件：分類名が未分類でなく、B列に"RW"を含む、"コンボ"は含まない。 (11)分類名：コンボ 分類条件：分類名が未分類でなく、B列に"コンボ"を含む。 (12)分類名：DAT 分類条件：分類名が未分類でなく、B列に"DAT"を含む、"カートリッジ"は含まない。 (13)分類名：OS 分類条件：分類名が未分類でなく、B列に"Windows"を含む、"リカバリ"は含まない。 (14)分類名：グラフィックス 分類条件：分類名が未分類でなく、B列に"NVIDIA"を含む、"RADEON"を含む、"グラフィック"を含む。 (15)分類名：モニター 分類条件：分類名が未分類でなく、B列に"ハード"を含まない、"型"を含む、"インチ"を含む。 (16)分類名：パラレル 分類条件：分類名が未分類でなく、B列に"パラレル"を含む。 (17)分類名：1394 分類条件：分類名が未分類でなく、B列に"1394"を含む。 (18)分類名：入力装置 分類条件：分類名が未分類でなく、B列に"キーボード"を含む、"マウス"を含む、"パッド"は含まない。 (19)分類名：電源 分類条件：分類名が未分類でなく、B列に"電源"を含む、"標準"は含まない。 (20)分類名：規格 分類条件：分類名が未分類でなく、B列に"エネルギー"を含む。 (21)分類名：保証 分類条件：分類名が未分類とモニターでなく、B列に"年"を含む、"時間"を含む ＝＝＝ここまで＝＝＝ 上記の分類付けに当てはまらないものもあるのですが、それは空白のままにします。どのような分類にするかは検討中です。 記録マクロでやるにも編集が難しくて自力ではすぐには無理そうでした。 お手数ですがよろしくお願いします。

年月ごとの経費集計についての質問です。 現状は以下の数式で、月ごとの経費を項目ごとに摘出しております。 =SUMPRODUCT((摘出範囲A=摘出する経費項目)*(MONTH(摘出範囲B)=摘出する月),金額の摘出範囲) 只、この数式だと、摘出範囲Aに入力した日付が、『2008年10月』と『2009年10月』のように 年は異なっても、同じ月だと上手く摘出されなくなってしまいます。 つきましては、MONTHを部分を“年と月”で指示できれば良いのでは？ と思っているのですが、どのようにすれば可能でしょうか？ ご存知の方、ご教授の程、お願い致します。

いつもお世話になっております。 VisualBasic6.0の勉強をしています。 Text1、Text2、Commmand1 を配置したフォームを作成し、 Text1に番号、Text2に名前、を入力後、 Command1ボタンを押すと、 MySQLサーバにデータが登録される処理を作成しているのですが、 下記のプログラムでは登録は出来るのですが、 サーバ側で、主キーはText1で入力した番号にしているため、 サーバ側で登録済みの番号を入力し登録処理を行った際、 『実行時エラー'2147467259 プライマリー重複のエラーメッセージ』 が表示されます。 主キーを上書きする際は、どのような処理を加えればよいのでしょうか? Private Sub Command1_Click() 　Dim cn As ADODB.Connection 　Dim rs As ADODB.Recordset 　　Set cn = New ADODB.Connection 　　Set rs = New ADODB.Recordset 　Dim strTBL As Variant 　　strTBL = "test" 'テーブル名 　　'Mysqlへ接続 　　cn.Open "Driver={MySQL ODBC 3.51 Driver};～略～ 　　'テーブルを開く 　　rs.Open strTBL, cn, adOpenForwardOnly, adLockOptimistic, adCmdTable rs.AddNew 　　　　　　'新規レコードを追加 　　rs!no = Text1.Text 　　　　　　　　　　'ナンバーをセット 　　rs!Name = Text2.Text 　　　　　　　　　'名前をセット 　rs.Update 　　　　　　'更新(保存) 　rs!no = Text1.Text 　　　　　　　　　　'ナンバーをセット 　rs!Name = Text2.Text 　　　　　　　　　'名前をセット 　cn.Close 　Set cn = Nothing 　Set rs = Nothing 　MsgBox "登録完了", vbOKOnly, "登録"　　　 　Text1.Text = ""　　　　　　　　　　　　'登録後、テキストの内容を消去 　Text2.Text = "" End Sub ご教示、よろしくお願いいたします

下のような構造体があり、その値をレコードセットに代入したいと思います。 構造体内の変数名とレコードセットのフィールド名が同じなので名前を 利用して簡潔に書けないかと思うのですが、これは可能でしょうか？ '構造体 Type Product 　Price As Long 　Name As String 　Size As Single End Type '変数の宣言 Dim Car As Product 'レコードセットへの代入 With Product 　RS("Price").Value = .Price 　RS("Name").Value = .Name 　RS("Size").Value = .Size End With

はじめまして。VBA初心者です。 【元となるデータの入ったCSVファイル（改竄禁止）】 　　　　A　　　　B　　　　C　　　　D　　　　E 1　　○位 　名称　 県名　住所　電話番号 2　　×位　 ・・・ 3　　△位　 ・・・ 【抽出したデータを書き出したいxlsmファイル】 　　　　B　　　　C 2　　順位　 3　　県名 この二つのファイルがあるのですが、 (1)xlsmファイルのC2に順位を入力し、その順位の建物のデータを 　csvファイルから抜き出し、xlsmファイル同シートのB5:F5に表示 (2)同じく県名もC3に入力し、抜き出した結果をB7を左上隅として表示 したいと思っています。 検索や本を見ましたが、似たようなケースがあってもそこから自分で 作るということができませんでした； 今後の参考にもしたいので、もしよろしければコードの解説もよろしく お願いします。

こんばんわ。 http://oshiete1.goo.ne.jp/qa5404464.html ↑でエクセルの分類付けについていろいろ教えていただきました。 今回はまた別のエクセルで似たような分類付けをするのですが、 上記URLで教えていただいた関数で行うと件数が多すぎてエクセルが応答なしになることがあります。大体5万件以上のときが多いです。 現状の作業をマクロで行いたいのでアドバイスをください。 シートの構成ですが、1シート（シート名は作業用）のみにデータはまとまっています。 A列は製品番号 B列は製品名（ハードディスクやメモリなどPC周辺機器全般です） C列は分類名として関数を使ってB列の分類付け。 となっています。各列の1行目は見出しです。 分類数は現状20種類以上です。 また今回のデータには未分類扱いのデータもあります。 それは削除せずに分類名を未分類をしなければなりません。 教えてほしいのは、 (1)D列から右側の作業列を使わずにマクロで一気にC列にB列の分類名を入力するやり方。 (2)分類名と同じシートを作成して各シートに値をコピペ（A列とB列のみ） 例えばCPUの分類ならシート：CPUに値をコピペするといった具合です。 ＝＝＝C列に入れる分類名と分類条件＝＝＝ (1)分類名：未分類 分類条件：B列に"AAA"、"BBBB"、"CCCCC"という値がある。10種類あります。 "AAA"を含むでなく、完全一致の場合は未分類にします。 (2)分類名：CPU 分類条件：分類名が未分類でなく、B列に"GHz"か"AMD "か"Intel(R)"を含む。 (3)分類名：HDD 分類条件：分類名が未分類でなく、B列に"ハードディスク"か"ハードドライブ"を含む。 (4)分類名：メモリ 分類条件：分類名が未分類でなく、B列に"DDR"を含む、"メモリ"を含む。 (5)分類名：FDD 分類条件：分類名が未分類でなく、B列に"フロッピ"を含む。 (6)分類名：DVDROM 分類条件：分類名が未分類でなく、B列に"DVD-ROM"を含む。 (7)分類名：DVDスーパーマルチ 分類条件：分類名が未分類でなく、B列に"スーパーマルチ"を含む、"ブルーレイ"は含まない。 (8)分類名：ブルーレイ 分類条件：分類名が未分類でなく、B列に"ブルーレイ"を含む、"スーパーマルチ"は含まない。 (9)分類名：ブルーレイスーパーマルチ 分類条件：分類名が未分類でなく、B列に"ブルーレイ"を含む、"スーパーマルチ"を含む。 (10)分類名：CDRW 分類条件：分類名が未分類でなく、B列に"RW"を含む、"コンボ"は含まない。 (11)分類名：コンボ 分類条件：分類名が未分類でなく、B列に"コンボ"を含む。 (12)分類名：DAT 分類条件：分類名が未分類でなく、B列に"DAT"を含む、"カートリッジ"は含まない。 (13)分類名：OS 分類条件：分類名が未分類でなく、B列に"Windows"を含む、"リカバリ"は含まない。 (14)分類名：グラフィックス 分類条件：分類名が未分類でなく、B列に"NVIDIA"を含む、"RADEON"を含む、"グラフィック"を含む。 (15)分類名：モニター 分類条件：分類名が未分類でなく、B列に"ハード"を含まない、"型"を含む、"インチ"を含む。 (16)分類名：パラレル 分類条件：分類名が未分類でなく、B列に"パラレル"を含む。 (17)分類名：1394 分類条件：分類名が未分類でなく、B列に"1394"を含む。 (18)分類名：入力装置 分類条件：分類名が未分類でなく、B列に"キーボード"を含む、"マウス"を含む、"パッド"は含まない。 (19)分類名：電源 分類条件：分類名が未分類でなく、B列に"電源"を含む、"標準"は含まない。 (20)分類名：規格 分類条件：分類名が未分類でなく、B列に"エネルギー"を含む。 (21)分類名：保証 分類条件：分類名が未分類とモニターでなく、B列に"年"を含む、"時間"を含む ＝＝＝ここまで＝＝＝ 上記の分類付けに当てはまらないものもあるのですが、それは空白のままにします。どのような分類にするかは検討中です。 記録マクロでやるにも編集が難しくて自力ではすぐには無理そうでした。 お手数ですがよろしくお願いします。

excle2003のVBAで、 A2のセルに記載されている文字が含まれるPDFをファイルの選択画面に出す方法はあるのでしょうか？ たとえば、あるフォルダにABCD.PDFとABDF.PDF、CCDF.PDF、DDDF.PDFの三つがあった場合に、A2のセルに、"AB"の文字が記載されていたら、そのフォルダ内からABCD.PDFとABDF.PDFの２つだけをファイルを開くの項目に表示され、ファイルを選択できて開くことができるようなVBAを作りたいのです。 宜しくお願いします。

いつも助けていただいてありがとうございます。 簡単に言いますと、クラスの3年間の成績（各教科）や出欠などのばらばらのデータを1枚に集約し、個人毎にプリントアウトしたいのですが、簡単にできる方法はないですか？ エクセルで編集してワードで差込印刷という方法も考えましたが、複数のページのデータを一枚に集約するのが難しいので、あきらめました。 VBとかを使って自分でプログラムしたほうがいいのでしょうか？ 半年位かけて来年の4月くらいには完成させたいので時間はあるのですが、どのプログラムがいいのかわかりません。アクセスは少々使うことができますが、どのプログラムでも必要ならば詳しく勉強したいと思います。 現在は、エクセルで各教科の成績を1枚のシートで保存し、1つのファイルを1年間管理してます。3年間のデータを集約するとき、それぞれのデータを調べて、名前を変えて、ひとつひとつ再入力して作成してやってます。できるならば、現在あるエクセルのデータを使って名前もしくはコードを変えればすべてのデータが更新されるようにできればベストなんですが・・・ まとまりのない文章で申し訳ありません。 よろしくお願いします。

VBSで"ADODB.Stream"オブジェクトを作成した場合、 LoadFromFileで開くファイルを指定するものだと思いますが、 このとき、特定の文字で始まるファイルを開く場合 どのように指定すれば良いのでしょうか？ Set iSt = CreateObject("ADODB.Stream") ist.Charset = "UTF-16BE" ist.Open ist.LoadFromFile(?) オブジェクトがFileSystemObjectであれば *を使用してファイルを開くことができたのですが、 文字コードが"UTF-16BE"であるため ADODB.Streamを使うよう制限されています。

excle2003のVBAで、 A2のセルに記載されている文字が含まれるPDFをファイルの選択画面に出す方法はあるのでしょうか？ たとえば、あるフォルダにABCD.PDFとABDF.PDF、CCDF.PDF、DDDF.PDFの三つがあった場合に、A2のセルに、"AB"の文字が記載されていたら、そのフォルダ内からABCD.PDFとABDF.PDFの２つだけをファイルを開くの項目に表示され、ファイルを選択できて開くことができるようなVBAを作りたいのです。 宜しくお願いします。