hallo-2007 の回答履歴

前回の回答の後、お二人の答えや、自分なりに調べたり、試したりしたのですが よく分からないことがありますので再度質問させて頂きます。 　EXCEL2010　で作表しています。 　 　まず、４つのシート　１．（売上日報） 　　　　　　　　　　　　　２．（現金収支表） 　　　　　　　　　　　　　３．（商品受け渡し表） 　　　　　　　　　　　　　４．（各レジ現金管理表）、これらが１つのブックで１日となります。 　このブックを『０１』として、これをコピーして、ひと月分『０１』～『３１』を作り 　　　　　　　　　　　　　１．．（売上日報）では、数種類の売上項目が累計で必要ですので 　　　　　　　　　　　　　　　　前日のデータを参照して計算する 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　　２．（現金収支表） 　　　　　　　　　　　　　３．（商品受け渡し表）では、金種ごとに残高の繰越が必要なので 　　　　　　　　　　　　　　　これも前日のデータを参照して計算する 　これを作る過程で質問があります。 【質問A】　１日単位のブックをコピーしたわけですから、当然日付をひとつのセル毎で 　　　　　　書き換えなければならないのですが、一括で書き換えは出来ないでしょうか？ 【質問B】　休日が不定期なので第１回答のように別に表を作り 　　　　　　元の表に入力したら自動で別表に記入するのは 　　　　　　どうすれば良いでしょうか？ 　　　　　よろしくお願い致します。 　　　 　　　　

Excelブックを毎朝8時になると指定のフォルダに年月日を付けて自動保存（上書きではなく新規で）したいのですが、やり方が分かりません。 VBA初心者なのでよく分かりません。分かりにくい説明文で申し訳ないですが、教えて下さい。宜しくお願いします(^_^;)

ユーザーフォームのテキスト氏名、日付１、日付２を入力したらExcel表のマッチした氏名行の日付を○印で入力するようなVBAのコードがありますでしょうか。どなたかご教授のほどよろしくお願いします。

エクセルのマクロを使った文字の置換についてお聞きしたことがありましす。 やりたいイメージは例として添付の画像としてアップしましたが、 ・エクセルシートに英数文字列の表がある（例では2行2列ですが、実際は6行48列ぐらいです） ・その表を各英数文字列の間に半角カンマ","を入れて、メモ帳に貼り付けたい 　　※実際メモ帳に貼り付ける動作は手動で行うので、クリップボード上で「各英数文字列 　　　の間に半角カンマ","が入っている状態」で構いません。 ・各英数文字列の最初の2文字は必ず"0a"、その後の英数字は3桁または4桁です。 ちなみに、エクセルシートで英数文字列の表をそのままコピーしてメモ帳でペーストすると 各英数文字列の間にスペース（空白）が入ってしまいます。 その後、メモ帳で置換などを使い半角カンマ","を入れてもいいのですが、そこまでをマクロで行いたいと思っております。 上記のことがそもそもエクセルのマクロで出来るかどか分かりませんが、なにか有用な方法がございましたらご教授お願い致します。 　※使用OS：Windows7、エクセルバージョン：2007

ユーザーフォームのテキスト氏名、日付１、日付２を入力したらExcel表のマッチした氏名行の日付を○印で入力するようなVBAのコードがありますでしょうか。どなたかご教授のほどよろしくお願いします。

VBAで計算中は点滅し計算が終了すると点灯するパイロットランプを ユーザーフォームにつけたいのですが、 こういったコントロールはありますでしょうか？ ツールボックスのその他を探したり、検索したりしても見つかりませんでした。 代替案として文字ボックスに文字を出すという方法もありますが 少し見栄え良くするために、良い方法があれば教えてください。

エクセル・ワード、仕事でそこそこ使ってますが、 マクロ組んだり関数つかいこなしたり、簡単なプログラムくんでソフトウェアつくりたいと思ってます。 おすすめの本や勉強方法がありますか？？

