Excel総合相談所 62

>>938
このサイトの説明が参考になりますでしょうか。
違ってたらごめんなさい。
http://www.geocities.jp/happy_ngi/YNxv9562.html

でも毎月一回しか実行しないこんな操作を自動化してもあまり意味ないんじゃないですか？

ありゃ、>938-940 は936さんを含んでいた。
Sorry

>>943
解決おめでとうございます。

>>944,946
ありがとうございます。本来の用途とはかなりちがいます；
要点のみを質問しようと内容を実際とは変更しています。
一人当たりの頻度は月１なのですが、社員の多くが使い、同じフォーマットで管理する面から
１つエクセルﾌｧｲﾙをﾃﾝﾌﾟﾚｰﾄ化させれば後は楽だなと思い、作ってみました。

色々とありがとうございました。

>>なるほど。それは失礼しました。

>938さんのやり方でグラフの消去を試みたところ、以下のメッセージが現れ
ました。

http://www.imgup.org/iup521873.jpg

ボタンクリック時の記述は　Application.run "Macro1"　で、デバックを押すと
以下のサブルーチンが表示されました。
どう対処すべきでしょうか？

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/18 ユーザー名 : PC-USER
'
ActiveWindow.Visible = False
Selection.Delete
ActiveSheet.ChartObjects("グラフ 16").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Selection.Delete
End Sub

>>949
すみません試しもせず解答してしまいました。

Sub Macro1()
ActiveSheet.ChartObjects("グラフ 1").Delete
End Sub

一度これでやってみてください。

>>941
.backcolor =RGB(255,128,0)

>>941
色は vbRed なら赤、vbGreen なら緑になる。あとはヘルプ見ろ。
例
.BackColor = vbRed

標準以外の色を使いたいときはRGB関数を使う。

>951
が解答出したその後の解答の癖に何を偉そうに

次の質問どうぞ

【1 OSの種類 　 　 　 　 .】 Windows xp pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード 　入れ子

K2の値が「2005」なら「前々期」、「2006」なら「前期」、
「2007」なら「当期」、いずれも無ければ「該当無」
と表示させるために以下の式を作ったつもりなのですが、K2に何を入れても「該当無」しかでないのです

=IF(K2=2005,"前々期",IF(K2=2006,"前期",IF(K2=2007,"当期","該当無")))
正しい式を教えてください、お願いします。

エクセル2003を使っています
アクセスからエクセルにデータを読み込む際
オーバーフローしないようにマクロを作りたいのですが
何を上限とすればいいのでしょうか
単純に65536行x256列までと考えていいのでしょうか

式は合ってる　入力した値が違うんだろう

>>957
レスありがとうございます、全て半角に直したのですがダメでした
他の方法を探します、ありがとうございました。

>>958
ためしに"2006"というように年を""で囲む

【1 OSの種類 　 　 　 　 .】 Windows XP Pro
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Excel 2007 Printpreview

ブックを開くと自動的にシートにデータをセットし、そのシートをプレビューを表示するという
マクロが付いたブックがあります。
このブックをExcel2007で開くと、プレビュー画面は表示されるのですが印刷ボタンが
クリック不可状態(灰色?表示)となってしまいます。メニューからの印刷も同様です。

プレビューの部分のコードは以下の通りです。
Worksheets(1).PrintPreview

Excel2000で開くと問題なく印刷できます。
何が原因なのでしょうか?

>>955
正常に機能しとるぞ

>>955
K2セルの書式が文字型になってるんじゃないの？
数式自体は正しい

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　シグモイド

散布図をブロットしたところ、シグモイド曲線を描くようなのですが
ここに一発でシグモイド曲線を表示させることはできないでしょうか？

>>960
ソノシート以外ではプリントアウトは可能でしょうか？＞2007

>>964
どうやらWorkbook_Open内でPrintPreviewを行うと、この現象が発生する所までは分かりました。
2000では問題なく動くのでなんとかしたいのですが、ネット上で検索しても情報がありません。

これは私の環境特有の現象でしょうか…?

>>965
プリンタが使用可能になるタイミングの問題かな。
正攻法でやるならプリンターのステータスをちゃんとチェックすべきなんだろうけど、
手っ取り早くやるなら別のイベントでプレビューを走らせるように改造するとか。
ちゃんと調べたわけではないけどWindowActivateかSheetActivateあたりでどう？

いっそのことタイマーをセットして、一定時間待ってからプレビューするとか。

同一ブック内でのコピペなんですが、止まってしまいます。
どこがイクないのでしょうか？

