hallo-2007 の回答履歴

エクセルで納品書を作りたいのですが 別ファイルで出荷明細があります。 それに　100行近くにわたり、送り先と 隣のセルに納品数量があります。 これをそれぞれの送り先別に納品書としたいのですが どのような方法でやるのが　簡単でしょうか？ 品名はすべて同じで　変更したいところは 数量と　送り先だけです。 教えていただけるとうれしいです。

設問をA列に、回答欄をB列に設定した10問程の 正誤問題の一覧を作ろうとしています。 （B１に問題文、B２に正または誤で回答） セルを選択時にオプションボタンが出るようにし、 選択したものがセルに入力されるように プログラムを組みました。 現在入力しているコードは以下のものになります。 ●User Form Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Worksheets(1).Range("B2").Value = OptionButton1.Caption ElseIf OptionButton2.Value = True Then Worksheets(1).Range("B2").Value = OptionButton2.Caption End If End Sub ●Sheet1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Show End Sub これと同じことがB3～B11でも繰り返されるようにするには どのようにコードを入力すれば良いでしょうか。 （Do～LoopやFor each～Nextを使用するのでしょうか？） また、現在はどのセルを選択してもオプションボタンが出るように なっているのですが、B2を選択したときにだけ出すようにすることは 可能でしょうか？ 初歩的な質問かもしれませんが、 全く検討がつかないのでご回答お願い致します。

２月１８日にエコノミストの記事を引用すると日本全体で稼働しているロボットの台数は、００年の３８万９０００台をピークに、１２年には３１万１０００台に減った。一方、同時期に北米と欧州のロボット稼働台数の合計は３０万１０００台から５７万９０００台に、増えたとのこと。韓国も中国も増やしているようで、ロボット先進国だったはずの日本が遅れ始めたことは残念です。 政府はロボットに大規模投資して少子高齢化に対応すべきだと思いますが如何でしょう。

VBでWebBrowser1に表示したページのURLをTextBox1に表示させたいです。 分かる方サンプルコードを教えて下さい。お願いいたします。

CSV取込により、添付画像のフォーマットに値で貼り付けし、昇順に並び変え、 印刷が出来るマクロが出来ないか考えていますが、何から手をつけていいのか分からない ため、詳しい方ご教授お願いします。 ■したいこと (1)CSVを取込し、値で添付のようなフォーマットに貼り付けしたい 　6行目でいうと、CSVのそれぞれの以下のセルの値がエクセル表の以下のセルに 　値で貼り付くようになります。 　※エクセル表は5行目がタイトル行になります。 　※コピー後の貼り付けは値で貼りつけしたい 　　　　　 エクセル表　B6 C6 D6 E6 F6 G6 　CSV　 　A2 B2 E2 F2 I2 L2 (2)昇順に並び変えをしたい 　G列は数字になりますので、昇順で並び変えをしたい (3)値が入っている範囲で印刷をしたい。 　CSV取込によりセットした値の印刷範囲で自動で印刷するようにしたいです。 すみませんが、宜しくお願いします。

お世話になっております。 エクセルのマクロを使用して以下の操作を行わせる場合、 どのようなVBAを作成すればよろしいのでしょうか。 　Dドライブ直下のAディレクトリに保存されている,B.htmlをメモ帳で開き、 　アクティブなエクセルファイルの A1～D10 のセルを B.html に張り付けて、 　上書き保存する。 自分でも色々調べながらVBAを作ってみたのですが、 htmlファイルの上書き保存が上手くいきません・・・。

設問をA列に、回答欄をB列に設定した10問程の 正誤問題の一覧を作ろうとしています。 （B１に問題文、B２に正または誤で回答） セルを選択時にオプションボタンが出るようにし、 選択したものがセルに入力されるように プログラムを組みました。 現在入力しているコードは以下のものになります。 ●User Form Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Worksheets(1).Range("B2").Value = OptionButton1.Caption ElseIf OptionButton2.Value = True Then Worksheets(1).Range("B2").Value = OptionButton2.Caption End If End Sub ●Sheet1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) UserForm1.Show End Sub これと同じことがB3～B11でも繰り返されるようにするには どのようにコードを入力すれば良いでしょうか。 （Do～LoopやFor each～Nextを使用するのでしょうか？） また、現在はどのセルを選択してもオプションボタンが出るように なっているのですが、B2を選択したときにだけ出すようにすることは 可能でしょうか？ 初歩的な質問かもしれませんが、 全く検討がつかないのでご回答お願い致します。

