rivoisu の回答履歴

マクロ初心者です。 以下のような計算をマクロで終端まで行なう場合です。 A　　B　　C ２　　１ ４　　３ ７　　１ ５　　２ ・・・ C列に　A/B　を表示させるにはどうすればいいのでしょうか？ また、A＋B　の時はどうするのでしょうか？ 以上、よろしくお願いします。

D:\pdf　というフォルダがあり、中身はすべてPDFファイルです。 FAXで送られてくるデータをPDFとして転送するフォルダです。 ほっておくとものすごい量になってしまうため、定期的に削除しています。1週間分ぐらいあれば十分なので、これを、1週間前のPDFファイルを削除してくれるバッチ（？）があればと考えています。 あとは、タスクスケジューラーの実行で良いのではないかと思っています。 削除といっても、ゴミ箱に入るのでなく、ゴミ箱に残らない直接削除を希望します。 どなたか丁寧に説明していただける方いますでしょうか。 よろしくお願い致します。

D:\pdf　というフォルダがあり、中身はすべてPDFファイルです。 FAXで送られてくるデータをPDFとして転送するフォルダです。 ほっておくとものすごい量になってしまうため、定期的に削除しています。1週間分ぐらいあれば十分なので、これを、1週間前のPDFファイルを削除してくれるバッチ（？）があればと考えています。 あとは、タスクスケジューラーの実行で良いのではないかと思っています。 削除といっても、ゴミ箱に入るのでなく、ゴミ箱に残らない直接削除を希望します。 どなたか丁寧に説明していただける方いますでしょうか。 よろしくお願い致します。

D:\pdf　というフォルダがあり、中身はすべてPDFファイルです。 FAXで送られてくるデータをPDFとして転送するフォルダです。 ほっておくとものすごい量になってしまうため、定期的に削除しています。1週間分ぐらいあれば十分なので、これを、1週間前のPDFファイルを削除してくれるバッチ（？）があればと考えています。 あとは、タスクスケジューラーの実行で良いのではないかと思っています。 削除といっても、ゴミ箱に入るのでなく、ゴミ箱に残らない直接削除を希望します。 どなたか丁寧に説明していただける方いますでしょうか。 よろしくお願い致します。

Excelのマクロについて質問です。 今select caseを使用してマクロを組んでおります。 Select Case Range("a1").Value 　　Case "登録" or "追加" 　　　　Range("b1").Value = "1" End Select 上記のような感じにしておりますが、caseの条件式の部分が 長くなりそうなので、リストを見てフラグをたてるような感じに したいのですが、何かいい方法はないでしょうか。

お願いします。 ゆうちょ　からの引落しデータを精査するエクセルを作らなくなり 困ってます。条件に合うものだけ抽出したいのです 引落しデータは 口座・得意先NO・得意先氏名・金額・結果 の項目があります。 精査は「結果」を調べます。 「結果」の内容は　 ０＝振替え済み　１＝残高不足　２口座なし　３預金取り消し ４＝契約なし　７＝照会事故　８事業主取消し　９その他 です。　数字のみが入力されてます。 抽出したい「結果」の数字は　０　１　４　のみです。 マクロでどう記述しれば良いのでしょうか？ エクセルシートは作業３にデータがあり抽出したデータを 作業４に書き出ししたいのです。 よろしくお願いします。

お願いします。 ゆうちょ　からの引落しデータを精査するエクセルを作らなくなり 困ってます。条件に合うものだけ抽出したいのです 引落しデータは 口座・得意先NO・得意先氏名・金額・結果 の項目があります。 精査は「結果」を調べます。 「結果」の内容は　 ０＝振替え済み　１＝残高不足　２口座なし　３預金取り消し ４＝契約なし　７＝照会事故　８事業主取消し　９その他 です。　数字のみが入力されてます。 抽出したい「結果」の数字は　０　１　４　のみです。 マクロでどう記述しれば良いのでしょうか？ エクセルシートは作業３にデータがあり抽出したデータを 作業４に書き出ししたいのです。 よろしくお願いします。

次のページにてクラスモジュールを使ったレコードセット の取得についてかかれています。 http://www.happy2-island.com/access/gogo04/capter01400.shtml http://www.happy2-island.com/access/gogo04/capter01500.shtml http://www.happy2-island.com/access/gogo04/capter01600.shtml ここでは単一レコードが前提になっているようですが、複数 レコードをループしながら値を取得する場合はどうすればいいの でしょうか？