簡単に体罰はダメと言います。何をもって体罰と言っていますか？ ボールを投げつけるのは体罰でしょうね、では野球部で一人の子に倒れこむまでノックをするのは教育？体罰？ うさぎ跳びを強要するのは？ 止めてしまえと暴言を吐くのはダメ、イイ？ 体罰する教師は指導力不足とか言葉でわかるとか言いますがそれってキレイ事に過ぎず、中国人に泥棒するなというようなものだと思います。 一部のワルガキで教室が荒れて授業が出来ないとします。 教師が教室の外へ出なさいと言っても今時のガキは利口で手を出したら教育委員会へ言うからな、とか平気で教師をなめてます。 授業が出来ないので教室外へひきづり出したら体罰ですよね。 先生は何もしないで自習ばかりしていて父兄は文句言わないですか？ 私が教師なら耳を持って引っ張りだすか最後どつきまわします。 熱血教師がいけないというなら教師も公務員です。何もしないで事なかれ主義になっていくでしょう、最悪です。 完全に本当に体罰（指導）をなくすなら競争をなくすことです。 全ての体育系試合や競争は禁止、みんな手をつないでゴールすること。 全てのテストや受験は禁止くじ引きにすること。 そうすれば指導もなくなり相手より強くなろうとも思わなくなります。 しかし日本もダメになります。 そこで私の考えだした実用的且つ即効の案は教室の天井に監視カメラを一台置きます。 授業を見える化します。先生は公開授業などあるわけだから問題ないと思います。 生徒には文句を言わせません。お前の行動を親が見てるぞという牽制になります。 少なくとも先生も生徒も緊張感が出ると思います、場合によっては安心感もあるかも。 カメラを見るのは、校長、教育委員会、他の教師、父兄、など基準を決めればいいと思います。 教室が荒れて熱血教師が切れそうになったら悪ガキの父兄に電話して今スイッチを入れるからネットを見ろ！バカタレ！ といえます。 街中に監視カメラのある時代教室に有ってもいいじゃないですか、皆さんどうでしょうか

　指定範囲(I9:CW40)の中で1列おきに2列選択したいのですが 、当然ですがマクロで記録はできても実行できませんし2行1列には関数式が入っているのでこれを除いて他の範囲(I71:CW99)に同じように１列おきに２列に「形式として貼り付け」ー「値」としたいのですが、お教え願えませんでしようか？ Sheets("メイン").Select Range( _ "J9:K40,M9:N40,P9:Q40,S9:T40,V9:W40,Y9:Z40,AB9:AC40,AE9:AF40,AH9:AI40,AK9:AL40,AN9:AO40,AQ9:AR40,AT9:AU40,AW9:AX40,AZ9:BA40,BF9:BG40,BI9:BJ40,BL9:BM40,BO9:BP40,BR9:BS40,BU9:BV40,BX9:BY40,CA9:CB40,CD9:CE40,CG9:CH40,CJ9:CK40,CM9:CN40,CP9:CQ40,CS9:CT40,CV9:CW40" _ ).Select Range("CV9").Activate Selection.Copy End Sub

エクセル2003です エクセルの印刷レビュ－までのマクロをおしえてください *A列からQ列までで行は1～150で伸縮します 　最終行をA5より下のA列のセルに値が連続で入っている最後が最終印刷範囲行とします *罫線ありです *1ページを30行とします *2ページ目からの先頭行に（A7：Q7）を印刷に入れたい *ヘッダーは右上に日付 *フッダーは右下にページ 現状では罫線で最終行が決まってしまいます 現状コード Sub 印刷() With ActiveSheet.PageSetup .PrintTitleRows = "$7:$7" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = Range("A1:Q1").Resize(Range("A" & Rows.Count).End(xlUp).Row).Address With ActiveSheet.PageSetup .RightHeader = "&""ＭＳ Ｐゴシック,太字 斜体""&14&D" .RightFooter = "&""ＭＳ Ｐゴシック,太字 斜体""&14&P/&N" .PaperSize = xlPaperA4 .Zoom = 75 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintPreview End Sub 罫線ではなくA列のセルに文字列等が入っている行を最終行にしたいのですが 教えて頂けないでしょうか？ 出来れば説明付きでよろしくお願いします