エクセル２０１０ですが ピボットテーブルで 「ファイルを開くときにデータを更新する」 と言う機能はありますが 「シートがアクティブになったらデータを更新する」 を行うには、マクロを組むしかないでしょうか？

Excel2010で、セルの表示形式-分類が「数値」のとき、セルの値を （文字列のように）はみ出し表示できるようにするには、 どうしたらよいのでしょうか？？ ５文字分の幅をもつ「文字列」のセルに「1234567」を セットすると、はみ出して「1234567」を、全部表示表示できます。 これに対して、同様の幅の「数値」のセルに、1234567を セットすると、桁数オーバーで、「#####」が表示されます。 「数値」のセルでも、「文字列」のように、はみ出し可能にすることは できるでしょうか？？ できるのでしたら、どのようにしたらできるでしょうか？？ ご教示のほど、よろしくお願いいたします。

計算方法の設定を「自動」にしているのですが シートを切り替えてもセル上のNOW()が更新されません。 F9を押すと更新されますが 「自動」と言うのはどのタイミングで更新されるのでしょうか？

Excel初心者です。自分で調べたのですが色つきに数字が入力れている計算方法は分かったのですが空欄と色つきだけで計算など出来るのでしょうか？？ 例えばこの写真ですとB列は空欄のＡさん、Ｂさんが出勤で灰色の色は休みになります。合計が2と表示されています。これを次のシフトを作る時に色だけで合計欄にそれぞれ自動入力したいのですが可能でしょうか？ Excelのスキルを身に着けたいので難しい操作でもやってみたいので皆さんのご意見よろしくお願いします。

初めまして 宜しくお願いします。 会合で毎週資料をエクセルにて作成しております。 作成後、各関係者へ送付するのですが、簡単に エクセル上からマクロなどでその作成したドキュメントを 送付する（e-mail)方法　（マクロなど）はありませんでしょうか？ 会合の後、ドキュメント作成は各人の持ち回りですので、簡単な方法が あればと思っております。 使用するＰＣは同じで同じ環境です。（発信のメールアドレスも同じです。） 以上　アドバイスを頂ければ幸いです。

1969年（昭和44年）に、伊豆のモノマネで始めた太地町のイルカ漁って伝統文化なのですか？ 地町のイルカ漁って、カップヌードル（1971年（昭和46年））、『男はつらいよ』（1969年（昭和44年））程の歴史しかないですけどw 静岡県伊東市富戸から学び1969年（昭和44年）から始めたイルカ追い込み漁などのイルカ漁業だけが行われており、イルカ追い込み漁に関しては他地域での衰退もあり、日本国内で大規模な追い込み漁が実施されている唯一の町でもある。(wikipedia)