はじめまして。現在、大学二年生でITの授業も多く関わるようになってきたため、プログラミングを勉強し初めようかと考えています。 ですがHTMLとフラッシュの違いもわからないくらいプログラミングが全くの初心者なため、どの言語から勉強したら良いかわかりません。具体的に言えば、どの言語が学びやすいのか、どの言語がどういうものを作るのに適しているかなどです。僕的には、なにか作るのに特化しているのではなく、全体的に網羅できる言語を学びたいと考えています。 アドバイスよろしくお願い致します。

次のページにてクラスモジュールを使ったレコードセット の取得についてかかれています。 http://www.happy2-island.com/access/gogo04/capter01400.shtml http://www.happy2-island.com/access/gogo04/capter01500.shtml http://www.happy2-island.com/access/gogo04/capter01600.shtml ここでは単一レコードが前提になっているようですが、複数 レコードをループしながら値を取得する場合はどうすればいいの でしょうか？

エクセルのデータをある項目毎にシート分けたいのですが、 何かいい方法ありませんか？ エクセルデータを取引先毎にシートを分けていたのですが、 数百件の取引先をシート別に分けるのが相当な負担なのです。 （取引先約７００件、全件数１３万件） 例 取引先 　取引先名　菓子名　金額 1234567 　明治　　チョコ　　132 1234567 　明治　　チョコ　　148 1234567 　明治　　クッキー　132 7656211 　ロッテ　チョコ　　148 7656211 　ロッテ　ガム　　　105 7656211 　ロッテ　ガム　　　105 ※エクセルは２００７です。 　 よろしくお願いいたします。

はじめまして。 エクセルで、３行ごとに選択し、選んだ情報を列に移す作業をしたいのですが 1800行あり手で選択するのが大変です。 行いたい作業は以下の通りです。 A列 AAAAAA BBBBBB CCCCCC AAAAAA BBBBBB CCCCCC AAAAAA BBBBBB CCCCCC AAAAAA ↓ A列 Ｂ列 Ｃ列 AAAAAA BBBBBB CCCCCC AAAAAA BBBBBB CCCCCC AAAAAA BBBBBB CCCCCC 一行一行選択して列に移すのではなく選択できる方法がありましたら 是非ご教授ください。 よろしくお願いいたします。

お世話になります。 あるマクロを実行しようとすると、＃N/Aのセルに来ると「実行時エラー 13 型が一致しません」とエラーが出てしまいますので、＃N/Aを？に書き換えようと下記のマクロを作りましたが結果は同じでした。たぶんとんでもなく初歩的なミスだと思うのですが、どう対処すればよいのでしょうか？よろしくご指導くださいませ。 セルの内容は縦にこんな感じで並んでいます。 755754 755754 #N/A #N/A 713512 713512 マクロは Sub reword() Dim i As Long i = 1 Do Until Cells(i, 1).Value = "" If Cells(i, 1).Value = "#N/A" Then Cells(i, 1).Value = "?" End If i = i + 1 Loop End Sub ＃N/AのところでLoopはとまり、エラーが出ます。

Ｅｘｃｅｌ２００２です、貼り付け先の書式を残して貼り付ける、コピーするセルを選択します、セルを指定して左クリックしますが、裏の関数が表示されてしまいます、ワンクリックで、どのようにすればなおりますか？よろしくお願いします。

会社の人に質問されたのですがよく分からないのでどなたか教えてください。 商品の仕入れ情報をExcelBook１に入力。 1ヶ月単位でシートを作成している。 ↓ ExcelBook１の情報を参照して在庫？のデータを 管理しているExcelBook２。 こちらは週単位でシートを作成している。 両方のBook共に商品の並びは一緒で、 A1、B1・・・と1行目に日付が入っており、A1、A2・・・とAの列に商品名が入っています。 これを現在週が変わる度に、ExcelBook２の方に =\\server\○○フォルダ\[excelbook1.xls]Sheet1!B2 =\\server\○○フォルダ\[excelbook1.xls]Sheet1!B3 … … という風に地道に入力しているらしいのです。 最初はアイテム数が少なく事足りていたそうなんですが、今では数百アイテムに増えて入力が大変になったそうです。 しかも5行毎にまた日付が入って、備考欄があって…と一気にドラッグする事もできずに面倒になっているようです。 両方とも月単位とか週単位とかに併せるのは難しいらしく（上司が嫌がっている）、なんとか現状のBook2→book1の参照を、関数とかマクロとか使って簡単にできないだろうか？という相談を受けました。 私のレベルとしては、関数もマクロも素人に毛が生えた位のレベルで、 良い案が思い浮かびません。 VBEでbook2に範囲指定して条件文を作成して、book1の商品名と日付が一致したときに =\\server\○○フォルダ\[excelbook1.xls]Sheet1!○○ を自動でbook2の方に入力できるマクロを作成できればいいのかな？とも思ったりするのですが、何か良いアイデアをご存知の方がいらっしゃったら是非ご教示ください。 よろしくお願いします。