色々考えてるのですが今一上手くいきません。 宜しくお願いします。 使用するセルはA1・B1・C1とします。 すべて数字が入るとし、条件は下記の通りです。 A1に入力があればA1/A2をC1に出力 B1に入力があればB1/B2をC1に出力 A1・B1両方に入力があればC1にエラー表示 A1・B1両方に入力がなければC1には何も表示しない(空欄扱い)

今話題のニュースですが、 海外の発展を支援している日本ななに、 どうして日本人が殺されたのでしょうか？

エクセル2003です エクセルの印刷レビュ－までのマクロをおしえてください *A列からQ列までで行は1～150で伸縮します 　最終行をA5より下のA列のセルに値が連続で入っている最後が最終印刷範囲行とします *罫線ありです *1ページを30行とします *2ページ目からの先頭行に（A7：Q7）を印刷に入れたい *ヘッダーは右上に日付 *フッダーは右下にページ 現状では罫線で最終行が決まってしまいます 現状コード Sub 印刷() With ActiveSheet.PageSetup .PrintTitleRows = "$7:$7" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = Range("A1:Q1").Resize(Range("A" & Rows.Count).End(xlUp).Row).Address With ActiveSheet.PageSetup .RightHeader = "&""ＭＳ Ｐゴシック,太字 斜体""&14&D" .RightFooter = "&""ＭＳ Ｐゴシック,太字 斜体""&14&P/&N" .PaperSize = xlPaperA4 .Zoom = 75 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintPreview End Sub 罫線ではなくA列のセルに文字列等が入っている行を最終行にしたいのですが 教えて頂けないでしょうか？ 出来れば説明付きでよろしくお願いします

失業率が年々高くなっている原因は景気の低迷以外、何か考えられますか？ 企業は採用しなくなった…。 けど、少子化により、競争率は低下してる気もしますが、そういうわけではありませんか。

お金がどんどん貸し出されて、設備投資がされて、 企業収益が改善されても結局ですねぇ、 企業が内部留保金として蓄えてしまえば・・・ 給料も上がらないし、採用枠も増やさない。 景気回復といかないのではないですか！？ そこんとこどうでしょうか？

大阪市長の橋下さんが大阪市の教育委員会に対し、市立大阪桜宮高校に対し四月新学期より体育 関連の課程の全教員の総取替えと、同じく今年度の生徒募集停止を指示したというニュースを聞いて腹が立ちました。みなさんはどう感じられましたか。 これは全く関係のない人を巻き込んだ最もタチの悪い全体責任主義の典型であり、口先では「体罰の絶滅のため」と言っておきながら、体罰以上の精神的苦痛を事件には関係ない人に取らせようとするものです。真面目にやってきた桜宮高校の教師や、この高校を目指して全てをかけてきた受験生の中に、ショックのあまり自殺者が出たとしたら、橋下はなんと責任を取る気なのでしょうか。体罰以上にもっと陰険な精神的苦痛をこの体罰事件と関係のない人に与えた責任はどうするつもりなのでしょうか。人に責任を取らせる前に教育委員会を含めてトップの座にいる橋下市長みずからがまず責任を取るべきだと思いますが。