Worksheets("Sheet1").Range("A1", Range("C65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet2").Range("A2")

>>967
その関数自体には問題はないね。
コピーされるセルの内容、データや数式の方が怪しい。

あるいは時間がかかってるだけかも。
定番だけどコピペの前に
ActiveSheet.EnableCalculation = False
Application.ScreenUpdating = False
を追加してみる。

>>967
Worksheets("Sheet1").Range("A1", Worksheets("Sheet1").Range("C65536").End(xlUp)).Copy _
　　Destination:=Worksheets("Sheet2").Range("A2")

>>957
どう言う意味ですか?
>>959
ダメでした
>>961
ダメでした
>>962
｢標準｣｢数値｣共にダメでした

今日は方法を変えて、
200503〜200602は｢前々期｣
200603〜200702は｢前期｣
200703〜200802は｢当期｣、範囲外であれば｢該当無｣としたいので
A2に数値を入れB2へ下記の式を入れました
=IF(A2=(200503<=200602),"前々期",IF(A2=(200603<=200702),"前期",IF(A2=(200703<=200802),"当期","該当無")))
しかしこれもダメでした、
間違っていれば正しい式を、正しければ原因を教えていただけたらと思います
よろしくお願いいします。（今日はEXCEL2007.WINXP環境です)
今回は丸投げして下さい
http://www.dotup.org/uploda/www.dotup.org16048.zip.html
PASS 1221

>>970
=IF(AND(A2>=200503,A2<=200602),"前々期",IF(AND(A2>=200603,A2<=200702),"前期",IF(AND(A2>=200703,A2<=200802),"当期","該当無")))

次スレ用意しとけ

お前がな

俺の質問に答えるためにおまえらが集まるスレなのに
なんで俺が立てなきゃならんのだ

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル 二重 上付き 下付き 文字 セル

1セル中に上付きと下付き文字を併用させて、二重にしたいのですが、
そんなことって可能でしょうか？

>>975
フォント小さくしてセル内改行（alt+enter）すれば済む話のような気がするが違うのか
「二重」の意味がわからん

>>975
たとえばセルの中の文字列を分割して、部分ごとに上付きや下付きを設定することは可能。
数式バー上で設定したい部分だけ右クリックして、セルの書式設定からやればいい。

ただたぶん、おまいさんが作りたいと思っている結果にはならないと思う。

上付きと下付きの二重って、想像するに「�i」←小さな数字や記号を、こんなふうに上下2列に並べたいってこと？
だとしたら、これは無理。

「ろ−(改行)かり」
と入力し縦書きにする
必要な部分の字を小さくする

ちょっと苦しいか

Excelの仕様について質問なんですが

マルチ・プロセッサ対応してるのは、どのExcelからですか？

関数の多いシートで作業しなければならず、少しでも速く作業をしたいのですが
どのExcelが良いかと思いまして

【1 OSの種類 　 　 　 　 .】 Windows　XPSP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 キー指定　第1キー

以下のような表を元に下記のような集計処理を行いたいのですが、
どのような操作手順を踏めば可能でしょうか？

セルＡ　　
セルＢ　
セルＣ
（略）
セルＳ　（金額が入っています）


として、全レコードについて、セルＡを第1キー、セルＢを第2キー、セルＣを第3キーと設定して各レコードのキー設定を行います。
一方、第3キーレベルで、セルＳの金額の総和を求めて、もう一度第1キーレベルでその金額の集計を取りたいのです。

どうすればいいでしょうか？
急いでます。よろしくお願いします。

ピボットテーブルかな

>>983

すみませんが、具体的なピボットテーブルの操作手順を教えていただけないでしょうか。
ピボットテーブル自体は使ったことはありますが、第3キーまで指定したり、
キーごとの金額集計と言うのは行ったことがありません。

>>983

すみませんが、具体的なピボットテーブルの操作手順を教えていただけないでしょうか。
ピボットテーブル自体は使ったことはありますが、第3キーまで指定したり、
キーごとの金額集計と言うのは行ったことがありません。

>>985
ttp://www11.plala.or.jp/koma_Excel/pivot_menu.html

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

行番号が、４の次が２０、２４の次が３２になってしまっています。
（その間は連続して数値がうたれている）
これを、元の通りに 連続した数字に戻したい、と父に相談されました。
アウトライン関係かと思って削除したのですが、解決しませんでした。
解決手段はあるのでしょうか。

なお、どうしてこうなったのかは、父も良く解らないそうです…。

>>987
とりあえず「4」の行と「20」の行を行ごと選択して、
行番号のところで右クリック→再表示とやってみるとか。

あと、オートフィルタを使っている（項目名にあたるセルに▼が出ている）なら
それをオフな。

>>988
ありがとうございます。

行が消滅したわけではなく、隠れておりました…。
１ドットの隙間もなく。
ドラッグ操作でなんとか引きずり出せました。
大変お騒がせしました。

なんでこんなんなったやら…。

>>989
複数の行をまとめて選択して、行番号の下端あたりに
マウスポインタ合わせて上にひっぱる。簡単に隠せるからやってみそ。

慣れない人の誤操作でも簡単に起きる。

XPマシンに、Excel 5.0をインスコして使えますか？

>>979
縦書きにすると普通の字と混在できるんだな、ひっくり返さにゃならんけど
確かに苦しいがちょっと感心した