ヤフーニュースサイトから引用です。 http://headlines.yahoo.co.jp/hl?a=20140126-00000000-mai-soci ＜農薬混入＞マルハニチロ社長「痛恨の極み」…引責辞任へ 毎日新聞 1月26日(日)0時23分配信 ＜農薬混入＞マルハニチロ社長「痛恨の極み」…引責辞任へ 　水産大手マルハニチロホールディングス（ＨＤ）の子会社「アクリフーズ」の群馬工場（群馬県大泉町）で製造された冷凍食品から農薬「マラチオン」が検出された事件で、群馬県警は２５日、食品に農薬を混入させたとして、同工場の契約社員、阿部利樹容疑者（４９）＝同町古氷（ふるこおり）＝を偽計業務妨害容疑で逮捕した。「覚えていない」と容疑を否認しているという。マルハＨＤの久代（くしろ）敏男社長とアクリフーズの田辺裕（ゆたか）社長は同日夜に記者会見し、３月３１日付で引責辞任すると発表した。 引用終了 --- なぜこの二人が引責辞任するのでしょうか？ 「そんなもん、毒入り食品を流通させたんだから当然だろ！」 「食って腹壊した人だっているんだぞ！　辞任でも物足りないぐらいだ！　切腹して詫びろ！！」 というご意見があるのは分かっています。 しかし、世間にはもっともっと重大事件を起こしながら、 「秘書がやったことです」 「妻がやったことです」 「社員が勝手にやったことなので責任は持てない」 「派遣社員がやったことだから、派遣元の人材派遣会社が悪いんだ」 「社内のバッドニュースが、トップの私まで上がってこなかったことが原因」 などなど、部下や他人や家族に責任を押し付け 「今後は組織の体制を見直すことこそ私の責任である」 「責任を取って辞めるのは簡単。辞めずに今後も責務を続けることこそ意義がある」 などなどの言い訳を並べ立てて、地位に居座ろうとする輩が多い世の中です。 なぜこの二人は引責辞任をするのでしょうか？ 今の 「手柄は上へ、責任は下へ」 の世の中に照らし合わせると、清々しいというか、むしろ逆に 「とっとと辞任することによって、かえって都合のいい事でもあるのではないか？」 と勘繰りたくもなってしまいます。 質問です。 何故この二人は、組織の末端の、ピラミッドの底辺の、しかも契約社員、という非常に地位も責任もない男がしでかした事件の責任を取って、潔く辞任をするのでしょうか？ なにかおかしいんじゃないですか？ それともこんな勘繰りをする私の方がおかしいのでしょうか？ 「我こそは常識人」という方、正しい常識による分析を教えてください。

地球改造など、どでかいことを想像するのが好きです。 夏の冷房に関し次のようなことを考えました。 東京湾や大阪湾に１０km×10km×10mの桶を浮かべます。 そこへ深海から２℃海水を毎秒１０００t注ぎます。 温かくなった海水は桶からあふれますが、冷たい海水が供給されるので桶の表面は５～６度では？ このような装置があれば東京や大阪のような都市全体を冷やすことが可能では？ －追加質問－ 海水をポンプで深海からくみ上げる（移動させる）に要する電力は幾らですか？（毎秒１０００t） 　

VBAはじめたばかりで、躓きました。 下記を実行すると、”Nextに対するForがありません。”とでます。 なぜこうなるのか教えてください。 　G2～列2000の間が空白になるまで、 　下記の処理を続けるようにしたいと思っています。 　Dim i As Integer For i = 7 To 2000 Do If Cells(2, i) = "" Then Range("G2").End(xlToRight).Select ActiveCell.CurrentRegion.Resize(6, 5).Select Selection.Cut Range("B2").End(xlDown).Select ActiveCell.Offset(1).Select ActiveSheet.Paste Exit Do End If Next i Loop 　よろしくお願いします。

福島の汚染水タンクって、2020年、東京五輪の頃には100万個ぐらい乱立してますか？ 東電の名水が、滾々と湧き出てるみたいですけど。

円安が止まりません。 輸入品の値上げなど、じわりじわりと来ています。 これから日本人はインフレで生活苦になっていきますか？

　先日半導体大手ルネサスの鶴岡工場が経営不振で閉鎖予定のところ、ソニーが買収すると報道がありました。工場従業員の7割は雇用が維持されるそうです。 　ルネサスの平均年収は669万円、ソニーのそれは891万円です（いずれも2012年値）。 かなり開きがありますが、これまでルネサスの工場で働いていた人は、ソニー並の給料を貰えるのでしょうか？ 　利益安定で売却を免れた工場より、利益不足で売却された工場のほうがむしろ給料が良くなるという逆転現象が起こるのでしょうか？

エクセルのマクロでActiveCellの両端のセルの列番号 はどの様にして得るのでしょうか、教えて頂ければ幸い です、宜しくお願いします。