はじめまして、よろしくお願いします。 現在、パソコンを頻繁に使う作業を行ってるのですが、 『ほとんど同じ作業を繰り返す』という作業をすることが頻繁にあります。 例えば、エクセルで管理している複数のIDやパスワードを使って、 特定のサイトにログインしたり、会員登録の業務をしたりしています。 現在、単純な作業に関しては、UOKXというマクロツールを使っているのですが、 このツールが起動している間は、パソコン操作が出来ないというデメリットなどがあります。 そこで、今からプログラムの作り方を学んで、 バックグランドでプログラムを動かしたいと思っています。 ただ、プログラム作成に関しては、素人なので、 どのようなプログラム方法を勉強すればいいのか？ また、どのようなサイトを見たり、書籍を見て勉強すればいいのかがわかりません。 そこで、以下のような作業を行なってくれるプログラムを作成する際に、 どのようにしていけば良いのかを教えて頂けますようにお願い致します。 1.複数のIDやパスワードをエクセルやCSVに入力しておいて、HPスペースやブログスペースの取得をする。 2.画面にウィンドウが表示されたら、自動でクリックする。 ひとまず、このような作業をこなせるプログラムを作りたいです。 初心者が簡単に出来て、パソコンへの負担を軽く出来るプログラムの作り方の勉強方法を教えて下さい。 ちょっとむずかしいと思いますが、よろしくお願い致します。

今、（いや昔から？）会社の幹部はだいたいが40代から50代とすると、若者は働くことに関してピンチになりますよね。 理由分かりますか？ とにかく、幹部が責任逃れと見栄っ張りがほとんど。 だから、コミュニケーション以前の問題。 しかも、どうしようもない奴を雇い、また、そいつが、はびこる。 もはや、仕事＝社会貢献（人の役に立つこと）ではなくなっている。 だから、若者にはほとんど希望がないと言っていいでしょう。 だから、学校生活で苦しい思いをした時に、これを乗り越えたら明るい未来があるとはいかない。だから、若者の自殺は単に「忍耐力が弱い」では片付けられない。 こんな時代に意欲的に働けるかって言うと、そうじゃないでしょ。 皆さんはどう感じているのですか？ 上記に挙げた会社なんてほとんどないよっていう答えが一番欲しい。

はじめまして、よろしくお願いします。 現在、パソコンを頻繁に使う作業を行ってるのですが、 『ほとんど同じ作業を繰り返す』という作業をすることが頻繁にあります。 例えば、エクセルで管理している複数のIDやパスワードを使って、 特定のサイトにログインしたり、会員登録の業務をしたりしています。 現在、単純な作業に関しては、UOKXというマクロツールを使っているのですが、 このツールが起動している間は、パソコン操作が出来ないというデメリットなどがあります。 そこで、今からプログラムの作り方を学んで、 バックグランドでプログラムを動かしたいと思っています。 ただ、プログラム作成に関しては、素人なので、 どのようなプログラム方法を勉強すればいいのか？ また、どのようなサイトを見たり、書籍を見て勉強すればいいのかがわかりません。 そこで、以下のような作業を行なってくれるプログラムを作成する際に、 どのようにしていけば良いのかを教えて頂けますようにお願い致します。 1.複数のIDやパスワードをエクセルやCSVに入力しておいて、HPスペースやブログスペースの取得をする。 2.画面にウィンドウが表示されたら、自動でクリックする。 ひとまず、このような作業をこなせるプログラムを作りたいです。 初心者が簡単に出来て、パソコンへの負担を軽く出来るプログラムの作り方の勉強方法を教えて下さい。 ちょっとむずかしいと思いますが、よろしくお願い致します。

今、（いや昔から？）会社の幹部はだいたいが40代から50代とすると、若者は働くことに関してピンチになりますよね。 理由分かりますか？ とにかく、幹部が責任逃れと見栄っ張りがほとんど。 だから、コミュニケーション以前の問題。 しかも、どうしようもない奴を雇い、また、そいつが、はびこる。 もはや、仕事＝社会貢献（人の役に立つこと）ではなくなっている。 だから、若者にはほとんど希望がないと言っていいでしょう。 だから、学校生活で苦しい思いをした時に、これを乗り越えたら明るい未来があるとはいかない。だから、若者の自殺は単に「忍耐力が弱い」では片付けられない。 こんな時代に意欲的に働けるかって言うと、そうじゃないでしょ。 皆さんはどう感じているのですか？ 上記に挙げた会社なんてほとんどないよっていう答えが一番欲しい。