pkh4989 の回答履歴

（例）１００行×１００列にデータ入力されたシートで、そのひとつのセルの値だけ変えた場合、変更前と変更後のファイルを見比べ、そのデータの変更されたセルを特定する方法を教えてください。 （今は、目視でチェックしているので大変、非効率で困っています。）

クエリで、フィールドごとに合計する事は、できますでしょうか？ 担当　/　作業1　/　作業2　/　作業3　/ 太郎　/　　　　3　/　　　　5　/　　　5　/　　 花子　/　　　　9　/　　　　8　/　　　6　/ 合計　/　　　 12　/ 　　　13　/　　　 13/ という感じで、一番下が合計（レコード（？））という体裁にしたいのです。 よろしくお願いします。

エクセルシートに項目として日付・コード・取扱店数 があるのですが、これをコードでグループ化し取扱店数を合算して 表示したいのですがＶＢＡではどのように記述すればいいのかわかりません。 ご指導頂ければありがたいのですが。。 日付　 　コード 　取扱店数 2007/05/14 111 5 2007/05/14 112 2 2007/05/14 111 2 　　　　　　 ↓ 2007/05/14 111 7　 2007/05/14 112 2

エクセルのCSVエクスポートのコードについて知りたいのです。 文字コードは、シフトＪＩＳ？ テキストは、””囲みになる？ 改行コードは、ＣＲなの？ＣＲＬＦなの？ お時間のある方、教えてください。

Excel2003のVBAで保存処理を下記のように行います。 　Book.SaveAs ("ファイル名") しかし問題があり、ファイルを開くとVBAで記入更新したシートが 表れず別のシートが最初に表示されます。 一番最後に更新したシートを開いたときに表示される方法は ありますか？ よろしくお願いいたします。

エクセルで複雑な検索をするのには？ 下記の様なデーターがあります。 この場合１商品が1行でなく何行かが１商品になります。 品番が多いので品番で検索したいのですがオートフィルタを使うと 品番の付いた行だけが上にまとまりぐちゃぐちゃになります。 何か良い検索は無いでしょうか? どんな方法でも品番を入力すると商品内容がわかればいいです。 また画像も貼り付けてあるのですがそれも検索できたらありがたいです。 品番 カラー 入荷 12345 ブラック 2 ホワイト 3 グレー 5 98765 イエロー 6 レッド 7 ブルー 8 宜しくお願い致します。

エクセルＶＢＡで困っています。 データ入力済みのシートが2つあります。 シート名を「Sheet1」「Sheet2」とします。 「Sheet1」のＡ列のデータが「Sheet2」のＡ列のデータと一致した時に それぞれのシートのセル番地を取得したいのですが出来ません。 教えて下さい。 データの並び順は「Sheet1」と「Sheet2」で異なります。

お世話になります。 ＳＱＬで1バイト、２バイト混在データでの切出し方法を教えてください。 例：以下のような混在データから左から６バイトを切出したいです。 123:交通費 1234:通勤費 123:交通費　の場合は、「123:交」の形で６バイト　きれいに切出せますが、 1234:通勤費　の場合は、「1234:通」の形で６バイトが「通」にかかってしまっています。 この場合、最後の「通」は無視して、「1234:」で出力されるように したいのです。 何か良い書き方を教えて下さい。 よろしくお願いいたします。

メッセージノ内容は「非表示モジュールAutoExec内でコンパイルエラーが発生しました。」と出て「アドインテンプレートが正しくありません（Ｃ：￥ＰｒｏｇｒａｍＦｉｌｅ｜￥…￥＾＄ＦＭａｋｅｒ．ｄｏｔ」とでます。

リスト選択が8個までしか表示できずそれ以上は スクロールバーになってしまうのですが 表示をふやすことは出来ますでしょうか？？＞＜；