過去ログを探しましたが、見つけられなかったのでお願いします。 シート１の表から、シート２のCにデータを飛ばしたいのです。 【シート１】 　　　A　　B　　C 　1　 　 　ア　イ 　2　 あ　0.8　0.5 　3　 い 1.0　0.7 　 【シート２】 　　　A　 B　 C 　1　あ　ア　□←シート１の「0.8」を入れたい。 　2　い　ア　□←シート１の「1.0」を入れたい。 以上、よろしくお願いします。

エクセルで複数のシート（５０頁程）の決まったセル（A5)に 関数式の結果、条件に一致すれば「○」、不一致なら「×」となるようにしています。 これを「○」が表示されるシートのみ全て印刷するマクロが作成したいのですが、 どのような命令文を組めばよいのか分かりません。 本を購入して勉強していますが、浅い知識では初歩的なことしか出来ません。 ぜひ、御教授願います。

EXCEL上にデータベースを作成しています。 タイトル名を『金額』とした列に、金額のデータをいれてるのですが、金額の前に数式上『＝イコール』を表示させたいと思っています。 というのは、今後、修正があった場合に数式にプラス/マイナスを挿入して数式をいれる目的のためです。 〔セル書式設定〕ー〔表示形式〕ー〔ユーザー定義〕で 『=#,##0』 と設定したのですが、これを適用すると、（金額が1、000）だとすると『＝1、000』とテキスト上表示されるだけで、数式には適用されませんでした。 数式欄に『＝1,000』とさせ、セルの画面上は『1,000』と表示するにはどうすればよいでしょうか。 お知恵を拝借させてください。 宜しくお願いします。

こんばんは。 色々調べたのですが、ExcelVBAでAccessのクエリをだインポートするやり方がわかりません。 ↓下記のやり方でクエリを指定すると、SELECTなどの指定がないといわれます。 http://dqn.sakusakutto.jp/2008/05/vbaaccessexcel_ado.html 下記のやり方で http://www.asahi-net.or.jp/~ef2o-inue/kihon/sub01_05_22.html →『ADOでデータを取得する。』で上手くいきそうなのですが、 テーブルのインポートはできても抽出部分が入れられません。 AccessのSQL文コピーし、strSQL="SELECT"の部分に 貼り付け、""でくくり、""部分は、''に置き換え、最後の;を消しました。 SQL部分にSELECT～としたのですが、1行に収まらず、自動改行がかかってしまい、1行目の最終に"が自動でついてしまい、 HAVING以降のAND((T_受付表.分類2)) In('優','普','')などの抽出条件がエラーになってしまいます。 VBAの通常改行 _も入れてみたのですが、えらーになってしまいます。 『 DAOでフィールドを個々に指定して読み込む』 で再度SQLを指定してやってみたところ、SELECT部分のみにすると、選択条件の入っていない、テーブルのデータインポートは上手くいくのですが、どうしても条件がいれられません。 どうしたらよいのでしょうか。 チラッと探したところ、クエリはインポートできないなどのご意見があったのですが、実際のところどのようにしたら良いのでしょうか。 宜しくお願い致します。

自分で調べたのですがよく分からないので質問します。 下のように書いたのですが 実行時エラー '424'; オブジェクトがッ必要です。というエラーが出ます。 Private Sub CommandButton3_Click() Dim F_Name As String, myRange As Range F_Name = Application.GetOpenFilename("Microsoft Excelブック,*.xls") If F_Name <> "False" Then Workbooks.Open F_Name With ActiveWorkbook Set myRange = .Worksheets(1).Range("B6:U509") .Saved = True .Close End With With ThisWorkbook myRange.Copy.Worksheets(2).Range ("B6:U509") End With End If Set myRange = Nothing End Sub やりたいことは読み込んだExcelのシート１（または金額というシート）のB6:U509範囲をコピーし 実行したブックのシート２（または金額というシート）のB6:U509範囲に貼り付けたいのです。 よろしくお願いします