また、お世話になります。 前に下のような質問をさせていただき、うまくできました。今度は、文字列と、変数msとしたシートのS2の文字列 たとえば、 S2に2007年 とあるとして、 「2007年06月売上リスト」 と別ブックに保存したいのですが、先ほどご回答いただいたものを参考にさせていただいても答えをだませんでした。よろしくお願いします。 【前回の質問】 教えてください。msというシートのS2に文字列があり、それを新規ブックの名前にして、いま入れているフォルダの中に保存したいのですが、エラーになってしまいます。どこが間違ってますか？ ActiveWorkbook.SaveAs (ThisWorkbook.Path & \ ms.Range("S2").Value) 答え ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ms.Range("S2").Value

リスト選択が8個までしか表示できずそれ以上は スクロールバーになってしまうのですが 表示をふやすことは出来ますでしょうか？？＞＜；

また、お世話になります。 前に下のような質問をさせていただき、うまくできました。今度は、文字列と、変数msとしたシートのS2の文字列 たとえば、 S2に2007年 とあるとして、 「2007年06月売上リスト」 と別ブックに保存したいのですが、先ほどご回答いただいたものを参考にさせていただいても答えをだませんでした。よろしくお願いします。 【前回の質問】 教えてください。msというシートのS2に文字列があり、それを新規ブックの名前にして、いま入れているフォルダの中に保存したいのですが、エラーになってしまいます。どこが間違ってますか？ ActiveWorkbook.SaveAs (ThisWorkbook.Path & \ ms.Range("S2").Value) 答え ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ms.Range("S2").Value

ある列から文字列を参照し、参照した文字列を他の列から検索し、検索行の指定した列の値を返したいと思います。 　　Ａ Ｂ Ｃ Ｄ １　林 ２　森 ３　根 　林 ５ ４　根　 　梨 ３ 例えば、B１に答えを返したいと思います。 条件は、A１の文字列（林檎）と同じ文字列のものをD列から検索し、検索されたら、その行のE列の値を返したいのです。 答えは5なるようにしたいです。 またA列の文字群は変化するので、特定な文字検索というよりは、セルにはいっている文字列を検索したいです。 たいへん困っております。分かるかたよろしくお願いします。

ある列から文字列を参照し、参照した文字列を他の列から検索し、検索行の指定した列の値を返したいと思います。 　　Ａ Ｂ Ｃ Ｄ １　林 ２　森 ３　根 　林 ５ ４　根　 　梨 ３ 例えば、B１に答えを返したいと思います。 条件は、A１の文字列（林檎）と同じ文字列のものをD列から検索し、検索されたら、その行のE列の値を返したいのです。 答えは5なるようにしたいです。 またA列の文字群は変化するので、特定な文字検索というよりは、セルにはいっている文字列を検索したいです。 たいへん困っております。分かるかたよろしくお願いします。

下記コードを実行すると、myCell.Selectのところで 実行時エラー’91’ オブジェクト変数またはWithブロック変数が設定されていません。 というエラーが出るのですが、どうすれば対策出来るのでしょうか？ Sub test() Dim i As Long Dim myCell As Range With Range("A1").CurrentRegion For i = 2 To .Rows.Count Step 2 If i = 2 Then Set myCell = .Rows(i) Else Set myCell = Application.Union(myCell, .Rows(i)) End If Next i End With myCell.Select End Sub

UserForm1にComboBoxが８個(ComboBox1～8)あります。 各ComboBoxはSheet1の下記列に入力されているリストを表示します。 ComboBox1 : A列 ComboBox2 : B列 ComboBox3 : C列 ComboBox4 : D列 ComboBox5 : E列 ComboBox6 : F列 ComboBox7 : G列 ComboBox8 : H列 ComboBox9 : I列 ComboBox10 : J列 そこで、UserForm1の各ComboBoxでデータ選択する際に、リストにある場合はそれを選択し、リストにない場合はComboBoxに新しいデータを入力し、UserForm1のCommandButton1を押下時にその新しいデータをSheet1の各列に追加したいのですが、どのようにしたらよいのでしょうか。 Sheet1にあるリストをComboBoxに表示するところまではできています。 ※ComboBoxの番号とリストの列番号を一致させています。 --------------------------------------------------------------- Private Sub UserForm_Initialize() Dim lastrw As Integer, retu As Integer, i As Integer For retu = 1 To 10 lastrw = Sheet1.Cells(1, retu).End(xlDown).Row For i = 1 To lastrw - 1 Controls("ComboBox" & retu).AddItem Sheet1.Cells(i + 1, retu).Value Next i Next retu End Sub ---------------------------------------------------------------

宜しくお願いします。 エクセルとワードを使ってデータ量の多いものを作っています。 ファイルを分けていますが、ページ番号を連番にしたいと思っています。 ワードでは開始番号を自分で指定する事はできましたが エクセルでのやり方がわかりません。 例えば10ページから20ページをフッターにふりたい場合 どのようにすればいいのか、わかる方お願いします。 WindowsXP、Excel2003です。

毎日送られてくるCSVファイルがあります。 今まで手作業で「更新ファイル.exl」を作成していたのですが、開いた時に 自動更新したいと思い、あちらこちらのサンプルから引用したコードを試みましたが、途中で行き詰ってしまいました。 　お力をお借りできれば、幸いです。 やりたことは、（１）「更新ファイル」A列に計算式を入れたい 　　　　　　　（２）CSVファイルのA,B列は除き、C列以降を 　　　　　　　　　　「更新ファイル」のB列から貼り付けたい 現状では、CSVファイル、更新ファイル共にタイトル行がない状態です。 （タイトル行が必要なら、付け加えてもいいのですが、複数のファイルが この「更新ファイル」から引っ張ったデータを計算式で入れているため、 できるならば現状のままで作りたいのです） CSVファイル　 A:年　B:月　C:商品コード1　D:商品コード2　E:支払いコード F:個数　G:金額 2007 5 1004 20 1 10 5000 現状：CSVデータそのままの形式で、「更新ファイル.exl」に出力されてしまうので、下記のように出力したいのです。 更新ファイル A:B&C&D B:商品コード1　C:商品コード2　D:支払いコード E:個数　F:金額 1004201　　　1004 20 1 10 5000 Private Sub Workbook_Open() Dim Workbooks As Variant Dim Sheets As Variant Dim Filename As Variant ThisWorkbook.Sheets("Sheet1").Activate Cells.Select Selection.ClearContents Filename = Application.GetOpenFilename("CSV ファイル(*.csv),*.csv") With ActiveSheet.QueryTables.Add _ (Connection:="TEXT;" & Filename, Destination:=Range("A1")) .TextFileCommaDelimiter = True .Refresh BackgroundQuery:=False End With End Sub 　どこに、どんなコードを入れれば解決できるのか、教えて頂けたら、 うれしく思います。よろしくお願いします。

はじめまして。 過去ログに私のやりたいような内容を探していたらこのような下記のエクセルVBAがあったので、 教えて頂きたいです。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub x = Target.Value With Application .ScreenUpdating = False .EnableEvents = False .Undo y = Target.Value Target.Value = x + y .EnableEvents = True .ScreenUpdating = True End With With Cells(ActiveSheet.Rows.Count, "C").End(xlUp) .Offset(1, 0).Value = x .Offset(1, 1).Value = Time() End With End Sub A1に入力するたびに同一セルに加算。 A1をクリアできる。 C列に入力履歴、D列に入力時間を記録。 If Target.Address <> "$A$1" Then Exit Sub　の$A$1を変えることによって他のセルにも設定できる。 と、いう内容なのですが、これを同一シートの複数のセルにも同じよう別々に処理できるように設定したいのですが、 どのようにすればいいのでしょうか？ VBAは最近始めたばかりなのでわからない事だらけです。 Excelのバージョンは2003です。 よろしくお願い致します。