Excel総合相談所 56

Excelに関する質問は、ここで！

▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は必須情報。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。

※【5】は、あなたがGoogleやヘルプで検索した際に使ったキーワードを書いてください。
　 まだ検索してないなら、質問の前にGoogleやヘルプで検索してみてください。
　 ttp://www.google.co.jp/

前スレ(55)：http://pc11.2ch.net/test/read.cgi/bsoft/1174961523/l50

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
　　ここは技術的な質問のみで。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で　Excelに関係ないことも出来ます。
　　Excelの操作に関係ない部分は、スレ違いなのでここで聞かずにVB言語やAPI､COMについて自分で勉強し､
　　どうしてもわからない部分はVBスレやAPIスレなどの該当スレで質問しましょう。
　　但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
　　ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
　　その上で、どううまくいかないのかを具体的に書きましょう。
　　エラーが出るなら、何処でどういうエラーが出るのか、
　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチはダメ。一度マルチしたら､謝っても他のスレの質問を取り下げても回答は得られないと思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。
･B 書籍や解説サイトの紹介以来はスレ以外。ここは技術的な質問のみで。

★ルールを無視すると…
　>>1-2あたりのルールに従うか否かは自由だけど､従わないと以下のような不利益があるよ

　1．マルチをしてしまったら…
　A．謝っても他での質問を取り下げても､以後その質問に対する回答は付かない物と思ってください。
　　　それが嫌なら初めからマルチなんてしないように。>>2にマルチ禁止と書いてあり､
　　　マルチの意味が分からなければ検索すれば出てくるので､｢知らなかった｣は通用しません。

　2．>>1★4に従わず､必要な情報を出さないと…
　A．自分の使用しているバージョンで使えない機能を答えられたり､VBA使えないとか使いたくないと書かないと
　　　VBAでの解決OKで自分でコード書けるものと勝手に解釈されて､｢VBAで出来るから自分でコード書いて｣程度の
　　　適当な回答を返されたりします。また､ここではVBAコード書けない人の丸投げ依頼を許可してますが
　　　これはきちんとルールに従って質問､依頼した人のみの特権です。

　3．情報･条件を後出しすると…
　A．後から出された情報は意図的に無視されたり､質問自体を放置されたりします。
　　　>>1★4の必須情報はもちろんのこと､要望や条件､既に試したことなどは､
　　　長文になってもいいので詳細かつ明確かつ具体的に書きましょう。


★VBAについて
　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheets
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。　
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼環境･書式
　 ･ 列数を256列以上、行数を65'536行以上に増やす (Excel2007では16'384列､1'048'579行扱える)
　 ･ Excel2003以前で条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA)
　 ･ 行の高さを0.25きざみ以下の単位で指定する
　 ･ セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト)
　 ･ オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける)
　 ･ 祝日を判断する (作業セルに祝日を列挙、VBA)
　 ･ 同一列内でセル(行)ごとに列幅を変える、同一行内でセル(列)ごとに列高を変える (セルの結合)
　 ･ ヘッダー･フッターのページ番号の開始番号任意指定、ページ番号演算、同シート内で違ったものを指定など
　 ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
　 ･ 罫線幅の自由指定
　 ･ 表示形式で｢10/ 1｣といった書式を指定し､日付が一桁の場合のみ日付の前にスペースを入れる (TEXT関数､VBA)
　 ･ 書式設定の｢折り返して全体を表示する｣と｢縮小して全体を表示する｣を同時に使う (折り返しを有効にして､手動で文字サイズを調整)

　▼操作
　 ･ ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
　 ･ 複数シートを選択して入力規則やシートの保護を設定する (VBA)
　 ･ オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
　 ･ 選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA)
　 ･ 優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える)
　 ･ 1セルを分割 (分割したいセル以外を結合)

★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

　▼数式･関数
　 ･ 表示形式以外の書式の取得設定、書式情報を条件とする数式 (ユーザー定義関数)
　 ･ 関数式でセルの選択状態を取得する (VBA)
　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA)
　 ･ 入力したセルに結果を返す (VBA)
　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数)
　 ･ 値の書き換え、値の保持 (VBA)
　 ･ 複数の結果を抽出、不定な数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)
　 ･ 空白のセルの部分を上詰め、左詰めなどで表示する (作業セルを使って別セルに詰めて表示なら可能、それ以外はVBA)
　 ･ VLOOKUP,HLOOKUP,MATCH等の関数で､検索語を全半角両方にマッチさせる (ユーザー定義関数)

　▼VBA
　 ･ ExecuteExcel4Macroの参照で空セルと0値を区別する
　 ･ セルの値や変数値で直接変数名を指定する (配列、コレクション)
　 ･ VBのコントロール配列と同じような操作をしたい
　　　(イベント以外ならコントロール名を｢同名+連番｣にしてControls(名前 & インデックス)で処理､イベントはクラスでWithEvents)

　▼ユーザーフォーム
　 ･ フォーム上から変更したプロパティ値の保持 (シートや外部ファイルに書き出して、次回読み込む)

　▼グラフ
　 ･ 棒グラフでひとつだけ突出したデータがあった場合に波線を入れて位置を合わせる
　 　(オートシェイプなどで見た目だけそうなるように弄る、別アプリでグラフを作り、オブジェクトとして挿入)
　　┌┐
　　〜〜
　　｜｜

上記 ｢Excelで出来ないこと、仕様上の制限｣ は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

また､ここに書かれてないことでも､Excelで出来ないことはたくさんあります。
ここに書かれてないからといって必ず出来るはずだなんて思わないように。

＞▼環境･書式
＞ ･ セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】はい
【4 VBAでの回答の可否】 乳児レベル
【5 検索キーワード 　 　 】 関数　書式変更

関数計算の結果OKかNGかがセルに表示されるのですが
NGの場合背景色を（ボタン等を押さなくても）赤に自動的に
変わるようにするにはどうしたらいいですか?

>1 乙でし！

前スレ998

計算値を使い回すならセルの書式設定で表示形式をいじろう。
見た目だけで良ければ
=SUM(A1:A3)&"人"
でおｋ

>7
条件付き書式でおｋ

>>8
ありがとうございました！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 生まれたてのバンビレベル
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 COUNTIF 複数 指定

COUNTIFで抽出する際に、2つの引数を検索条件に指定するにはどのように行えば良いでしょうか
（複数条件という訳ではありません）
別々に抽出してSUMで合計だせば良いというのは分かるのですが、どうしても一つの式で出したいのです

表にデータを追加したら、そのデータを使ったグラフで
自動的に追加データを取り込んで表示する方法があれば
教えて下さい。
例えば、Ｂ１〜Ｂ１０にデータがあり、
その１０ケのデータを折れ線グラフで表示している時に
Ｂ１１にデータを入力したら、グラフが自動的に
Ｂ１〜Ｂ１１のデータの折れ線グラフに変わるという事です。

>>10
=COUNTIF(A)+COUNTIF(B)
or
=DCOUNT(C)

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

私は、基本的にVBA付きエクセルファイルを受け取ることが嫌いです。
しかし、自分ではVBAを使いデータ処理をしますが、調査もので人からデータを
もらう場合は、プレーンなエクセルシートに入力フォーマットを作り配布します。
その後、自分の機械でVBAを使いデータ処理をします。

従ってVBA付きエクセルファイルをもらった時は、マクロを実行せずに、VBAエディター
でコードを読んでから安全を確認しマクロを実行します。

しかしこの前、国の農林水産省から送られてきたエクセルの調査様式には驚きました。
VBA付きエクセルファイルなのでいつものように、VBAエディターを立ち上げました。
そしたら「パスワードを入れてください」とほざきました。

5分ほどなやみ、やむなくマクロを実行しました。
その後のファイルを見ると、どうもそのマクロはあえてVBAを使うほどのものとも
思えないのですが、そこで質問です。
パスワードで保護されたVBAコードを読む方法は無いでしょうか？
もちろんVBAコードはリードオンリーで結構です。

>>13
前振りが長い

>>13
モラルの無い奴は来るな。勝手に調べろ!!

>13
詐欺師みたいな文章だな

>>14
>>15
禿同（ｗ、モラルはちょとわかんない。

でも、俺もﾊﾟｽﾜｰﾄﾞVBAエクセルファイルはやだな。

▼━過去スレを見たい人━━━━━━━━━━━━━━━━
o2onで気長にまってたら落ちてくるかも。

o2on･･･2chのdatファイルを共有するP2Pソフトです。
現段階ではまだαバージョンですので、マターリいきましょう。

公式サイト
ttp://o2on.net/wiki/

どなたか助けてください。VBA初心者なんですが、下記コードの
修正お願いします。
　　やりたい事、(G2:H200)から文字を検索して同じ文字を(I2:J200)から探します。
　　同じ文字が見つかった場合は、その下の行に数字が入っているので差額をM列に挿入したいです。
　　　　・文字と数字はセットになっているので、文字は2行おきにあります。
　　　　・空白の場合は無視します。
　　　　・G2:H200の文字より下の行にI2:J200の文字はあります。

Private Sub Worksheet_Calculate()
Dim 次の文字列 へAs Long
Dim 買い行 As Long
Dim 買い列 As Long
Dim 売り行 As Long
Dim 売り列 As Long
　　 For 次の文字列へ = 1 To 100
　　 For 買い行 = 2 To 200 Step 2
　　 For 買い列 = 9 To 10
If Cells(買い行, 買い列).Value = "" Then
　　 Next 買い列
　　 Next 買い行
Else
　　 For 売り行 = 買い行 + 2 To 200 Step 2
　 　 For 売り列 = 7 To 8
　　　　 If Cells(売り行, 売り列).VALUE <> (買い行, 買い列).Value Then
　　 Next 売り列
　　 Next 売り行
　　　 Else
　　　 Cells(売り行, 13) = Cells(買い行 + 1, 買い列) - Cells(売り行 + 1, 売り列)
　　　 End If
End If
　 　　 Next 次の文字列へ
End Sub

>19
次の文字列へ　 は意味がわからんので削除

Sub hoge()
　 Dim 買い行 As Long, 買い列 As Long, 売り行 As Long
　 For 買い行 = 2 To 200 Step 2
　 　 For 買い列 = 9 To 10
　 　 　 If Cells(買い行, 買い列) <> "" Then
　 　 　 　 For 売り行 = 2 To 200 Step 2
　 　 　 　 　 If Cells(売り行, 7) = Cells(買い行, 買い列) Then Cells(売り行, 13) = Cells(買い行 + 1, 買い列) - Cells(売り行 + 1, 7)
　 　 　 　 　 If Cells(売り行, 8) = Cells(買い行, 買い列) Then Cells(売り行, 13) = Cells(買い行 + 1, 買い列) - Cells(売り行 + 1, 7)
　 　 　 　 Next 売り行
　 　 　 End If
　 　 Next 買い列
　 Next 買い行
End Sub

>>19
Sub oioi()

Dim 買い行 As Long
Dim 買い列 As Long
Dim 売り行 As Long
Dim 売り列 As Long
Dim I As Long

I = 2
Range(Cells(2, 13), Cells(200, 13)).ClearContents
For 買い行 = 2 To 200 Step 2
For 買い列 = 9 To 10
If Cells(買い行, 買い列).Value <> "" Then
For 売り行 = 2 To 200 Step 2
For 売り列 = 7 To 8
If Cells(買い行, 買い列).Value = Cells(売り行, 売り列).Value Then
Cells(I, 13).Value = Cells(売り行, 売り列).Value
Cells(I + 1, 13).Value = Cells(買い行 + 1, 買い列).Value - Cells(売り行 + 1, 売り列).Value
I = I + 2
End If
Next
Next
End If
Next
Next

End Sub

>>20
>>21
返信大変遅くなりすみませんでした。

親切に作ってくれてほんとにありがとうございます。
連休中いい事あるように祈っています。

グラフ作成で、右縦軸と左縦軸でスケールの違うグラフって作れないのでしょうか？
例えば、右の軸は温度、左の軸は湿度、とかにして温度と湿度の折れ線グラフを同じグラフに表示する、
といったことです。
裏ワザでもかまいませんし、
他のソフトで簡単にできるようなものがありましたら、教えていただきたいのですが。

>>23
右側の軸にスケールを表示させたいデータを選んでプロパティから第2軸を選択するだけ

【1 OSの種類 　 　 　 　 .】WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 幼稚園レベルまで
【4 VBAでの回答の可否】 可

エクセルで作成した内容をメールの添付ファイルにし
同時にメールの件名・文面の作成することは出来ますか？

お手数ですが教えてください

何方かご存知の方お願い致します。
エクセル(MS-Excel2000)で作成した棒グラフをWEBページで保存し、この
グラフをgif画像として取り出そうと考えております。

問題は、39,999という値の時に40,000の罫線にグラフが掛かってしまう
という事なのです。これを40,000まで罫線に掛からないように調整
する事は可能でしょうか？ちなみにこのグラフの最小値は0で最大値
は50,000、罫線は10,000ごとに引かれています。

>>26
値が近すぎてグラフの大きさによっては重なるんだろうな
39,999を表示させて実際は違う値を入力するとか、
そのあたりを調節できる別のソフトで作るとかだな

>>26
思うに、罫線ではないと思う。目盛り線だな

数値が微妙なんだから諦めろ
またはデータラベルをグラフに表示させて40,000でないことを強調するかだな

質問です。お願いします。
Excelで減価償却費をだしたいのですが、定率法（DB）だと月を入力できるので
最初の年と最後の年の半端な分を計算してくれるのですが、
定額法（SLN）だと月を入力できず、正しい値がでてきません。
何かいい方法はありますか？最初と最後の年は手作業で入力するしかないのでしょうか…


【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 減価償却　月　定額法

なんだかよくわからないけど12で割るんだ

貧乏くせーな会計ソフト使えよ

>>29
定額法に月？
計算式晒さないと答えようが無いね

セルをダブルクリックする（→セルの内容を編集できる状態にする）
という操作のショートカットキーって無いんですか？

>>33
F2

>>33
F2

>>33
F2

>>33
F2

折れ線グラフの色って自分で選べるの？

>>38
選べるよ

>>39
そうですか。ありがとうございました。

グラフの原点からオートシェイプで線をひく方法ってありますか？
ぴったり原点からひきたいんですが・・・

折れ線グラフの“折れ線”ごとにその名前を入れたいのですが、
データラベルを入れると、値ごとにデータの系列名が入ってしまい、
グラフがうるさくなってしまいます。
折れ線に１個だけ系列名の名前を添えたいだけなのですが、何かいい方法あるでしょうか？

>>41
画面を拡大してやれば、かなり不器用な人でもピッタリ合いますが。

>>42
テキストボックス

>>33
F2

>>33
F2

それじゃ漏れも

>>33
F2

【1 OSの種類 　 　 　 　 .】 Windowsｘｐ
【2 Excelのバージョン 　 】 Excel*２０００
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 数字に変換　,

ダウンロードしたデータが3桁置きに半角カンマ「,」が入っています。
そのデータをオートサムで計算しようとしても出来ません。
で、セルの書式で数値＆カンマをはずすにしてもカンマが取れません。
で、カンマをはずして数値を再入力すると計算してくれます。
データ元が手入力でカンマを入れているのかなと予想しているのですが、
自動でカンマを取るorオートサムで計算できるようにならないでしょうか？
データ元の数値は桁数がバラバラです。

>>47
ダウンロードしたデータの形式は？

【1 OSの種類 　 　 　 　 .】 Windowsｘｐ
【2 Excelのバージョン 　 】 Excel*２００3
【3 VBAが使えるか　 　 .】 ほとんどいいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　自作　VBA,

自分で記録・作成したマクロをVBA上で指示して実行することはできるようですが、具体的な方法などが
載っているサイトなどありますでしょうか。

シートAでコマンドボタンを設置して、それをきっかけにシートBでマクロを実行したいのですが、そこらへんも
VBA上できっちり記述しなければならないんですよね？

>>49

問1．http://www.sanynet.ne.jp/~awa/excelvba/kouza/chapt_03/010.html

問2．はい。

>>50
ありがとうございました！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 名前をつけて保存

コマンドボタンを押すと、D4の文字列を参照して、それをファイル名にして現在のファイルを保存したいと思います。
どのようなコードを組めばいいでしょうか？

Private Sub CommandButton4_Click()
ファイル名 = Range("d4").Value
ActiveWorkbook.SaveAs _
filename:=ファイル名&".xls"

End Sub

こう書いてみましたが上手く動きません。どこが違うのでしょうか？

>>52
普通に保存できるな。
念のため&の前後にスペース入れてみ。

>>48
IE上で、クリックするとエクセル画面に切り替わるHPです。
そこからセルをコピーして貼り付けています。
表現がちょっと悪かったですね。

>>54
どういうケースか分からないですが（私の場合は問題ないみたい）、
桁区切りを使用するのチェックは外れていますか？
又、数式バーにはどういう風に表示されているのでしょうか？

>>55
いろいろとありがとうございます。
私が見た下記HPのBD11,AR23,T23をエクセルにコピーして計算できます？

http://www.tse.or.jp/market/data/sector/J_stk2_070303.xls

>>56
コピーした数字が「文字列」になってるんぢゃないの？
表示形式で確認してごらん。

>>56
できますよ
数字は文字列かテキスト形式なので数値に変換しないとだめですが…

>>57
数値にしてカンマをなくすにチェックをつけても計算してくれないんです。
何故でしょうか？

>>59
ありがとうございます。
足し算とかだとできました。
オートサムは相変わらずダメです。

私の設定がなにか悪いんでしょうね・・・・・・

>>60
漏れの2003だからなぁ…2000ってどうっだか忘れてますので…
2003だと文字列として保存されている数値は教えてくれて修正してくれんるんですよ

オートサムを縦方向で計算するとできました。
横方向だと０になります。
なぜなんでしょう？

>>62
文字列が含まれているから？
こちらでは問題ありません

>>62
Excel2000は一旦文字列で確定された数値は表示形式を数値とかに変更しても文字列のままです。
数値に変換するには該当セルを編集するなど一手間かける必要があります。
(例えばセルを選択してF2を押してENTERを押すなどです。)

B1=(A1+A2+A3)とかであれば文字列でも数値と見なせる物は足してくれますが、
B1=SUM(A1:A3)だと無視されます。

>>64
ありがとうございます。
そういう理由だったんですね。
こんな詳しい解説、感謝です。
勉強になりました。

>>53
ありがとうございます。うまくできました。スペースも大切なんですね。

ところで、今このワークブックがあるフォルダに名前をつけて保存をしたいのですが、現状どこに保存してるのかよくわからない
状況になっています。
パスというかフォルダを同じ場所に指定したい場合、どのような記述をすれば良いのかわかりません。

どなたかご存じないですか？

>>66
ThisWorkBook.Path & "\" & ファイル名

>>67
ありがとうございます。これを>>52のコードに仕込めばいいわけですか？

>>68
害は無いからやってみよう。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel　　？
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 2段リスト　多段リスト

リストを使って品物を入力したいのですが、普通のリストだと量が多く探すのがめんどうです。
リストを多段にできれば早いと思ったのですが、多段リストは作れるのでしょうか？

例えば、↓のようなリストがあったとしたら、

Ａ１０　A２０　A３０
Ｂ１０　Ｂ２０　Ｂ３０
Ｃ１０　Ｃ２０　Ｃ３０
Ｄ１０　Ｄ２０　Ｄ３０

↓このように選択できるようにしたいです。

　Ａ
　B
→C→C１０
　D　Ｃ２０
　　　Ｃ３０

excel2002です。

入力規則とINDIRECTを使ってなんとなくそれっぽいのは出来たのですが、
これを１つのセルに入力することはできませんか？

以下の文がシートが１枚だったときは動いていたように思うのですが３枚目のシートになったら、
「オブジェクト変数またはwithブロック変数が設定されていません」となり、中断します。
setをどうかすればいいのでしょうか。丸投げで教えてください。
Dim rg As range
→ rg = range("c7:y41")

>>73
Set rg = Sheets("Sheet1").Range("c7:y41")

>>74
ありがとう！！

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

いくつかの地点の水温を水深10メートルくらいまで測ったときのデータがあるとき、
断面図を描くにはどのようにすれば良いですか？

>>76
オートシェイプで書けると思う

>>77
手書きですか？グラフとして出ないですか？

3D縦棒グラフ?

ttp://www.fra.affrc.go.jp/kseika/nrifs/images/nrifs01003_2.gif

こんな感じのグラフを作りたいです

うーん、等高線で作ってそう見えるように回転

回転いらねーや・・・

Dim rg As range とvbeで書いているのにrangeのrが何故か、Rにならずじまいです。
どうしてこうなるのかわかりませんので、原因を教えてください。

このためだと思うのですが、
Set rg = Sheets("Sheet1").Range("c7:y41") は「インデックスが有効範囲にありません」
とのエラーが出て、配列として認識されているようにあります。

初歩的な質問ですまん。
ｴｸｾﾙを開いた時、

初歩的な質問ですまん。
ｴｸｾﾙの初期設定はどうやるんですか？

>>85
どんなとこを設定したいのですか？

>83
ありがちなのがタイプミスで、こんな短い文で間違えようがないだろ
というところにミスがあったりします。（例 vbe
それか「dim rg as 」までタイプすると出てくるリストから選んでみたら？

>>85
ユーザー登録を真っ先にやれ
話はその後だ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 集計　for 合計

データから集計という機能があると思うのですが、
集計の機能をマクロで実行したいのですが、
どうやったらいいですか？

forを使って、ループ回して、配列に入れて…、
などをやると思うのですが、スキルが追いつかず
うまくできません。

VBAでコマンドボタンなどのオブジェクトのセル番地を取得する方法、ありませんか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 画像　挿入　名前
【6 検索サイト 　 　 】 すぐマク

質問させていただきます。
マクロで画像を挿入する際の記述に関する事です。

フォームにテキストボックスが用意されていて、コマンドボタンでそこに入力したファイル名の
画像を挿入及び、画像の名前をファイル名と同一に変更。を実行したいのです。

例えば挿入された画像の名前を変えるには
ActiveSheet.Shapes("Picture 1").Name = "変えたい名前"
と書くまでは判ったのですが、以下の挿入時マクロの４行目にはどう書けば良いのでしょうか？

Private Sub CommandButton1_Click()
mypicture = TextBox1.Text
ActiveSheet.Pictures.Insert("保存先" & mypicture).Select
'挿入した画像(図形)の名前を　mypicture　に設定する記述
End Sub

また「選択されたセル」=ActiveCll　の様に、「選択された画像」はどう書けば良いのでしょうか？

宜しくご教示お願い申し上げます。

【1 OSの種類 　 　 　 　 .】 Windows2000SP4
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ちょっと
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 *

「5.05**」「7.48*」「9.09」「4.87**」のように、「数字＋半角アスタリスク（ありなし）」という
セルが連なっています。
このうち「*」のみを「上付き」に変更したいのですが、どうすればよいのでしょうか。
「~*」にして置換すると、*のみでなく、セル全体が上付きになってしまいました。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 二項分布

エクセルの関数に関する質問です。
個別項の二項分布の確率を求めるために二項分布で検索したところ、以下の関数が出てきました。

BINOMDIST(成功数, 試行回数, 成功率, 関数形式)

これに各数値を入力（以下の式をセルに入力）しましたが、#NUM!と表示され数値が求められません。

=BINOMDIST(188,26644,0.00887311,FALSE)

成功数 < 0 または 成功数 > 試行回数 である場合、エラー値 #NUM! が返されます。
成功率 < 0 または 成功率 > 1 である場合、エラー値 #NUM! が返されます。

とヘルプにありますが、入力した数値がエラーの出る範囲のものではないのでこれ以外にも入力する数値に制限があるのでしょうか？
どうすれば正しい計算結果が表示されるのでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsXP pro
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否　
【5 検索キーワード 　 　 】 複写
質問：三平方の定理の計算で１列をベースに↓へ複写していくと見た目では間違っていないはずの計算で”Ｆａｌｓｅ”と出てくる。その原因を知りたいです
A B C D E F G H
A2+0.03 A2^2 C2+0.04 C2^2 B3+D3 F2+0.05 F3^2 E=G ←２行目の計算式
垂辺 垂辺の二乗 底辺 底辺の二乗 二乗の和 斜辺 斜辺の二乗 E=G
3.00 　 9.00 4.00 16.00 25.00 5.00 25.00 TRUE
3.03 9.18 　4.04 16.32 25.50 5.05 25.50 TRUE 　←この行をすべて下方へ複写する
3.06 9.36 　4.08 16.65 26.01 5.10 26.01 TRUE
3.09 9.55 　4.12 16.97 26.52 5.15 26.52 TRUE
3.12 9.73 　4.16 17.31 27.04 5.20 27.04 TRUE
・・・省略
3.60 12.96 　4.80 23.04 36.00 6.00 36.00 TRUE
3.63 13.18 　4.84 23.43 36.60 6.05 36.60 TRUE
3.66 13.40 　4.88 23.81 37.21 6.10 37.21 TRUE
3.69 13.62 　4.92 24.21 37.82 6.15 37.82 FALSE
3.72 13.84 　4.96 24.60 38.44 6.20 38.44 FALSE
3.75 14.06 　5.00 25.00 39.06 6.25 39.06 FALSE
3.78 14.29 　5.04 25.40 39.69 6.30 39.69 FALSE

>>93
入力によってはオーバーフローを起こす

http://support.microsoft.com/kb/827459/ja
「以前のバージョンの Excel の計算結果」を参照

１列をベースに　→１行をベースに
確認ではずれていなかったが、結果ずれてしまった。
連スレ申し訳ない。訂正でした

>>95
有難う御座います。

>>94
演算誤差だな、内部では2進数で計算するから目で見て同じでも微妙に違う
計算結果をROUND関数に通すか
整数のみ使うか
オプションの計算方法で表示桁数で計算する

すいません。
エクセルをしてたときにキーを押し間違えて画面が横向き
になってしまい、エクセルを消してもモニタ画面まで
横向きになってしまいました。一度パソコンの電源を
落としたのですがそれでも戻ってません。直しかたを教えてください。
お願いします。

>>99
それ、Excel が原因じゃないから

ビデオカードのドライバーの設定・・・ホットキー辺りにローテイトってあるだろ。それだよ

excelのマクロ機能を使って、進捗管理を行うテンプレートなどありますでしょうか？
やりたいこと
・資格試験勉強の管理が目的
・５教科ある項目の勉強の進捗を管理したい
・どの程度遅れているか、いつから、どのような教科の勉強をしなくてはならないかのスケジューリング
・進捗具合が一目で分かる表示などが出来るとなお良い。
・図として表示まで入らないけれど、クリティカルパスが設定できるとうれしい（５教科の効率よい順序だて）
こんな感じです。
よろしくお願いします。

>73 ：名無しさん＠そうだ選挙にいこう ：2007/05/01(火) 19:21:59
> 以下の文がシートが１枚だったときは動いていたように思うのですが３枚目のシートになったら、
> 「オブジェクト変数またはwithブロック変数が設定されていません」となり、中断します。
> setをどうかすればいいのでしょうか。丸投げで教えてください。
> Dim rg As range
> → rg = range("c7:y41")

>74 ：名無しさん＠そうだ選挙にいこう ：2007/05/01(火) 20:07:43
> >>73
> Set rg = Sheets("Sheet1").Range("c7:y41")

>83 ：73：2007/05/02(水) 00:21:33
> Dim rg As range とvbeで書いているのにrangeのrが何故か、Rにならずじまいです。
> どうしてこうなるのかわかりませんので、原因を教えてください。

> このためだと思うのですが、
> Set rg = Sheets("Sheet1").Range("c7:y41") は「インデックスが有効範囲にありません」
> とのエラーが出て、配列として認識されているようにあります。

>87 ：名無しさん＠そうだ選挙にいこう ：2007/05/02(水) 09:04:51
> >83
> ありがちなのがタイプミスで、こんな短い文で間違えようがないだろ
> というところにミスがあったりします。（例 vbe
> それか「dim rg as 」までタイプすると出てくるリストから選んでみたら？

リストでやってみても、何をやってみても大文字が必ず、小文字に変換されてしまいます。
他のパソコンで試していますのでタイプミスはないです。原因に心当たりがあるとすれば
もう、５行のtipを貼り付けた後にこの現象が起こりだしたようだというぐらいしかないです。
何か対処方法をお願いします。

>>102
全文引用ウザイ

>>102
開いてるブック(個人用マクロブック含む)の何処かで
Public range As range
みたいな感じで誤定義されてるだけじゃないのか？

とりあえず使いたいからexcel買おうとおもってんだけど2003でいい？
それとも97とかでもいいの？
ただの練習用です

>>105
今から買うなら2007にしといたほうがいいかもしれんぞ。
2007とそれ以前とでインタフェースがまるで違う。
ただ、以前のバージョンよりメモリが必要だが。

2003以前なら97でも2000でも2002でも2003でも
基本的なところは変わらん。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 全く×
【5 検索キーワード 　 　 】 セルの設定書式

セルの設定書式→パターンで、セルの色を変えようとしているのですが、
その色パレットのデフォルト色がいつの間にか、全く様変わりしておりました。
マウスのポインタを新しく出来てしまった色の上に乗せると、ポップアップで
は「配色」と表示されています。
元のデフォ状態に戻すにはどうすれば良いのでしょうか？
それと、新しく自分の意図通りの色を作る（新しいパレットを作る）事なんて
出来るのでしょうか？よろしくご教授願います。

>>107
とりあえずデフォに戻すなら、ツール＞オプション＞色で「リセット」

「変更」ボタンを使えばパレットをいじることも可能
ただしブック内で同時に使える色は56色までで変わりなし。

>>108さん
ご回答ありがとうございます。
とりあえず、新規で立ち上げた場合のパレットはデフォに戻ったのですが、
ずっと記録してきたデータに関しては、そのリセットがうまく行かない
状態です。新規のデータに、古い方のデータをコピペしてみたのですが、
そうすると折角リセットしたパレットが元のめちゃくちゃな状態に
なってしまいました。（やはりリセットも効きません）
新しいデータにしこしこと手打ちするわけにもいかず、困ってます。

また、この状況を脱するための方法をどなたかご教授願います。

セルのデータを並び替えたいのです。つまり、

　　ＡＢＣＤ
　　あいうえ

　　　　↓

　　　あＡ
　　　いＢ
　　　うＣ
　　　えＤ

と、いう風にしたいのですが。こんな機能ってありましたっけ？

コピー → 形式を選択して貼り付け で
縦横を入れ替えて貼り付けたあと
列を移動する。

>>109
なにかデータが壊れているような気もするし、保障はできないので
必ずバックアップコピーを取ってから試してみてくれ。

正しいパレットが表示されるブックと、おかしいパレットが表示される
ブックの両方を開く。
おかしいパレットが表示されるブックでツール＞オプション＞色
「コピー元ファイル名」で正しいパレットが表示されるブックを選択
OKをクリック

これで戻らなければ俺にはわからん。

>>111
どうもありがとうございました。

簡単な質問なのですが

ctrl+クリックの逆で

選択範囲の中から一つずつ除くには

ctrl+？+クリックなのでしょうか？

いろいろ押してみたのですができませんでした。

逆は無い、そのまま

エクセルのツールバーやらボタンやらを色々自分仕様に変えたのですが
MOS受けるにあたって標準に戻したいのです。
再インスコ以外で戻る方法ありますでしょうか？

ﾕｰｻﾞｰﾌｫｰﾑを作って顧客管理の名簿を作りたくて
ﾍﾙﾌﾟやｸﾞｰｸﾞﾙで0からやってみたんですが
全然出来ません・・・
ここで間違いを指摘してもらう事はお願い出来ますか？
もし教えてもらえるなら
ｺｰﾄﾞをｺﾋﾟﾍﾟしたいと思います
（長いし全く始めて挑戦したのでかなりみずらいと思うのですが・・・）
スレ違いならどこで聞けばいいか教えて下さい

>>116
ツール＞ユーザー設定＞ツールバーで「リセット」
一括リセットはできないので、ツールバーごとにこつこつやる

つーかMOS受けるくらいの意思があるなら、
こんなところで質問せず自分で調べてみたまい

>>117
ここで答えが得られる保証は無いが
とりあえず長いならコピペするな
別のところに「うｐ」して場所を知らせろ

>>119さん
ありがとうございます！
今　うPする方法探してました
ﾒｰﾙの返信が来たら
それの場所をはればいいんですよね？

おまいがうｐする所はメールで返信されるのか？

イメピタじゃないの？ﾌﾟｹﾞﾗ

どこまでうｐしに逝ったんだ？

浜松まで

お知恵を貸してください。
下の問題をエクセルのソルバーを使って解きたいのですが、
工作機械の条件指定に行き詰ってしまいました。バイナリを指定して、、
といろいろ試しているのですがソルバーでイフ関数やマックスが使用できないのでそこから先に進めません。
どうかよろしくお願いします。

--------------------------------------------------------------
製品I〜IIIの3つの製品ラインナップがあり、それぞれのデータは下記の通り。
・製品I：収益: \12,500
・製品II：収益: \12,000
・製品III：収益: \3,000
製品Iを生産するのに印刷機器(\800,000)と切断機(\1,200,000)が新しく必要で、
製品IIを製造するには製品Iに必要なものと同じ切断機を購入しなければならない。
会社の人員数や、市場のサイズから当面販売できる上限は5,000個とする。
最も利益が大きくなる生産量の組み合わせを考えよ。

>125
まず出題先がどこか言えよ
賞品それとも賞金どっちがでるんだ

>>126
エクセル講座上級(すいません、解けなくてw)の宿題っす。

どうやってわざわざソルバーを使えばいいんだろう？

変動費が書かれていないが、原材料＋人件費＝0 でよいのかな？
[答]
印刷機器と切断機を買って製品Iだけ作ればよい。

馬鹿ばっかだな

すいません・・・
見つけられないうちに
来客でこんな時間になってしまいました＿|￣|○ il||li
うP場所教えて下さい・・・

>>131
「うｐろだ」でググれ

>>132さん
ありがとうございます
http://www.uploda.net/cgi/uploader2/index.php?dlpas_id=0000032563.udn

です
お願いします・・・

すいません
DLはaaaaです

>>134
おぅ、この拡張子は.xlsでいいのか？

はい
ｴｸｾﾙです

>>136
まぁ俺のチンカスついたちんぽしゃぶってくれるか

>>136
おまえにVBAは5年早いよ

>>138さん
はい　わかってるんですが・・・
全く知識のないとこからやってみたので
すいません・・・

やっぱり　かなりおかしな感じなんでしょうか？
みなさん　すいません・・・
1件1件入力していった方がいいでしょうか・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 形式を選択して貼り付け、値

お世話になります

例えば、A1に12345.9、B1に12309.6と入力し
C1に=A1-B1と言う式を入力します
この場合、C1には36.3と表示されます
その後、C1の内容をコピーしてD1に形式を選択して貼り付けを行います
貼り付け内容は貼り付けの値を選択します　＜それ以外は選択しません
するとD1にも当然ですが36.3と表示されます
しかし、D1を選択し、数式バーで内容を確認すると
36.2999999999993となっており
計算結果が間違えています

A1,B1に入力される数字によって
間違いが起こる場合とそうでない場合があるようです
解決方法を教えてください

よろしくお願いします

>>140
いいからしゃぶれよ馬鹿

>>141
まず、C1の表示形式を数値の小数点以下13桁にするんだ
そしてこれを読むんだ
http://support.microsoft.com/kb/78113/ja

>>140
フォームを表示させるのはThisWorkbookモジュールに

Sub workbook_open()

住所録.Show

End Sub

でおｋ
残りは自分でなんとかするか、超暇で超親切な人が現れるのを待て
これ全部修正するのはめんどくさすぎる
ここまでやったのなら参考書買えよ

>>144さん
ありがとうございます
がんばってみます・・・
やっぱり基本から勉強した方がいいですよね・・・

>>145
しゃぶれよ豚

>>112さん
＞>>109
＞なにかデータが壊れているような気もするし、保障はできないので
＞必ずバックアップコピーを取ってから試してみてくれ。
この手法でも直りませんでした。
でも、おかしくなっていたデータを別なノートPCで開いてみると、
色パレットはごく普通のデフォ状態でした。
…PCによってファイルの色パレットが変わる事なんてあるんだろうか…。
謎だ。

>>145
無駄な時間過ごしたなｗ

>>129
ご回答ありがとうございます。
変動費の部分ははしょって書いてしまいました。
問題が意味をなさないですよね。。

え〜、一晩考えて分かってきたのでもう一度整理してから質問させてもらいます。

>>149
ソルバーを使う以前に、数式を明確にしておかなければ解けないよ

>>143
レスありがとうございます
解決の糸口が見えてきました

>>151
まずちんちんしゃぶるんだ

オートサムのように特定の関数をツールバーに表示させたいのですが
どうやればいいのでしょうか？

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

作業日報の残業手当ての計算式なのですが、
1人が残業時給1100で3人が1050円あと全員1000円で、A31:A40の範囲に特定の
名前が入れば残業手当が記入されるようにしたいのです。
現在の計算式が
=IF(E31="","",IF(H31="","",IF(A31:A40="名前",1100*HOUR(H31)+1100/60*MINUTE(H31),1000*HOUR(H31)+1000/60*MINUTE(H31))))

これに1050円の人をいれてみたのですが、エラーでヘルプを見てもどうにもなりませんでした。
よろしくお願いします。

>>154
式は共通で時給が変わるだけなんだから、
名前と時給の別表を作り、式中の時給の部分にVLOOKUP関数を
当てはめればいい

>>154 別表なしをベタで書いたら文字数制限で蹴れられた･･･orz 実際はコレを１行に繋げて使う。

=IF(OR(A31="",E31="",H31=""),"",IF(ISERROR(VLOOKUP(A31,{"名前1",1100;"名
前2",1050;"名前3",1050;"名前4",1050},2,0)),1000*H31*24,VLOOKUP(A31,{"名
前1",1100;"名前2",1050;"名前3",1050;"名前4",1050},2,0)*H31*24))

=IF(E31="","",IF(H31="","",IF(VLOOKUP(A31,AJ2:AK5,2,FALSE)*HOUR(H31)+VLOOKUP(A31,AJ2:AK5,2,FALSE)/60*MINUTE(H31),1000*HOUR(H31)+1000/60*MINUTE(H31))))

こういう風にしてみましたが、時給1000円のほうでしか計算してくれません＞＜

>>156さん
できました、ありがとうございます！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 10日でおぼえるVBA入門の4日目
【4 VBAでの回答の可否】 可です。

下記の2つのお願いを一緒に書いた時、エラーが出ないようにしたいんです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const rng As String = "C9:AG9,C12:AG12" '利用した日
If Application.Intersect(Target, Range(rng)) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Value = "☆"
Else
Target.ClearContents
End If
Cancel = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const rng As String = "C10:AG10,C11:AG11,C13:AG13,C14:AG14" '朝食と夕食
If Application.Intersect(Target, Range(rng)) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Value = "○"
Else
Target.ClearContents
End If
Cancel = True
End Sub

よろしくお願いします。

>>159取り敢えず組み合わせてみた

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　　Const rngR As String = "C9:AG9,C12:AG12" '利用した日
　　　Const rngS As String = "C10:AG10,C11:AG11,C13:AG13,C14:AG14" '朝食と夕食
　　　　　　If Not Application.Intersect(Target, Range(rngR)) Is Nothing Then
　　　　　　If Target.Value = "" Then
　　　　　　　　　Target.Value = "☆"
　　　　　　Else
　　　　　　　　　Target.ClearContents
　　　　　　End If
　　　　　　Cancel = True
　　　ElseIf Not Application.Intersect(Target, Range(rngS)) Is Nothing Then
　　　　　　If Target.Value = "" Then
　　　　　　　　　Target.Value = "○"
　　　　　　Else
　　　　　　　　　Target.ClearContents
　　　　　　End If
　　　　　　Cancel = True
　　　End If
End Sub

>>160さん
ありがとうございました。

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

Beta版は削除したのに右クリックとかの新規作成メニューで
Excel2007ブックという項目が残っています。
どうすれば削除できますか？
レジストリ触らないと無理ですか？

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

すみません
エクセルで000666というパスワード数値を入力したいのですが
666になってしまいます
セルの書式設定みてもどれにしていいかわかりません
よろしくお願いします

>>163
文字列

>>163
ユーザー定義　で　「000000」

本当にありがとうございました

>>152
完全無視される気分はどうだい？童貞君

>>162
> レジストリ触らないと無理ですか？
当然でしょ。レジストリに値が残ってる故に表示されるんだから
消すにはレジストリ弄らないとねぇ。

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

エクセルどころか、WINDOWSもほとんど使えない状態で
一からエクセルを覚えていくのにお勧めの書籍ってありますか？

>>169

>2　のB項を嫁

>>170
黙れボケ

>>170
読み落としていました,
スレ汚し申し訳ありません。

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

ExelやWordに張り付いたグラフをグラフとしてのデータを破棄して
オブジェクトとして貼り付けるにはどう操作すればいいのですか？
後からグラフをダブルクリックで編集できないようにしたいのです。

>>173 コレで良いかな？

グラフエリアを選択してSHIFTを押しながら編集をクリック
図のコピー(外観とサイズはお好みで)→OK

貼り付ける場所を選択
SHIFTを押しながら編集をクリック
図の貼り付け

コレで図として貼られるから元データをいじってもグラフ（の画)は替わらないハズ

>>174
おおこれです
ＳＨＩＦＴでメニューバーが変わるとは
ありがとうございました

自己解決しました。
フォームのコマンドボタン部分の記述を下に記しておきます。


Private Sub CommandButton1_Click()

　If TextBox1 = "" Then
　　MsgBox "配置した際の画像名を入力して下さい", vbOKOnly, "画像名指定エラー"
　　Exit Sub
　End If

　myimagename = TextBox1.Text
　myimage = Application.GetOpenFilename(FileFilter:="画像ファイル(*.jpg),*jpg", Title:="画像の選択", MultiSelect:=False)

　If myimage <> False Then
　　Range("B5").Select
　　ActiveSheet.Pictures.Insert(myimage).Select
　　Selection.Name = myimagename
　End If
End Sub


テキストボックスにファイル名を入力するのではなく、ダイアログボックスを表示させる方式にしました。
「選択された画像（図形）」の記述も、"Shape"を使う物とばかり思い込んで、答えに辿り着けなかったようです。

>>168
「窓の手」で消せました(・∀・)

Excel2003
OS　XP　PRO
マクロ不可

合計のシートにある
=４月!$A$!
ってのを
他のシートに移すとき、４月の部分を５月にすべてひとまとめで５月に変える方法は無いでしょうか？

また、シート名、ファイル名をワークシートに抜き出す方法は無いでしょうか？
最後に、ワークシートに書かれたファイル名やシート名に直接アクセスする方法は無いでしょうか。
作業用のセルを作っておいてINDIRECTを使って最初の質問をやろうとしたらうまくいきませんでした。

>>178
編集→置換

>>178
1個目
範囲選択して編集＞置換
編集文字を４月!$
置換文字を５月!$

2個目
VBA使わんと無理じゃない?

3個目
挿入＞ハイパーリンク

>>179
レスありがとうございます。
それだとセルに含まれてる他の同じ文字列も置き換えられてしまわないでしょうか。

>>181
どうなるか、やってみろ

>>182
できました。ありがとうございました。

別のフォルダにあるセルの値を関数で持ってくる方法はありますか？
ハイパーリンクができるかと思いましたがうまくいきません
バージョンは2002です

>184
フォルダ２つ開いてセルに”＝”マウスで
２つ目のフォルダの任意セルをクリック

DBnumって「でぃーびーなむ」って読めばいいんでしょうか？

だぶるばいとなんばーず

"100"ごとに桁をかえないで、"60"ごとに次の桁へかえられるようにグラフ設定をすることは可能ですか？？
時計と同じく60進数で。。。

857、858、859、900、901、902ってな感じでグラフを作りたいのですが。。。

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

Exelを起動したときに特定のシートの特定のセルをアクティブにするにはどう書いたらいいのでしょうか?
Private Sub Workbook_Open()
’output A1へ移動
Sheets("output").Select
Range("a1").Select
'シートを開いたらフォームを表示
frm入力フォーム.Show
End Sub
↑こういう風に書いたのですが反応がありませんでした

常にフォームを表示されるようにして直接セルを編集できないようにしたいのですが右上のバツボタンでフォームを消せてしまいます
バツボタンがないフォームって作れないのでしょうか?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'シート上の選択セルを移動した時フォーム表示
frm入力フォーム.Show
End Sub

Private Sub tbx品番_Change()
'該当セルを選択
Sheets("input").Select
Range("C6:E6").Select
'テキストボックスの内容を反映
Selection = tbx品番
End Sub
バツ消す方法思いつかなかったので消してもすぐ出るようにしようと思いこういう風に書いたのですが
実行時エラー'400’フォームは既に表示されているのでモーグル表示することは出来ません
ってエラーがでて止まってしまいます。

>>188
マルチ乙

　　　　　　　FOX★公認！！！

俺たちのクリックで日本を一位にしようぜ！！
“30年は日本に手は出せないな”という勝ち方をしたい
http://wwwww.2ch.net/test/read.cgi/news4vip/1178602852/

1. ポーランド　 139,797,680
2. チリ　　　　　137,040,439
3. ★日本　　　　86,475,213★
4. イスラエル　　80,930,530
5. スロベニア　　57,137,042
6. フィンランド　 40,857,499

石を投げる戦争から人は進化・進歩を遂げ、剣や槍などの武器をもって戦うようになった
人間はさらに発展し兵器を使う戦争を始めた
そして今、指先一つを武器とした電脳戦争が勃発したのであった・・・
皇国を勝利へと導くには貴様らの参戦が不可欠である

・戦場
http://www.clickclickclick.com/default.asp
・まとめサイト
http://www33.atwiki.jp/clickvip/

>>188
出来ないことはないけど、元データの加工が必要かと思われる。
それでも良ければ解決策の一例を提示するけど、OK？

>>192
>>188はマルチなんで放置の方向で。

>>189
Private Sub Workbook_Open() はThisWorkbookに書いてありますか？

＞常にフォームを表示されるようにして直接セルを編集できないようにしたいのですが
＞右上のバツボタンでフォームを消せてしまいます
＞バツボタンがないフォームって作れないのでしょうか?

好きな方法で↓
http://www.google.co.jp/search?hl=ja&rls=GGLG%2CGGLG%3A2005-48%2CGGLG%3Aja&q=Excel%20VBAフォーム閉じるボタン

Book1 のシート１を形式含め全て丸ごとコピーして
Book2 のシート１にペーストしたいのですが、
形式までコピーされず苦しんでいます。
どうすれば良いでしょうか？

winxpsp2
excel2003

グラフの凡例が2つあるグラフで、凡例の一つだけを消しました。
しかし、後になってやっぱり2つにしておこうと思い復活させようとしたんですが
どうやればいいのか分かりませんでした。
アドバイスお願いします。

>>195
シート名の所で右クリックしてシートごとコピーしたらどうなんだ？

>>194
両方解決しました
ありがとうございました

>>196
グラフオプション＞凡例＞凡例を表示するチェックボックスを消す＞OK
＞グラフオプション＞凡例＞凡例を表示するチェックボックスをつける＞OK

>>178
>また、シート名、ファイル名をワークシートに抜き出す方法は無いでしょうか？

ファイル名
MID((CELL("filename")),(SEARCH("[",(CELL("filename"))))+1,(SEARCH("]",(CELL("filename"))))-(SEARCH("[",(CELL("filename"))))-1)

シート名
RIGHT((CELL("filename")),(LEN(CELL("filename")))-SEARCH("]",(CELL("filename"))))

以前はこの式､テンプレに貼ってあったよね。

excel2003です。

関数の中に関数を入れようとする（ネスト）時、
2個目の関数を、fxボタンやメニューの関数の挿入で入れようとするのですが
そうすると最初の関数が立ち上がってしまうのですが、
2個目の関数式は手で関数式を入力するしかないのですか。
ボタンやメニューから入力することはできないのですか。

ネスト覚えたら関数はベタ打ち出きるようになろう

>>202
203に同感だけど、数式バー上で内側の関数部分をクリックしてから
fxボタンを使えば、内側の関数に対応した「関数の引数」ボックスが出る。

あ。編集じゃなく最初に打つ場合か。
悪い。204は忘れてくれ。

203への回答にはならんが、コレ2007だとできるんだな。

2個目以降はfxボタンではなく、関数ライブラリのボタンで
個別に関数を選ぶことになるが。

アンカー間違えたのかな
× 203
○ >>202

http://pc11.2ch.net/test/read.cgi/bsoft/1176277910/
こんなスレ立てるやつがいるからスレタイにカタカナ「エクセル」も
入れたほうがいいんじゃね？

WindowsXP
Excel2003
VBAはわかりません、不可で御願いします。

質問です。
例
　項目A　120
　項目A　411
　項目B　32
　項目B　125
　項目B　29
　項目C　9　以下大量に続く

各項目別に集計だしたい（項目Aの値、項目Bの値等）のですが
どうやればよいでしょうか？

>>208
検索せずにスレ立てする奴に対しては､どんな配慮も無意味

｢スレタイ検索してもエクセルスレが無かったので立てました｣ではなく
検索もせずに立てられてる単発質問スレだからな

>>209
DSUMって使えなかったっけ？　俺は使った事はないんだけど。

>>211
レスありがとうです。臆せず試してみます。

>>209
ピボットテーブル

別にDSUMやらピボットテーブルを使うまでもなく、
項目をキーに並べ替えてから、
データ＞集計とやればいい話だと思うんだけど。

>>214
いちいち回答をする前に他人の回答にケチを付ける理由がよく分からないんだが。
使える、使えないの判断は質問者がすべきことで、お前がどうこういうものじゃない。

データ集計が、DSUMやピボットテーブルと比べて絶対的に便利だという根拠が
あるなら別だが。

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

Private Sub btnA_Click()
'変数の宣言
Dim 不良数P As Long
'不良数Pの計算
不良数P = tbxB * tbxC + tbxD - tbxE
Range("FF!G25").Activate
ActiveCell = 不良数P

tbxBからEのテキストボックスに入力された数値をボタンAを押すことで計算させてFF!G25に出力ってのを作ったのですが
tbxBからEのテキストボックスがどれか１つでも空欄だった場合はその空欄は0とみなして計算する処理をさせたい場合どうすればいいですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 関数、返り値

よろしくお願いします。

セルに任意の値を入力すると、隣のセルなどにその値に対応した値が自動に入力される方法を教えてください。

>>217
例をあげてくれ
対応した値ってのがよくわからん

【1 OSの種類 　 　 　 　 .】 Windows98 XP
【2 Excelのバージョン 　 】 Excele色々です(会社PCの為各バージョン有り)
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 検索・色
50行5列程の各セルに8桁程度の数字が入っています。検索である8桁数字
を検索した時にその数字と同じセルの色をその検索時だけ分かりやすく
色つきに変えたいのですがどうすればいいでしょうか?
よろしくお願いいたします。

>>219
書式＞条件付書式
で指定した数値の場合色をつけるって指定する

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

フォームに入力された数値が全角だった場合でも
シートには半角で出力させたいのですがどういう風に書けばいいですか?

>>218
説明不足ですみません。

シート2に
A　　a-001
B　　b-001
C　　ｃ-001
という表を作りました。

シート1のあるセルに「A」を入力すると、指定したセルに「a-001」と自動的に表示されるようにしたいのですが。

>>222
vlookup関数を調べてごらん

>>220
ありがとうございます。検索時のみ色を変え、次々と検索する必要が
あるのですが条件付書式では出来るのでしょうか?

>>202
関数を入力中は、エクセル画面左上（ツールバーの上書保存ボタンの下あたり）
に▼ボタンが出るっしょ？
それをクリックすれば幸せになれるよ。

>>224
出来るよ

>>223
ありがとうございます。調べてみたらできました。お世話になりました。

>>216
Private Sub btnA_Click()
Dim 不良数P As Long, A(3) As Long
If tbxB <> "" Then A(0) = tbxB
If tbxC <> "" Then A(1) = tbxC
If tbxD <> "" Then A(2) = tbxD
If tbxE <> "" Then A(3) = tbxE
不良数P = A(0) * A(1) + A(2) - A(3)
Sheets("FF").Range("G25").Value = 不良数P
End Sub

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


タブ区切りのテキストで保存するとダブルコーテーションが勝手に付くセルがあるんです。
そのセルの書式をいろいろ変えてもやっぱり付く
ただ、セルをコピーしてメモ帳開いて貼り付けると付かない・・
VBAでクリップボードにコピーしたものを、そのままテキスト保存することは
できますか？

エクセル2003を使っているのですが質問があります。

セルに数式を入れるとその結果が表示されますが、それを数式を表示させるようにしたいのです。
オプションで数式を表示するようにもできますが、それではなく既に数式を入力済のいくつかのセルだけ
その右のセルにでも入力したいのです。

コピー先のセルの書式を文字列にした上で、数式をコピー等をしてみたのですがうまくいかず結果が表示してしまいます。
関数でもいいので教えてください

>>230
数式の先頭「=」の前に「'」をつけると数式が文字列扱いになる

>>231
a1:a100に既に数式がいろいろはいっているのですが（当然表示はその数式の結果）
その数式を結果ではなくて数式でb1:b100に表示させたいのです。
表示が数式になってるが、実際の中身は結果というのでも構いません。
とにかく左のセルの数式を右のセルに表示したいのです。

　 a1　 　 　b1
1　15　 　=c1*c2
2　1/15　=today()

のような。
説明下手で吸いません。

下の表のa1　b1はa　bと間違えました

>>225
有り難うございます。
2000でやってみたらできたのに、何でできなくするのかなあ？
マイクロソフトは時々わからんことする。
>>203
関数はある程度覚えてきたけど、2つも3つも引数がある関数は…ヽ(`Д´)ﾉ

>>232
質問用のテンプレを使ってくれてないせいで分からないんだが、
VBAでの回答はOKなの、ダメなの？

遅いですが書きました
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ほとんど不可
【4 VBAでの回答の可否】 可

VBAは勉強したてでほとんど分かりませんが
参考までに教えてもらえるとうれしいです。
コードをコピーして実行くらいはできます。
それと関数等ではできないと思っていいのでしょうか？

>>232
だから数式をコピーして先頭に「'」を付ければ良いだけだろ？

>>237
お前はもう回答しなくていいよ。

>>238
おまえもなｗ

俺も「'」を入れるやり方を使うな
　 a　 　 　b
1　15　 　=A1
2　1/15　=B1

って感じでb列をオートフィルして置換で=を'=にすれば一気に置き換わるだろ
VBAでも簡単に出来るが上の方法の方がもっと簡単

>>240
質問内容もう一回見直してみろ。
それから、お前の回答した手順で要件通りのことが出来るか試してみろ。

Sub cpi()
Dim i As Long

For i = 1 To 100
Cells(i, 2).Value = "'" & Cells(i, 1).Formula
Next i

End Sub

式をｺﾋﾟｰして行頭に「'」を入れる。
これぢゃダメなのか？>236 >238

>>228
なるほど変数に変えてしまうわけですね
ありがとうございました

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

フォームの中のコンボボックスのプロパティのStyleで　fmStyleDropDownListにして手入力できないようにしたのですが
Tabキーでしか次項目へ飛ばなくなりました。
手入力できない状態でENTERキーを押せば次項目へカーソルを移動させるようには出来ないのでしょうか?

>>232 >>236
エクセル技道場(http://www2.odn.ne.jp/excel/index.html)より

マクロでユーザー定義関数を作成します。
１．Alt+F11 (メニュー[ツール]-[マクロ]-[VBE])
　→VBEが起動
２．メニュー[挿入]-[標準モジュール]
　→プロジェクトエクスプローラに[Module1]といった形で
　　 標準モジュールが追加／[Module1]のコードウィンドウが右に表示される。
３．コードウィンドウに以下のコードを入力

Function 数式表示(Rng As Range) As String
　数式表示 = Rng.Formula
End Function

４．上記手順を行った後、ワークシートで例えば、以下のように入力します。

=数式表示(A2

>>242
>>245

解答ありがとうございました
今確かめることができないのですが、方法があるようなので助かりました。

ちなみに>>238は私ではないのであしからずｗ

>>246

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
　　Target.Offset(, 1).Value = "'" & Target.Formula
End If

End Sub

>>244
コンボボックスのKeydownイベントに

If KeyCode = 13 Then オブジェクト名.SetFocus

とかじゃダメなん？

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 項目、合計、文字列、種類

　　A
1　りんご
2　みかん
3　みかん
4　おれんじ
5　いちご
6　いちご
7　りんご
8　いちご
9　4(種類)

A列に上のように入力されていた時、その項目の種類の合計を数えたい。
上の場合、項目は「りんご」「みかん」「おれんじ」「いちご」の4種類なので、
A9に「4」と表示させるにはどうすればいいのか教えてください。

>>249
B列に B1=IF(COUNTIF(A$1:A1,A1)>1,0,1)
この式をB8までコピー
B列の合計を計算：A9=SUM(B1:B8)

>>250
ありがとう！
同じようなものが100列以上続くので、作業用シートを作ってやってみます。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 カウント、文字列、複数条件

　　A　　　B　　　C　　　〜　BB　　BC　　〜
1　　　　　札幌　函館　〜　札幌　函館　〜
2　札幌　関東　関西　〜　中部　中部　〜
3　函館　関西　中部　〜　中部　関西　〜
4　青森　関西　関東　〜　関西　関西　〜
5　秋田　関西　関西　〜　関東　関西　〜
6　岩手　中部　関西　〜　関西　関西　〜
〜

データはB2:II300にあります。
調べたいのは、例えば2行目「札幌」の行で、1行目が「札幌」の時に
「関東」は何個あるかです。同様に1行目が「函館」や「青森」の場合も・・・
これを各行単位でカウントするにはどうすればよいですか？

>>252
=DCOUNT

>>252
=SUM((B$1:II$1=$A2)*($B2:$II2="関東"))
上の式をCtrl+Shift＋Enterで確定してコピー

>>248
KeyCodeって便利なものがあるんですね
うまく動作しました。ありがとうございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】はい
【4 VBAでの回答の可否】 駆け出し
【5 検索キーワード 　 　 】 EXCEL　VBA　マスタ　編集　フォーム　コンボボックス

作業者がシートを直接いじれないようにするために全てフォーム上で入力するようなものを作っています
作業者がフォーム上でマスタ登録してコンボボックスで選ばせる物を作ったのですが
作業者が間違ったマスタ（例えばAAAの品番なのにAABと入力してしまったなど）を入力してしまい、
そのことに気づいた作業者が直そうと考えた場合どうさせたらいいでしょうか？
シート上で直接書き換えれば簡単なのですが作業者にそれをさせたくないのです
構想がまったく思いつかなくて調べようがなく困っています　よろしくお願いします

入力確定前に確認を取る
再入力用にインターフェースを作る

Excelと関係ないな・・・

年賀状ソフトとか使ったことないわけ？

ないっ！

>>256
たとえば、セルのダブルクリックで
入力フォームを表示して、新たに入力させるとか。

>>256
君の質問はExcel云々ではなく、アプリのデザインの話だ。
申し訳ないが、スレの趣旨から逸脱してる。他を当たった方がいい。

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

コンボボックスのプロパティでfmStyleDropDownListにして手入力不可にしているのですが
キーボードをコンボボックス上で入力すると押されたそれに近い文字の入った項目が自動で選ばれてしまいます。
この自動で選ばれる機能をOffにするにはどうすればいいですか？

プロパティいじり回したら項目見つけました
fmMatchEntryNone 2でいけました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ActiveSheet.CheckBoxes.Select

シートに貼り付けたいくつかのチェックボックス(それぞれ違うセルに設置)のうち、
指定したセル(チャック外しラジオボタンから見て右1下1など)にあるチェックボックスだけを選択したいのですが
ActiveSheet.CheckBoxes.Select　では、すべてのボックスが選択されてしまいます。

どう記述すればよいのでしょうかm(__)m

Worksheets("Sheet1").Checkbox1.value = True

>>265
何か違うようです。
まずCheckbox1というのが何を指しているのか分かりません。
そしてもしそれが直接チェックボックスの名前(貼り付けた順番?)を指しているとしたら方向性が違います。

ラジオボタンもチェックボタンもシートに貼り付けてまして、そして
現在選択しているセル(そこにはラジオボタンが存在)から、
右にいくつ、下にいくつの場所にあるセルにあるチェックボックスを操作したい、ということです。

複数のシートのD7を配列もしくは範囲指定して
Index関数で処理したいのですが、どういう風に記述すればいいのでしょうか？

=Index(`Sheet1:Sheet2`!D7,1,1)

などとしてみましたがダメでした
ヨロシクお願いします

topleftcellで総当たりかな

Excel 2007 で上書保存するだけで所有権の取得権限が無いユーザが
所有権を乗っ取れるのは既出？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はじめたばかり
【4 VBAでの回答の可否】 可
笑っちゃうような質問で申し訳ありません。

Private Sub CommandButton3_Click()
Cells(7, 3).Select
Selection.Font.Color = 3
End Sub

コマンドボタンを押すとセルの文字の色が変わる、というマクロを組むためにまず実験として本に載っている
マクロをほぼそのまま写しました。

これを実行しても、7,3のセルがアクティブになるだけで、フォントの色が変わりません。赤になるはずらしいのですが・・・。
何がおかしいのでしょうか・・・？

（ためしに手動でフォントの色を変えてみたところ、マクロの動作後黒のフォントに戻りました。？？？です。）

それはおそらく ColorIndex だ

あ！本にもそうかいてありました。

ありがとうございます。うひゃー、はずかしぃー。

うーんやっぱりできません。

やりたいことは>>266に書いた通りなんですが、
ActiveSheet.CheckBoxes.value = True　では、シート上のすべてのチェックがTrueになってしまいますよね。

'ラジオボタンにつけたマクロの一部
Cells(Application.Caller).Select　'これでラジオボタンのセルをセレクト
Me.Cells(row + 1, column + 2).Select　'ラジオの右右下に配置しておいたチェックのあるセルをセレクト
この後に、現在セレクトいるセルにあるチェックを外す、という作業は出来ないでしょうか。

現在のシートのチェックボックス達のうち、現在セレクトしているセルにあるチェックボックスの.value =　True
みたいな感じのです。

>>273
あなたは、昨日初心者スレで質問した人？

>>273
お前が判らないものを俺達が解るわけない。

set a = selection.address
for each o in activesheet.checkboxes
if o.topleftcell.address = r then o.value = false
next

>>274
はい、(厳密に言うと違うのですが)そうです。

あちらで受けたアドバイスで進めることにしたのは私の同僚でして、
私は汎用性がなくても、ひとまず最初の方法で任意のチェックが外せることを確認したいです。

>>277
恐らく、｢フォーム｣のチェックボックスのことを述べていると推測して。。。

チェックボックスを右クリック＞コントロールの書式設定＞｢コントロール｣タブ
の"リンクするセル"に特定のセルを指定する。
例えばそのセルがA1だとすると、チェックが入っているならA1に｢TRUE｣と表示される。

あるボタンのアクションでそのチェックボタンのチェックを外す場合は

Sub aaa ()

ActiveSheet.Range("A1").Value = False
<シートを指定する場合は、WorkSheets.("シート名").Range("A1").Value = False>

End Sub

というコードを書いて、ボタンを右クリック＞マクロの登録で登録してやればよい。

>>278
うおお、ありがとうございます。たった今コントロールツールとフォームの違いを習いまして(つд｀;)
そうです、フォームです。

これでやってみます。
そして、おそらくセルをコピーしたときに
>チェックボックスを右クリック＞コントロールの書式設定＞｢コントロール｣タブ
>の"リンクするセル"に特定のセルを指定する。
で、ズレが出てくると思うので($をつけなければ相対になるかな?)
そしたらまた考えて見ます。

>>254
そんな使い方があったんですね。
ありがとう。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はじめたばかり
【4 VBAでの回答の可否】 可

マクロを作ったのですがどんなバグによるエラーがでても
msg boxを出してExcelを終了するにはどうしたらいいんでしょうか?
ようはデバッグモードに入りたくないのですが全てのsub 〜 end sub　に挟まったマクロに
On Error GoToを書き込むしかないのですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はじめたばかり
【4 VBAでの回答の可否】 可

日付のセルが条件によってフォントの色や背景色が変化するマクロを書いています。
【表】
(1)　もとになる日付(G3:AK3)と曜日(G4:AK4)
(2)　任意で入力された土日以外の休業日(AO1:AS1)　
(3)　"う"と任意で入力されているその他の条件(G2:AK2)
(4)　(1)と同じ日付(G9:AK9)と曜日(G10:AK10)が入力されている
【マクロ実行】
(1)で土日なら同じ列の(4)のフォントの色が赤(Font.ColorIndex = 3)
(2)に表示された日付と(1)が同じものがあれば(4)のフォントの色が赤(Font.ColorIndex = 3)
(3)に"う"と入力されたセルと同じ列の(4)の背景色が水色(Interior.ColorIndex = 34)

書いていてやたら長いマクロになってしまいました。簡潔な記述方法を教えて下さい。

Sub aaa()
Dim i As Long
For i = 7 To 37　　　　　　　　　　
　If ((Weekday(Cells(3, i)) = 7) Or (Weekday(Cells(3, i)) = 1)) And (Cells(2, i) = "う") Then
　　　Cells(9, i).Font.ColorIndex = 3
　　　Cells(10, i).Font.ColorIndex = 3
　　　Cells(9, i).Interior.ColorIndex = 34
　　　Cells(10, i).Interior.ColorIndex = 34
　ElseIf ((Cells(3, i) = Range("AO1")) Or _
　　　(Cells(3, i) = Range("AP1")) Or _
　　　(Cells(3, i) = Range("AQ1")) Or _
　　　(Cells(3, i) = Range("AR1")) Or _
　　　(Cells(3, i) = Range("AS1"))) And (Cells(2, i) = "う") Then
　　　Cells(9, i).Font.ColorIndex = 3
　　　Cells(9, i).Interior.ColorIndex = 34
　　　Cells(10, i).Font.ColorIndex = 3
　　　Cells(10, i).Interior.ColorIndex = 34
　

ElseIf Cells(2, i) = "う" Then
　　　Cells(9, i).Interior.ColorIndex = 34
　　　Cells(10, i).Interior.ColorIndex = 34
　ElseIf (Weekday(Cells(3, i)) = 7) Or (Weekday(Cells(3, i)) = 1) Then
　　　Cells(9, i).Font.ColorIndex = 3
　　　Cells(10, i).Font.ColorIndex = 3
　ElseIf ((Cells(3, i) = Range("AO1")) Or _
　　　(Cells(3, i) = Range("AP1")) Or _
　　　(Cells(3, i) = Range("AQ1")) Or _
　　　(Cells(3, i) = Range("AR1")) Or _
　　　(Cells(3, i) = Range("AS1"))) Then
　　　Cells(9, i).Font.ColorIndex = 3
　　　Cells(10, i).Font.ColorIndex = 3
　End If
　Next i
End Sub

>>284は>>283の続きです

>>281
簡単な方法で一発で解決したい(ごまかしたい)という質問に見受けられるが、

そもそも論で言えば、設計段階からエラーハンドリングを適切に考慮した
プログラムなら、こんな議論が出てくること自体がない。

「動けばいい」という意識でどんどんコードを書いちゃうと、君のような問題に
頭を悩ませるようになる。設計する、という意識だけでも持つべき。

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

印刷プレビューから印刷ボタンを取り除くか
プレビューから印刷処理を行った後にイベントを実行するように
するにはどうすればいいでしょうか?

>>282

試してないし、やりたい動作と一致してるかわからんがとりあえず提示

Sub test()
Dim i&, FontColor&, BackColor&, Week&
For i = 1 To 37
'フォント色チェック
Week = Cells(3, i)
If Week = 7 Or Week = 1 Or ((Cells(3, i) = Range("AO1")) Or _
(Cells(3, i) = Range("AP1")) Or _
(Cells(3, i) = Range("AQ1")) Or _
(Cells(3, i) = Range("AR1")) Or _
(Cells(3, i) = Range("AS1"))) Then
FontColor = 3
Else
FontColor = 1
End If
Cells(9, i).Font.ColorIndex = FontColor
Cells(10, i).Font.ColorIndex = FontColor

'背景色チェック
If Cells(2, i) = "う" Then
BackColor = 34
Else
BackColor = xlNone
End If
Cells(9, i).Interior.ColorIndex = BackColor
Cells(10, i).Interior.ColorIndex = BackColor
Next
End Sub
貼られたコードには条件不一致の場合の設定は書いてないけど勝手にいれてみた

>>288
わかりやすく参考になります。ありがとです。

If Week = 7 Or Week = 1 Or ((Cells(3, i) = Range("AO1")) Or _
(Cells(3, i) = Range("AP1")) Or _
(Cells(3, i) = Range("AQ1")) Or _
(Cells(3, i) = Range("AR1")) Or _
(Cells(3, i) = Range("AS1"))) Then

がなんかムカつくので

Dim Result As Range
Set Result = Range("AO1:AS1").Find(Cells(3, i).Value)
If Week = 7 Or Week = 1 Or Not Result Is Nothig Then

とかでもいい気がするけど、Findの使い方ってこんなんでいいんだっけか・・・
ん〜もっとすっきりさせたい

てか、これぐらいなら条件付書式で対応できそうな気もする

>>290
重ね重ねありがとうございます。
>>287を試してみたところ、５行目の
Week = Cells(3, i)　で引っかかってしまいます。

条件付き書式だと条件が多すぎて…。

>>291
Week = WeekDay(Cells(3, i))
の間違いです。あたまわりー俺・・・

配列数式とか使えるといけるのかな？と思ったんですが
VBA以外は疎いんでアドバイスはできませんorz

>>292
Week = Weekday(Cells(3, i))
あ、と思い試してみましたがまたもや引っかかります。
少し自分でも考えてみます。

>>293
すいません。脳内変換してました
誤)For i = 1 To 37
正)For i = 7 To 37

>>282 とりあえず･･･
Sub test2()

Dim i As Long
Dim j As Long

For i = 7 To 37
　If Weekday(Cells(3, i).Value) = 7 Or Weekday(Cells(3, i).Value) = 1 Then
　　Range(Cells(9, i), Cells(10, i)).Font.ColorIndex = 3
　Else
　　For j = 41 To 45
　　　If Cells(3, i).Value = Cells(1, j).Value Then
　　　　Range(Cells(9, i), Cells(10, i)).Font.ColorIndex = 3
　　　　j = 45
　　　Else
　　　　Range(Cells(9, i), Cells(10, i)).Font.ColorIndex = 0
　　　End If
　　Next j
　End If
　If Cells(2, i) = "う" Then
　　Range(Cells(9, i), Cells(10, i)).Interior.ColorIndex = 34
　Else
　　Range(Cells(9, i), Cells(10, i)).Interior.ColorIndex = xlNone
　End If
Next i

End Sub

>>294
うお！こちらこそ気づきませんでm(_ _)m

>>295
ばっちりです。ほんまにありがとうございました！お付き合いいただき感謝です。

>>288
ElseIfで条件付けを繰り返し(それしか頭にありませんでした)ていたのが
ﾏﾇｹでした。
あと>>290でご指摘いただいたところも最高にｶｯｺ悪いと思ってましたが
そんな方法があったとは目から鱗でした。

前スレで配列の垂直方向での表示方法をも教えてもらったのですが、もう、一度お願いします。
その時は水平方向しか関心がなかったので失念してしまいました。
今現在、次のように当てずっぽうで書いてみましたがだめです。よろしくお願いします。

Range("m1:m20").xlDialogPasteSpecial = Transpose.配列1

>>299
Range("m1:m20").Value = WorksheetFunction.Transpose(配列1)

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

どうもこのスレの住人は、プログラムの可読性や再利用性という意識は低いように見える。
コードをシンプルに書こうという努力には寸暇を惜しまないようだが、どうも議論の矛先が
低レベルだな。

まぁ、VB使いには文化的に元々そういう意識は根付いていないってのもあるんだろう。

>>302

>>287これの高レベルな回答を教えてください

>>302
そういう話題についてよいサイトなどがあればご紹介を・・・

applicationupdate falseにすると見違えるように早くなるな

terapadを一般的なエディターとして使っているので、これを
エクセルマクロで起動させ、A1セルの「Hellow World」を表示させたい。
できるかどうかもわからない初心者です。丸投げでお願いします。

terapadを起動させる事と、 A1セルに「Hellow World」を表示させる事の関連性は？

実は、エクセルに引き続き、terapadでいろいろと作業をしたいのです。
「Hellow World」表示は引き継ぐための１例です。

>>308
外部アプリを起動するなら shell関数と言うのがあるけど、、、、

セルの内容をterapadに渡すって意味ならAPIじゃねぇの？
VBAでそんなことできたっけ？
一回txtに書き出すかクリップボード経由すれば擬似的なことができなくもなさそうだけど

テキストファイルに書き出して、ShellからTerapadを起動。
これくらいしか思いつかない。

>>303
そーいうのを素養のない人間に見せても「無駄にコードを長くしただけ」とか
受け取られるのが関の山。

まずは自分のコードが「汚い」と感じられるようになれないと。

>>309-311
shellとAPIをキーに調べていたら、エクセルマクロで、できると確信しました。
thanxです。
ここで教えてもらうの３回目です。感謝している１人です。
では、良い眠りを。

エクセルの事で質問があります。

今、エクセルで、136(横)×66(縦)マスの表を作れと言われています。

用紙サイズA3（横）で、横を半角文字サイズ、
作れといわれております。

私の頭脳では、１つのセル幅を1.0にして、横136マス分作ろうとしているのですが、
用紙サイズA3には収まりません。

縦66マスは、なんとか納まるのですが。。。

どなたか、上手い事、A3の用紙サイズに納まるようなヒントを
お願いいたします。

スレ違いでしたら申し訳ありません。

>>314
ページ設定の
拡大縮小印刷
○横□×縦□ページに印刷 にチェック
横１×縦１
にしてＯＫ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 多分無理かも･･･
【5 検索キーワード 　 　 】 IF 8条件以上
C1="キーワード",D1="OK",IF(C1="キーワード",C1+C2+C3+C4+C5+C6+C7,IF（中略）,C1))))))))
って感じで計算をしてるんですが、8条件以上の計算を行いたい時はどのような感じでやれば良いのでしょう？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル*検索
エクセルの識者の皆様、宜しくお願いいたします。
　A
　20010
　20015　
　20010
　20030
　20015　
　20010

この様にある列(例としてA列)に30種類位の値が100くらい連続して入って
います。この時に上から20010という数値は何回出てきたかという結果を
20010の隣のB列に出すという事は可能でしょうか?

この20010という値自体は部品番号の様な物で、数値ではありません。

>>317
countif

>>316
作業セルを使う。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 2番目　一致　すべて　抽出

　　A　　　　　B
1　佐藤　　　広報
2　鈴木　　　開発
3　高橋　　　企画
4　田中　　　広報
5　渡辺　　　人事
6　伊藤　　　経理
7　山本　　　開発
8　中村　　　広報

このように、一致しない人名のみで構成された行Aと、割り当てる部署（7種類）が書かれた行Bがあります
ここからB行が広報であるものをすべて抜き出し、列Aの値を列Cに表示することはできますか？
実際は各年度ごとのデータを抜き出す必要があるので、１列ずつ抽出してコピペ、などとすることはできません
よろしくお願いします

>>320
http://www.google.co.jp/search?hl=ja&q=Excel+%E6%8A%BD%E5%87%BA+&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel2007 テーブル名 リスト

コンボボックスで選択するリストで、テーブル名を指定することはできませんか？
「リスト」というシートを作って、「有無」というテーブルを作ったのですが、
リストの指定で、=有無[#Data]とやってもエラーが出てしまいます。

x =有無[#Data]
o =有無[#データ]

>>320
C1=IF(B1="広報",A1,"")
後はC1のフィルハンドルダブルクリック

>>322
名前の定義はまだしてないのかな？

テーブルを選択した状態で「挿入」→「名前」→「定義」で

【1 OSの種類 　 　 　 　 .】 Windows 2000 sp4
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 gcd excel 仕様

最大公約数を求めようと次のようにしているのですが、おかしな値が帰ってきてしまいます。
　　　A　　　　　　B
1|26919000　=GCD(A1:A2)
2|13467600

こうすると、何故かB1が"1"になってしまいます。
試しに、B2に=GCD(26919000,13467600)を入力してみたら、5400になりました。
A2のセルをダブルクリックして入力状態にして、なにもせずに別のセルに移動するとB1の値が5400になります。

A列にはこんな数字がいっぱい入っているので、手でいじらなくても正しい値が欲しいのですが、何か間違ってたら教えてください。
ちなみに1になってしまうのはこの数字だけみたいです。なにか制限があるのでしょうか。。

>>326
うちのExcel2000では再現できないので判りません。

EXCELのVBAとプログラミングのVBってどう違うのですか?
VBAに慣れたらVBも扱えるようになりますか?

>>327
ありがとうございます。
私のほうでも手で数値を入力すると再現しないことが分かりました。

ちょっといじっていて、この状態でA1を消すとB1が13467599になるのに気づきました。
どうも内部的になにか変な値になっているみたいです。
A列の内容をVBAで出しているので、そっちを見直して見ることにします。

連書きでスマソ

vbaから出力するA列を、Longにキャストしてから書き込むようにしたら直りました。
もともとDoubleを1000倍してたので、近似して見えていたのかもしれません。
お騒がせしました。

>>329
A1を26919000
A2を13467599.9
にしたら再現しました。
A列の数値に小数部がありませんか？

>>331
あ、解決してたのか･･･。

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

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "aaaaa"
End Sub

印刷のときに処理をさせたいのですが上記のように書くと
プレビューを見るときにもメッセージボックスが出てきてしまいます
プレビューを見るときには反応させず印刷の前だけに処理させるにはどうしたらいいですか？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 乳児レベル
【5 検索キーワード 　 　 】 Excel 関数 複合条件

A B
1| 99 佐藤
2| 92 鈴木
3| 87 佐藤
4| 85 鈴木

Excelの関数について質問です。
例えばこんな表から鈴木さんの最高点を表示させるにはどうすればいいでしょうか？
鈴木さんを含む行だけを抽出した後に列Aに対してMAX関数を使えばよいと
思うのですが、うまく実現できません（´・ω・｀）

>>334
C1=MAX(IF(B1:B4="鈴木",A1:A4,""))
を『配列数式』で行けないかな？

>>335
ｷﾀﾜｧ*･゜ﾟ･*:.｡..｡.:*･゜(n‘∀‘)ηﾟ･*:.｡. .｡.:*･゜ﾟ･* !!!!!
ありがとうございました!!!

もしかすると、過去にも同じような質問があったかも知れませんが
どなたか教えて下さい。

毎回ではないのですがエクセルを共有して使用していると、セーブしたタイミングでバグります。
具体的なバグの内容は
・SHEETがなくなる
・セルが違うSHEETに移動する
等と要はデータとしてかなり使い物にならない状態になります。
全く同時にセーブした時になるかと思い、試してみたのですが
そうでもないようです。
（もしかすると、私のタイミングがズレていたのかも知れないですが・・・）
どなたか同じような経験をされた方や、対処方をご存知の方が居ましたら
ご教授下さい。

ちなみにバージョンはOFFICE 2000です。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003SP2
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル csv保存 """

csvのファイルで

"名前","郵便番号","住所","電話番号",""

上記のファイル形式を、データ取り込み（文字列の引用符は{なし}）して、
修正（一括で修正したいのでマクロを使用予定）後、
ファイルの種類を、CSV(カンマ区切り)(*.csv)で保存しました。

テキストエディタで中身を見ると

"""名前""","""郵便番号""","""住所""","""電話番号""",""""""

上記のように " が３つになります。 エクセルで "","",の形式で保存する方法はありますか。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】△
【4 VBAでの回答の可否】 ○
【5 検索キーワード 　 　 】vba excel フォーム チェックボックス リンク セル

A1にフォームのチェックボックスを置きコントロールの書式設定からB1にリンクさせ、チェックの状態がTRUEとFALSEで確認できるようにしました。
そしてA1:B1をコピーしてA2に貼り付けたんですが、A1とA2のチェックが同時に動きその状態がB1に表示され、B2は動きません。
おそらく理由として、シート上に存在する「B1にリンクするチェックボックス」をコピーしているからだということは分かりました。

そこで、チェックボックスが操作された瞬間(アプリケーションが呼ばれた瞬間)に、現セルから1列右にリンクするというマクロを作れば
コピーしたときに同じ場所にリンクしてしまう問題が解決できるのではないかと考えました。

１．これは可能ですか？
２．可能であれば、どういうコードを記述すれば良いのでしょうか。

キーワードが悪いのか、はたまた出来ないから載っていないのか、どうも検索しても出てきません。
ご教授ください、長文失礼しました。

>>338
よくわからないけどそのテキストエディタで
""" → " に置換すればいいんじゃない？

【1 OSの種類 　 　 　 　 .】 WindowsXPsp2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ヘルプ（関数→一般的に使用される数式の例）を参考にしました
関数についての質問です。
不規則に○×が並んでいると仮定します。
○が出現した順に「0」で、次に○が出現したら「1」と返すようにしたいのです。
例)
○×○×××○×○××○・・・
0*1***0*1*0**1・・・
のようにです。きちんと並んで表示されていないと思いますが、すみません。
×のところはとりあえず「*」にしましたが、なんでもいいです。
よろしくお願い致します。

1文字1セルなら

B1 =IF(A1="○",MOD(COUNTIF($A1:A1,"○")+1,2),"*")
これをコピーでOK

一つのセルに入った状態のまま処理するのは
たぶんVBAじゃないと無理

まちごうた
B1じゃなくてA2
1行目に入ってる場合の話です

>>342
ﾚｽどうもです。
完璧です。
ありが�d

【1 OSの種類 　 　 　 　 .】 WindowsXP　sp2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】INDIRECT　COLUMN　列番号　等

あるセルに
=INDIRECT("B"&ROW(A2))
と書くとそのセルにB2の中身が表示されます。

そこで今度は列を変えるようにして
=INDIRECT(COLUMN(a2)&"1"))や=INDIRECT(COLUMN(a2)&1))
にしてみるとエラーになります。

11になってしまうのが原因だと思いますが
COLUMN（や他の関数？）でアルファベットの列番号を取得はできないのでしょうか？
また、このままエラーが出ない書き方なんかあるのでしょうか？
お願いします。

>>345
ADDRESS関数を使用する。条件によってはOFFSET関数でもいいかも。

ありがとうございました
方法変更を検討します。

マウスコンピューターのPCを持ってるのでExcelが入ってないんですが、Excelって高いですね。

Excelみたいなソフトは入っていますがこれからの仕事のためにもちゃんとしたExcelをマスターしたいと思って。

やっぱ高くてもExcel買うべきですかね

仕事で使うならExcel買うべき
プライベートならマクロを使いたいかどうかだな

というか､そんな高い物でもないだろ
Office Professionalにしたって高額ソフトってわけでもないし

excel2002を使っています。

セル１をリスト入力で　A,B,C　と3種類の選択肢を作って選択入力にしました。
セル２にその入力内容を表示したいのですが、セル１の値がA,なら整数の5、
Bなら整数の7になるようにしたいのです。
どのようにすればよいでしょうか？お願いします。

>>350
セル2=VLOOKUP(A1,{"A",5;"B",7;"C",""},2)
または
セル2=IF(A1="A",5,IF(A1="B",7,IF(A1="C","","")))
とか。。。

やってみます。ありがとう！

>>351
完璧でした。

excel2003です。
フォームのオプションボタンをコピーしたら、情報を共有しているらしくどれか一つしか選択できません。
コピー元とコピー先のオプションボタンを別々に扱いたいのですが、どこかで設定できますか？

>>354
グループボックスで囲み分けるとか･･･。

>>348
は？　安いだろ

>>355
むむ、どうやってやれば良いんでしょうか・・・

>>356すいません、確認したいんですけどExcelっておいくらですか

>>357
フォームの中にXYZって書かれた四角いのがあるでしょ？
それを使って囲んだ分だけが同じグループになる。

>>359
ああ！シートの保護してあったため選べませんでした！
ありがとう〜

教えてください。

Aの縦のセルに次の数字が入力してありました。

321
5434
25
2645
5434
25
25
2645
5434

よくみると、実は次の数字だけで書かれていますが、
Bの縦のセルへこの４つの数字を抽出し記載するには、
どのようにすればよいでしょうか？

25
321
2645
5434

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 XP
【3 VBAが使えるか　 　 .】 否
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL BEEP

あるセルを常時監視し、一定の数値であった場合にBEEP音を鳴らすことは出来ませんでしょうか？
具体的には楽天証券のリアルタイムスプレッドシートマクロにより自動更新されるセルがあり、その数値によってBEEP音を鳴らしたいのです。
リアルタイムスプレッドシートマクロ内を弄るのが理にかなっているのかも知れませんが、規約等で出来ないものとしてお願いします。

>>361
まず、どこの課題か述べよ

>>362
計算結果の表示されるセル=C1として

Private Sub Worksheet_Calculate()
If Range("C1") > 10 Then Beep
End Sub

前々々任者が作ってくれたエクセルbookの表はよくできているので、仕事に欠かせない。ところが、出力様式が少し変わったので修正したいのだが、マクロを見ても出力範囲を表したものが見つからない。どう調べたらいいですか。vba以外にvbで書いているのがあるのかなー？

だからExcel何円だ！！

>>365
ファイルメニュー⇒ページ設定⇒シートタブにある印刷範囲で決めてるとか？

>>366
うるせぇなぁ
自分で調べろボケ
http://www.microsoft.com/japan/athome/lucky/default.mspx

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 ExcelXP
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
関数を教えてください

_A_. |_B_. |_C_. .|_D_.
aaa..|aaa..|今日|
bbb..|bbb..|明日|
ccc..|ccc..|昨日|
ccc..|ddd..|去年|
ddd..|
aaa..|

Ａ列にあるデータを、Ｂ列を参照して、同じならＣ列の値をＤ列に吐き出させるにはどんな関数使えばいいでしょうか？
例えばA列がaaaならＤ列に今日、cccなら昨日となるようにしたい
ただし、Dに =Aがaaaなら今日とする　といった命令ではなく、数式としたい
（実際はＢ列もＣ列も膨大なので）

わかりにくくてすいません

>>369 こゆこと？
D1=VLOOKUP($A1,$B$1:$C$4,2)

>>369
=IF(EXACT(A1,B1),C1,"")
これでいいのかな？

>>364
ありがとうございます！出来ました！

>>369
=if(A1=B1,C1,"")

これをコピーしまくりんぐ

>>370-373
ありがとです。
>>370さんのがうまいですね
参照するＢ列とＡ列は1：1で対応してない（Ａ列は数百行でもＢ列は数行）のでほかのやり方だとうまくなかったです。

Ｔｈａｎｋｓ

VBAで、セルの値が#N/Aであるかどうかを判定するにはどうすればいいのでしょうか？

>>375
If cells(1，1).Value = CVErr(xlErrNA) Then
でいけるとおもわれ

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

教えてください。

1　5　9
2　6　10
3　7　11
4　8　12

13　　
14
・　
・　　24

25
・
・
　　　36

以上の値をコマンドボタンで出したいのですがどのようにすればいいのでしょうか？
初心者なのでまったく分かりませんのでよろしくお願いします。
　　　

意味府

パソコン一般板から誘導されてきました。
エクセルのマクロについて質問があります。
エクセルで作った一覧表のデータの高さ、巾等一部のデータをコピーして
別のエクセル表に貼り付けていき、終わったら、１行下に下がってまた
同じものをコピーして貼り付けていくマクロを作りたいのですが
１行分終わった後はどんなマクロを入れればいいのでしょうか？
また貼り付ける際に結合したセルに貼り付ける場所があるのですが、
その部分が結合したセルの一部分を変更することはできませんと
でるのですがどのようにすればいいでしょうか？
一連の操作を一回でやれるようにしたいと思っています。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 　はい　（マクロの記録で簡単なのを作るくらいなら）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 マクロ　繰り返しで見てみましたが
違うようなのしかでてなくて意味がわかりませんでした。

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】デザイン　excel　グラフ　テンプレート　
Excel2007では「グラフのスタイル」という項目でグラフのデザインを一括して変更できますが、
現状ではプリセットのものからしか選ぶことができません。
これを自作で設定するようなことは可能なのでしょうか？

>>379
 逆に考えるんだ、「シートをコピーしていらないところを消せばいいさ」と考えるんだ

>>379
正直、その程度のかじり方でマクロの質問をされるのは困る。
質問→回答の応酬が際限なく続いて、スレが無駄に埋め尽くされてしまう。

マクロの質問するなら、回答されたマクロのメンテをある程度自分で出来る
程度に基礎を積んでからにしてくれないかな。

>>379
一行下がる
Cells(r, 1).End(xlUp).Offset(1).Select
こーいうこと？

セル結合の件
書いてある通り結合されたセルの一部分を変更する事はできない
これはVBAではなくEXCELの仕様なわけだが379はどうしたいんだ？

置換で文字の後ろに記号を打つことは出来ますか？
アアアア
↓
アアアア☆

>>384
出来ますよ。

先生！　列の数を最大２５６以上に拡張する裏技はないですか？

>>386
Excel2007を買えばいい。

マジ？

>>369です。
またわからないことが出て来てしまったのでアドバイス頂けないでしょうか？

_A_. |_B_. |_C_. .|_D_.
aaa..|aaa..|今日|
bbb..|bbb..|明日|
ccc..|ccc..|昨日|
ccc..|ddd..|去年|
ddd..|
aaa..|
sss.|

Ａ列のデータからB列に該当する値を検索してC列の値をD列に表示したいということで教えて頂いた
D1=VLOOKUP($A1,$B$1:$C$4,2)
でうまくいったのですが、A列にB列のデータにはない値（ここではsss）があった場合「#N/A」が表示されてしまいます。

やりたいのは、B列にないデータの場合は、A列の値をそのままD列に表示したいのです。

調べるとA列に空白セルがある場合には
D1=IF(A1="","=D1",VLOOKUP($A1,$B$1:$C$4,2))
とやればよいようなのですが、【B列にあるデータ以外】にはという条件設定をするにはどうしたらよいでしょうか？

お知恵を拝借できれば助かります。

>>389
VLOOKUP関数を使った回答以外の回答もよくみてみろ
使える関数を用いた解答が付いてるぞ

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 2000
【3 VBAが使えるか　 　 .】 否
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 EXCEL 抽出 列

>>361です。

初めＡ列に次のデータが記載されています。

321
5434
25
2645
5434
25
25
2645
5434

Ｂ列へ使われている数字を抽出するには、どのように関数を
使えばよいでしょうか？ちなみに次の４つの数字が抽出結果と
なり、Ｂ列に書かれるようにします。

25
321
2645
5434

=MIN($A$1:$A$9)
=SMALL($A$1:$A$9,RANK(B1,$A$1:$A$9,1)+COUNTIF($A$1:$A$9,B1))

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 抽出、複数条件、マッチ

シート1　　　　　　　　　　　　　　　シート2
　　A　B　　C　　　D　　　E　　　　　　A　　　B　　　C　　　D　　　E
1　1　20　田中　木村　東京　　　1　　　　　1　　　　1　　　1　　　2
2　1　20　加藤　山田　大阪　　　2　　　　　19　　　20　　25　　13
3　1　20　鈴木　石田　福岡　　　3　田中　休み　東京　東京　東京
4　1　25　田中　加藤　東京　　　4　加藤　休み　大阪　休み　福岡
5　1　25　木村　後藤　大阪　　　5　鈴木　休み　福岡　福岡　大阪
6　1　25　山田　児島　京都　　　6　山田　休み　休み　京都　休み
7　1　25　鈴木　太田　福岡　　　7　青山　休み　休み　休み　埼玉
8　2　13　田中　加藤　東京　　　8　木村　休み　休み　大阪　休み
9　2　13　鈴木　木村　大阪　　　9　児島　休み　休み　休み　福岡

シート1に↑のように入力されたデータが2000行程度あり、それを元にして、
予め1行目と2行目、そしてA列が入力済みとなっているシート2のB3:IA50に、
シート1のE列の文字を抽出するにはどうすればよいのでしょうか？
VLOOKやMATCH関数ではうまく行かなくて・・・よろしくお願いします。

>>391
B1=MIN($A$1:$A$9)
B2=SMALL($A$1:$A$9,COUNTIF($A$1:A$9,"<="&$B1)+1)
B3=↓フィルコピー
B4=↓フィルコピー

XPのエクセル2000です。

シート１のN列に○がついている行があります。
○がついている行のA列とC列をコピーして
シート２の3行目以降にA列とB列に値のみを貼り付けたいです。
シートの表現が間違えていると思うので、直してもらえないでしょうか？

あと、常時このVBAを作動させたいです。方法を教えてください。
　Sub 判定書込み()
　Dim 判定行 As Long
　Dim 書込行 As Long
　書込行 = 3
　　　For 判定行 = 5 To 305
　　　　　If Not IsError(Worksheet(1).Cells(判定行, 14)) Then
　　　　　　　If Worksheet(1).Cells(判定行, 14).Value = "○" Then
　　　　　　　　　書込行 = 書込行 + 1
　　　　　　　　　Worksheet(1).Cells(判定行, 1).Select
　　　　　　　　　Selection.Copy
　　　　　　　　　Worksheet(2).Cells(書込行, 1).Select
　　　　　　　　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　　　　　　IconFileName:=False
　　　　　　　　　Worksheet(1).Cells(判定行, 3).Select
　　　　　　　　　Selection.Copy
　　　　　　　　　Worksheet(2).Cells(書込行, 2).Select
　　　　　　　　　ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
　　　　　　　　　IconFileName:=False
　　　　　　　End If
　　　　　End If
　　　Next 判定行
　End Sub

Sub hoge()
書込行 = 3
For 判定行 = 5 To 305
　 If Sheets("Sheet1").Cells(判定行, 14) = "○" Then
　 　 Sheets("Sheet2").Cells(書込行, 1) = Sheets("Sheet1").Cells(判定行, 1)
　 　 Sheets("Sheet2").Cells(書込行, 2) = Sheets("Sheet1").Cells(判定行, 3)
　 　 書込行 = 書込行 + 1
　 End If
Next
End Sub

>>396
すげー・・・・
こんなに早くスリムな回答ありがとうございます。

>>396
あっあと、エクセル起動中に常時このVBAを動かすには？

>>397 こんな感じでSheet1に書く

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
書込行 = 3
For 判定行 = 5 To 305
　If Sheets("Sheet1").Cells(判定行, 14) = "○" Then
　　　Sheets("Sheet2").Cells(書込行, 1) = Sheets("Sheet1").Cells(判定行, 1)
　　　Sheets("Sheet2").Cells(書込行, 2) = Sheets("Sheet1").Cells(判定行, 3)
　　　書込行 = 書込行 + 1
　End If
Next
End Sub

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 勉強中
【5 検索キーワード 　 　 】 columns

マクロの記述で、変数Aを行番号にしたいのですが、
columns ("A")
columns "A"
columns A

どれも正しく認識してくれません。
VBAの関数ってなんだか記述がしにくいなあ、と初心者として思っちゃいます。
どう書けばよいのでしょうか？

>>400
ヘルプ見れ

ヘルプは見ましたが、具体的な変数の使い方は載ってないようでした。

（”A”）のように書いてA列と表すのはわかりましたが、変数のほうは・・・。
今気づいたのですが、列と行を間違ってましたね。

>>402
HELPには、こう書いてある

>>次の使用例は、"myRange" という名前のセル範囲にある列 1 のすべてのセルの値を 0 に設定します。
>>Range("myRange").Columns(1).Value = 0

だからColumns(1)の1を変数に替えれば良いだけ。

なんで都合良く正解のみを外してるのかが理解できない
というかヘルプちゃんと読めば具体的に書いてあるし

｢載ってないようでした｣ではなく｢絶対に載ってません｣と断言できるくらいに読み漁れ

ヘルプ10回読めば理解できるのに
それすらしたくない奴にプログラムは無理

>>399
どうもありがとうございます。

>>404
>>405
連投しちゃうほど腹立たしかったのか？

連投？

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 わかりません
【4 VBAでの回答の可否】 わかりません
質問は、今まではキーボードの矢印キーを押せば、

下や横に行っていたんですが今日になって動きません。
どうしてでしょうか？

キーボードのScrollRockKeyがかかってるとか

Rock じゃなく Lock だった

あーありがとうございます！
そんな機能があるんですね･･･。治ってよかったです

>>393
VBAを使わないならインデックスになる列をつけるのが吉
たとえば
シート1のA列に1列挿入して
A1　=B1&”/”&C1&D1　
これをコピーすれば、
シート2!B3　=Vlookup(B$1&”/”&B$2&$A3,シート2!$A$3:$F$2000,6,0)
でOKのはず
ただ、VBA向きのシートだけどね^^;

>>393
参考までにユーザー定義関数
Function シフト(myrng As Range, m As Integer, d As Integer, myname As String)
    Dim i As Long
    Dim maxi As Long  
    maxi = myrng.Rows.Count
    For i = 1 To maxi
        With myrng
            If .Cells(i, 1).Value = m Then
                If .Cells(i, 2).Value = d Then
                    If .Cells(i, 3).Value = myname Then
                        シフト = .Cells(i, 5)
                        Exit Function
                    End If
                End If
            End If
        End With
    Next i
   シフト = "休み"
End Function

>>390
ども

とりあえず
IFとISNA関数でなんとかやりたいことはできました

また困ったときはお知恵拝借にきます

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 グラフ　VBA

ChartObjects("index")
のindexに入れるインデックス番号やグラフ名はどこにのってますか？

今マクロの記録で覗いてみたら"グラフ 11"だったのですが
このインデックス番号やグラフ名は後から変更できるのですか?
1つ目のグラフが11になってるのが気に入らなくて1に直したいのです

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 変数の宣言

1回変数の宣言を行えばそのbook内ならいつでも使用可能にするにはどうすればいいですか？
今はプロシージャごとに毎回同じことを宣言しててなんか手間に思えます

複数ブックにあるそれぞれのシートを、
「一つのブックでの複数シート」という形にまとめる方法を教えてください。
数が非常に多いのでVBAでやりたいです。
ググってみたのですが、
「一つのブックの一つのシートにまとめる」というものしか探せませんでした。
よろしくお願いします。

>>

標準モジュールでPublicあたり。
しかし、当然ながら値は保持されたままなので
使いづらくなる予感。

>>419
なるほど確かにそうですね
ありがとうございました

>>420
プロシージャではなくモジュールの頭で宣言すれば
同じモジュール内だったら使える

しかし使いまわす目的なら毎回初期化する手間考えると
無意味だと思うが

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 グラフ
お世話になります。

1つのシートに2つのグラフがあり、シートが30ある1つのファイルを
つくりたいのですが、シートのコピーを行っていたところ、途中から
グラフの部分がコピーされなくなってしまいました。
1つのファイル内につくれるグラフの個数に、制限があるのでしょうか？

お分かりになる方教えていただければと思います。

Excel2***
質問忘れた

>>423
精神障害者の方ですか？

424:名無しさん＠そうだ選挙にいこう :2007/05/17(木) 01:31:32 [sage] >>423
精神障害者の方ですか？

>>414
をいをいw

Selection.Offset(6).Formula =
の右辺に
=COUNTIF(Sheet1!$D$1:$D$5000,"<20")
という計算式を入れたくて、さらに5000には変数を使いたいと思っています
で
Selection.Offset(6).Formula = "=COUNTIF(Sheet1!$D$1:$D$" & P & ","<20")"
と書いたのですが
最後の
","<20")"
の部分でコンパイルエラー：修正候補：ステートメントの最後
になってしまいます
どう書いたらいいのでしょうか?

>>427
Selection.Offset(6).Formula = "=COUNTIF(Sheet1!$D$1:$D$" & P & ",""<20"")"

562　｜　4様
563　｜　ＡＢＣマート
563　｜　ニコニコ堂
564　｜　ＡＡＡ会社

これを元に他のシート（下記のもの）作っているのですが
563という数字を持ったものを1列にするためABCマートの右側のシートに表示させる
ように関数を作っていますがうまくいきません。
index・lookupとう様々な方法を試したのですがいい関数はないでしょうか

562　｜　4様　　　　　｜
563　｜　ＡＢＣマート　｜　ニコニコ堂　｜
564　｜　ＡＡＡ会社　｜

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003

セルの範囲をcells で指定するときはどう書くのでしょうか。
cells コマンドは、単一セル専用ですか？

IFで、10％台の場合○を表示するってどうしたらいいでしょうか

0.1以上0.2未満を丸

=IF(0.1<=H5<0.2,"○","")
一体どこがおかしいんだ・・・・助けて

>>433
=IF(AND(0.1<=H5,H5<0.2),"○","")

=IF(P21<0.2,IF(P21>=0.1,"○",""),"")
これでなるから>>429のアンサーを頼む

そーいやーANDなんて便利なもんがあったな・・・。
正直すまんかった。

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

ウォーキングの記録を付けていて、A列に日付、B列以降に距離やカロリーを書いたシートを使っています。
A列には１年分の日付を、昇順でコピーしてあります。
このファイルを開いた時、若しくは何らかの操作を行う事で、今日付の行のB列(距離のセル）にカーソルを
移動させたいのですが、ググってみても何から勉強したらいいのか見当が付けられませんでした。
何かヒントをいただけませんでしょうか？

>>413-414
ありがとう！
そっかー、インデックスつけると良いんですね。勉強になりました。
ちょっとゴテゴテだけど、IF（ISNA(VLOOKUP〜でなんとか出来ました。

VBAで、A1セル（式あり、値あり）、B1セル（式無し、値あり）のときC1セルに
=A1*B1をいれるのと同じことをするため、
cells(1,3).value="=cells(1,2)*cells(1,1)"　と書いてみたもののダメです。
直してください。よろしく。

Cells(1, 3).Formula = "=A1*B1"

>>439
値だけ入れたいのであれば
Cells(1, 3).Value = Cells(1, 2) * Cells(1, 1)

>>431
=IF(ROUNDDOWN(A1,1)=0.1,"○","")

>>437
　↓ これを ThisWorkbook に書く。後は Help みたりぐぐったり。

Private Sub Workbook_Open()
　 Cells(DateDiff("d", DateSerial(2006, 12, 30), Date), 2).Select
End Sub

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

[1][4]
[2][5]
[3][6]
[][7]
[][8]
こんな感じで数値が並んでいてColumnAのRowが5以下ならば
ColumnBの頭から不足分をCut&Pasteして不足分を補い、ColumnBは
Cutした分だけ上へ移動
ってやりたいのですがどのように書いたらいいのでしょうか?
空白行は上から探したいです

sub test()
Dim R As Integer
ActiveSheet.Range("$A$1").End(xlDown).Address = R

ここから先がわかりません

>>444
意味がよくわからないけどこういうこと？
Sub Macro1()
Dim r As Integer
    With ActiveSheet
        r = .Cells(65536, 1).End(xlUp).Row
        If r > 5 Then Exit Sub
        .Cells(r + 1, 1).Resize(5 - r, 1).Value = .Cells(1, 2).Resize(5 - r, 1).Value
        .Cells(1, 2).Resize(5 - r, 1).Delete Shift:=xlUp
    End With
End Sub

>>440　>>441　サンクス　ただ、
自分の説明が不十分でしたが、Cells(1, 3).Formula = "=A1*B1"はうまくいきます。自分もC1セルを選択後、activecell.value="=A1*B1"でうまくいくのですが、ループさせたいので、cells()を使って表したいのです。式でも値でもかまいません。
Cells(1, 3).Value = Cells(1, 2) * Cells(1, 1)も
cells(1,3).value="=cells(1,2)*cells(1,1)"と同様、型不一致エラーがでます。

>>446
上のでエラーでないけど？

>>446 ぢゃあコレもエラーになるか？

Sub nande()
Dim i As Long
For i = 1 To 10
　Cells(i, 3).Value = Cells(i, 2).Value * Cells(i, 1).Value
Next i
End Sub

>>445
うまく動いてます　ありがとうございました
Resizeの部分を理解するのに時間が掛かりましたがようやく飲み込めました
ところでIfについてわからないのですがElseもEnd Ifもないのにエラーにならないのはなぜなんですか?

>>449
基本的な文法も知らずに闇雲に質問レスを入れるのは止めてもらえるかな。
スレの趣旨から逸脱してる

>>447 >>448
サンクス　おさがわせしすみません。型不一致エラーは別物で、教えていただいたとおりで値が正常に出ます。どうもです。

>>449
if文内の処理が単一行の場合はend ifを省略できます。
>>450
VBAは素人が手探りでやることが多いものなので
基本的な文法ルールを知らないことも多いと思われます。
ってか、自分もそうだ（＾＾;）
もう少し生温かい目で見てくださいm(_ _)m

【1 OSの種類 　 　 　 　 .】 WindowsXPPRo
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 シート
ひとつのシート内のデータを、60分割して、それぞれ別々のシートに貼り付けるマクロを作っています。
コードはループではなく、ベタ書きしています。(60個分ですが、コピペと微改造で済むので)
それなのに（？）27シート目以降、すべてのシートで、貼り付けのときに、
2行のデータを一回だけ貼り付ければいいところを、最後の行(65535行目)まで貼り付けてしまいます。
・27シート目の処理だけ飛ばすと、28シート目からこの現象になる。
・26シート目までの処理を飛ばし、27シート目の処理だけ実行したらOKだった。
・　〃　　　　　　　　　　　　　28　〃
・データ量の多いシートがあったので、削除したけど、やはり同じところで発生する。
・かまわず実行し続けると29シート目あたりで、「リソース不足」と出る。
解決する方法はあるのでしょうか。。。あればご教授願います。
PCのスペック不足によるものならかなり絶望的な気がしないでもないですが。。

不足なものが多すぎてどう言えばいいのやら
せめてコードくらい晒してくれ

>>454
意味不明な質問は放置しておけばいいよ。

>>443
ありがとう！思った通りの動作が出来ました。
日数が決まっているから、絶対位置を算出できるという事ですね。

どうやれば検索に使える日付を生成できるんだろう？と、
まったく見当違いな方向を調べてました・・・

【1 OSの種類 　 　 　 　 .】 Windows VISTA
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】
【4 VBAでの回答の可否】
【5 検索キーワード 　 　 】 exel 2007 大きいアイコン


エクセルの上のほうのアイコンを大きくしたいのですが、どうやったらできますか？
2003や2001のときは普通にできたのですが、2007にしてからできません。

しょーもない質問です

エクセルで「図の挿入」を選ぶと出るファイルメニューが
必ず、「縮小表示」なんですが、詳細表示に固定できませんか？

詳細表示に変えて挿入、おなじファイルですぐ図の挿入をやると、もう縮小表示に戻ってます

あ〜　しょーもないっ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】excel セル番地　計算

A　　　B
---------
1　　　10
↓　　　20
↓　　　30
↓　　　40
↓　　　50
100

お世話になります。上記のようにＡ列に1〜100までの数値が
入ってるとします。ここでセルの内容を問わず、強制的に任意の
セル毎（例は10個おき）の内容をB列に羅列したいのですが、
セル番地の抽出（指定）方法がわかりません。
B列にはどんな関数（式？）を入力すれば良いでしょうか？
宜しくお願い致します。

>セルの内容を問わず、強制的に任意のセル毎（例は10個おき）の内容をB列に羅列

とは、なんですか？
例があるといいのでは？（上の例ではわからない）

エクセル2003です。

年月日を入力するセルがあります。
このデフォルト値を「(現在の年)年1月1日」にしたいのですが
どうすればいいでしょうか。
よろしくお願いします。

例の通りだとすると
ROW関数でセルのある行番号を調べてそれに10を掛けると欲しい行数を得られる
それをINDIRECT関数でセルの番地に当てはめれやれば良い

　=INDIRECT("A"&ROW(B1)*10)

とか
場合によってはOFFSET関数も有用

それぞれの関数の詳細はExcelのヘルプを参照しろ

>>462
デフォルトの値ってなんだよ

現在の年が欲しければ NOW関数で拾って来い
あとはYEAR関数で年数に変換すればいいだろ

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

あるセルの範囲を、変数を使って指定したいのです。
ｘ、ｙ　を変数として（ｙ、ｘ）から（ｙ、ｘ+20）までの範囲を指定したいと考えています。
マクロ自動記録でやってみたところ、

Range("A1:A20").Select

のようになり、根本的に違うような気がします。
検索してみたところ、unionなどそれらしいものもひっかかりましたが、それでもよくわかりません。
どなたかご教授下さい。

>>465 このあたりかな？

Range(Cells(y, x), Cells(y, x + 20)).Select

または

Cells(y, x).Resize(1, 20).Select

>>464
デフォルト値というのは語弊がありました。
YEAR(NOW())にすると、2007しか返ってきませんよね。
要するに「年1月1日」というのは固定で、
2007の部分だけが変動するようにしたいわけです。
これを１つのセルで表示するには、どうしたらいいでしょうか。

>>467
=DATE(YEAR(NOW()),1,1)

>>467-462
日付関数調べりゃわかる事だろ

>>468-469
な、なるほど！
できました。ありがとう〜！

>>463
ありがとうございます。m(__)m

>>459
そういわずに教えてくださいよ
googleで検索したら

「普通は前回のを覚えてるはず、あなたのPCがおかしい」→再インストールで治った

ってのがかかったけど、覚えてるもんですか？
再インストールは、なんか正規のやり方があったら馬鹿らしいんで

失礼、見つけました
ttp://support.microsoft.com/kb/301459/ja

あとは自分で何とかします

391です。

ありがとう。

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

下の例のように参照セル位置を計算式で求めるように
したいのですがどのようにすれば可能でしょうか？

例.
B5のセル…=B1
C5のセル…=R1
B1にB5のセル内容を表示、C5にR1のセル内容を表示

今 こうしているのを
B5のセル…=B1
C5のセル…=(B1+16) ←ここの計算式を知りたい
のようにしてR1セルの値を表示させたい

>>475
OFFSET関数

使い方はヘルプ参照

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

質問させてください。
エクセルで除算や乗算をするときに必ず100単位で答えを出させる事なんかは出来ないでしょうか？
十の位で四捨五入とかでいいので。
書式設定とかで何とかならないでしょうか？

必ずROUND関数の中で除算や乗算をするようにすればいい
関数使いたくないとかの条件後出しは無しでよろしく

>>478
期待通りの結果が得られました。
また一つ便利な関数を学びました。
有り難うございます。

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

とあるWINDOWSベースの専用ソフトを使った測定器で40万個ぐらいから得られた
数値からMAX、AVERAGE、STDEV、CPKが得られるのですが、
この得られた元の数値をtxt出力してEXCELで加工してEXCELで計算させると
MAX以外測定器と結果が違って出てきます
EXCELの関数計算って信用しても大丈夫ですか?
古い測定器なのでそっちを疑ったほうがいいのでしょうか?

>>477
っROUND関数

>>480
演算誤差だったならここらあたりを参考にしてみては
ttp://pc.nikkeibp.co.jp/pc21/special/gosa/index.shtml

>>481

ありがとうがざいます。

>>480
両方疑って他の方法で計算して比べたほうが良い

たぶん484が正答。
俺なら自分でマクロを組むなり、CSVを読んで計算するプログラムを作って結果を出すなりしてると思う。

三井三菱

>>480
少数のサンプルで比較すると分かりやすいぞ

いきなり全数比較なんてしてもしんどいだけ
適度な数のサンプルで比較して原因を調べる事を薦める

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

Ａ１に文字（数字なり）が入力されたらＢ１にＡ１の文字が飛んで
Ａ１に何も入力されてなければ空欄のまま。
Ｂ１に「＝Ａ１」と入力して「０」と表示させないようにする数式

すいません。
間違って送信してしましました・・・。
自己解決しました。
もうしわけないです

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


日付に関する質問なのですが、ちょっと入り組んでいて分かりにくくなると
思うのですが、どうかよろしくお願いします。また長文になってしまったので、
２つに分けて書き込みします。

｛現状：うまく日付が表示されないため、別に新しくエクセルたててそこで色々試行中｝

今新しく立ち上げてるエクセルをエクセルＢ、元使っていたのをエクセルＡと呼ぶ事にします。
今、エクセルＢのＡ１に =TODAY() といれて、2007/5/25と表示されてます
違う場所で、=DATE(A1,A1,25)といれて、2007/5/25と表示させようとしてるのですが
#NUM!と表示されてしまいます。
そして、今度は=DATE(YEAR(A1),MONTH(A1),25)といれると、Ａ１と同じ列なら
きちんと2007/5/25と表示されるのですが、違う列に入れると#######と表示されてしまいます。
その#######を書式で一度5月25日と表示させてから元にもどすと、きちんと2007/5/25と表示されるようになりました。
最後に、=DATE(YEAR(A1),MONTH(A1),DAY(25))といれて試してみたところ、どこに入れても
2007/5/25と1発ででて成功しました。

しかし、これは新しく立ち上げたエクセルＢの結果で、私が実際いれたいエクセルＡの方だと
=DATE(YEAR(H145),MONTH(H145),DAY(25))　と入れても表示されません。
＊Ｈ１４５に=TODAY()といれて2007/5/25と表示されてます。
書式のところをいじれば、H19.5.25や5月25日とはきちんと表示されるのですが
他の2007/5/25等の表示にしようとすると#######とでてどうしても出来ません。

そこで、質問したいのですが

=DATE(A1,A1,25)、=DATE(YEAR(A1),MONTH(A1),25)、=DATE(YEAR(A1),MONTH(A1),DAY(25))
の３つ式は間違っているのでしょうか？

なぜエクセルＢでは、=DATE(YEAR(A1),MONTH(A1),DAY(25))を入れたらきちんと
表示されるのに、エクセルＡで同じようにしても表示されないのでしょうか？

そして、どうすれば、エクセルＡの方で2007/5/25と表示させることができるのでしょうか？

すごく長くて解りにくい文なので、何かわかりにくところがあれば
全てお伝えしますので、どうか教えてください。

>>490-491
表示が######となるときはセルの幅が足りないと思う。

=DATE(A1,A1,25)の式は上手くないと思う。
A1=2007/5/25と入ってるとき、A1をＧ／標準にすると「39221」というシリアル値が表示される。
この「39221」を=YEAR()、=MONTH、=DAY()に入れてやれば年や月や日が表示される。

>>490-491
何を期待して書いたかによるけどこの内容だと2つ目以外は間違いだと思う。
なぜかという問いには、
それぞれの関数のヘルプを読みましたか？
それを理解しましたか？

>>492
セルの幅を最初から広げていても＃＃＃＃＃になってしまうのです・・・
あと、A1をＧ／標準にする、というところを詳しく教えていただけませんか？

>>493
2つ目の式は正解なのですか？
式は合っているのに、エクセルＡの方できちんと表示されないのは何故でしょう・・・
関数のヘルプはだいたい読んで、自分に考えられる
３つの方法で試したのですが、それでもダメだったので
ここで質問させてもらっています

>>494
参照しているセルの表示形式が文字列になってるとかじゃないよな？
「####」の列をダブルクリックして自動で列幅調整しても「###」のまま？
ヘルプみたんならシリアル値は理解してるよな？

###...の補足

エラー値 ##### の意味
セルの幅よりも長い数値、日付、時刻が入力されている場合、
または結果が負の値になる日付または時刻の数式が入力されている場合、
エラー値 ##### が表示されます

てか、ヘルプで検索かけると普通にでてくるよ

あう、本当にバカですみません・・・
幅広げるのも試したはずだったのですが
今また広げてみたら、普通に表示されてしまいました・・・orz
皆様本当にご迷惑おかけしました・・・

>472-497
バカ漫才ですか？

Excelを極めると
神になれると聞いたんですが、何か良いExcelの書籍ないでしょうか？

>>499
>>2･B

メールに添付してあるエクセルを開こうとすると開けないんですが…原因がわかりません

･デコード出来てない (→Excel関係ないのでスレ違い)
･ファイルが破損している (→Excel関係ないのでスレ違い)

>499
エクセルなんか極めなくても、早く届くジャンプをうｐすれば
神になれるよ。捕まるけど。

>501
添付ファイルを一旦どこかに保存して、エクセルの
ファイル→開く、から開いてみれ。

範囲選択した全ての数値から-100をしたいのですがどうやればいいでしょう？

全部-100すればok

量が多すぎます＞＜

対象範囲と同じ大きさの空範囲を選択して､100を入力しCtrl+Enter
そのままコピーして対象範囲を選択し､形式を指定して貼り付けで減算すればいい

又は=対象-100の式をフィルか配列数式で作ってコピーし､対象範囲に値の貼り付け

＞対象範囲と同じ大きさの空範囲を選択して､100を入力しCtrl+Enter

一カ所のセルに「100」と入力するだけでOK

（ ﾟдﾟ）ﾎﾟｶｰﾝ

失礼します。
中学校数学における文字式の計算ですが，エクセルでも
簡単な数式処理は可能でしょうか？

たとえば，

2a + 3a = 5a

などの計算をエクセルに担当させたいのです。

環境は以下の通りですので，ご回答よろしくお願いします。


【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 文字　エクセル　計算

減算出来ました
ありがとうございます

>>507
>対象範囲と同じ大きさの空範囲を選択して､100を入力しCtrl+Enter

空範囲の左上セルに
=対象範囲の左上セル-100
でCtrl+Enterでおｋ
それを貼り付けるぐらいなら>>508かね

>>510
無茶

>>513
VBAを利用してもやはり不可能でしょうか？

>>514
VBA使えば可能だよ
何ならユーザー定義関数作ってしまうと良い

誤爆ｽﾏｿ

>>515
ありがとうございます。
ネットでフリーの文字式計算用のVBAを探しているのですが，
なかなか見つからないもので書き込みをしました。

>>517
名前を忘れていました。すみません。

>>518
数式のパース処理を自作するなら、どこまで対応させるかによって
プログラムの難易度は全然違ってくる。

例えば、

3(2a - 4) + 5a = 11a - 12　とか

a^2 + a(5a - b) + ab(c + d ＋ 2) = 6a^2 + ab + abc + abd

のような計算にも対応が必要なら、必要なプログラムはかなり高度になる。

>>517
ＶＢＡを勉強して自分で作ればいいヤン

VBAは探すものではなく｢作る｣又は｢書く｣ものだからな

>>510
授業に使うならなら、これでしょ！
カルキング http://www.simplex-soft.com/

ホント便利だよ

XP、エクセル２００３、VBA初心者です。
顧客データから単票シートに呼出をしたいのですが、
規則性の無いセル（例えばF2、D6、D4、I4・・・・）が１００弱有ります。
これらのセルに別シートから取得した値（個数はやっぱり１００弱）を順番に入れるには？
以下の様に作って見ましたが、記述法がわかりません。
何か良い方法が有れば教えて下さい。

'呼び出す列を変数「yobretu」として宣言
Dim yobretu As Byte

'指定のIDに対応するデータシートの内容（操作シートに入力する値）を「yobareta」と定義
Dim yobareta

For yoburetu = 2 To 83


yobareta = Application.WorksheetFunction.VLookup(Worksheets("単票").Range("P2"), _
Worksheets("データ").Range("A:CD"), yoburetu, False)

Worksheets("単票").【この部分が分かりません】 = yobareta

Next yoburetu

マクロ作成の相談もここで良いのか？
知らなかった。

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

タテヨコ軸の入れ替えを一気にやる方法ってありますか？
セルの位置で表現するとこういうことです。

１２３４５
あいうえお
アイウエオ
ＡＢＣＤＥ
　　↓
１あアＡ
２いイＢ
３うウＣ
４えエＤ
５おオＥ

手作業のカット＆ペーストでやれるような少ないセル数ではないので、
なにか楽な方法があればと思いまして。
どなたかよい知恵がございましたらアドバイスください。
どうぞよろしくお願いいたします。

VBA初心者と言いながら､実際はVBA入門者以前だな
まずは入門者の位置までは自力で来てください
そうでないとお互い話すら伝わりません

>>525
編集⇒形式を選択して貼り付け⇒行列を入れ替えるにチェック⇒OK

>>527　サンクス！
こんな初歩的なことにいままで気づかなかった自分が恥ずかしい...................oTL

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel 行　制限、スクロールなどなど

複数のセルを選択するとき、現在既にあるデータ以上にスクロールさせると勝手に行や列が増えていく仕様がありますが、
これを無くしたいのですがどうしたらいいでしょう

仕様が気に入らないなら､Excel使うのやめればいい

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 生まれたての赤ん坊
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 チェックボックス

チェックボックスのオン・オフで飛び飛び複数行の表示・非表示の仕方がわかりません
よろしくお願いします。

飛び飛びでない場合と同じです
一つの命令では無理な場合があるので、必要なだけ分けるかループにします

相談したい事があるんですが、恐らく実ファイルを参考にしながらでないと上手く説明できません。
**.xlsをupできるところの紹介から相談させて頂いていいでしょうか？
教えていただければすぐにup出来ます。

面倒おかけしますが、よろしくお願いします。

>>533
それくらい自分で探す努力をしてくれよ。

いいから書け
書いてるうちに自分でも整理できるから

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 生まれたての小鹿レベル
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 データベース

アクセスで作ったごく単純なmdbファイルにVBAでエクセルからデータを書き込み&抽出してるんですが、

エクセルには外部データの取り込みとかMSクエリとかって機能がありますよね
あれってどういうときに使うんですが?一覧取得の際に便利に有効活用できるならしたいんですが

遅くなりました…うたた寝してしまってました。
では、とりあえず書いてます。

営業成績の表を作ってるんですが
A行：日にち　B行：売り上げ目標　C行：営業実績　D行：総売り上げ目標に対する達成率　E
行：到達率(当日までの達成率)
それぞれ上から下に伸びています。
A〜C行は純粋に数字が直接入力されていまして、
D：
=IF($D$7:D7<>0,D7/C7,"")
　　　　…
=IF($D$7:D29<>0,D29/C29,"")

E：
=IF($D$7:D7<>0,SUM($D$7:D7)/SUM($C$7:C7),"")
　　　　　…
=IF($D$7:D29<>0,SUM($D$7:D29)/SUM($C$7:C29),"")

となっています。これはこれでひとまず思い通りの答えが出てるんですが
D行/E行のそれぞれ一番下には割合（％）ではなく実際の”差”を表示させたいんです。

続きです。


D行最下列は
=D30-C30 （売り上げ実績-売り上げ目標）で、総売上目標に対しての差が計算出来るんですが

E行最下列に　”当日までの目標に対する当日までの売り上げ実績との差”　が欲しいんです。

（その日までの売り上げ）-（その日までの目標の合計）

という事になるんですが、この数式を教えて貰えませんでしょうか？
売り上げ目標を毎日一日ずつ入力していってれば何てこと無いことなんですが、
売り上げ目標は月の初めに20日分、上から全て入力された状態です。

解りにくく長い説明になってしまいましたが…よろしくお願いします。

>>537
まずは行と列を理解しようね。
　A,B,C,Dは列（A列、B列）、1,2,3,4は行（1行、2行）。
夜勤明けだから脳内変換するだけで精一杯だよ。

＞D：
＞=IF($D$7:D7<>0,D7/C7,"")
＞　　　　…
＞=IF($D$7:D29<>0,D29/C29,"")
（中略）
＞これはこれでひとまず思い通りの答えが出てるんですが

嘘つけ〜っ！循環参照になってまともな値が返るはずない。
悪いけど脳みそが半分寝てるんです。どう間違えているのか見当付きません。
修正してちょ。

＞D行/E行のそれぞれ一番下には割合（％）ではなく実際の”差”を表示させたい

一番下って言うのは、最後に入力した行と言うこと？
それなら、元の計算式が割合を求めるように作ってあるんだから無理。
もう1つIF関数を使って差の計算式を加ましょう。
条件は「下のセルが空白なら差の計算式、空白でなければ割合の計算式」

>>538
＞（その日までの売り上げ）-（その日までの目標の合計）
COUNTA関数かCOUNTIF関数でC列に何個データが入力されているのかを調べて
OFFSET関数でセルを指定して計算できる
　=SUM(OFFSET(C7,0,0,COUNTA(C7:C29),1))-SUM(OFFSET(B7,0,0,COUNTA(C7:C29),1))

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　図形　フリーフォーム

エクセルで図形を描いているんですがフリーフォームだとＡＬＴキーを押しながら書くと
セルの交点を捉えられると思ったんですが（以前はできたので）
今回描いていたらそれが出来なくなってしまいました。
直線などでは出来るのですがフリーフォームに限ってできません。
セルの書式設定などは全くいじってない状態です。
何が違ってフリーフォームだけできないんでしょうか？

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 excel　rank　色


５つランクの結果に上位３つを�@のような丸文字で
かこみたいのですがユーザー定義をどういじっても
出来ません。どなたか教えて下さいませ。

>>539
夜勤お疲れさまです。
列と行が逆さまでしたね、紛らわしくてすいません。
指摘、ありがとうございます。

やはり上手く伝えられないので、今夜帰ったらUPできるところ探してみます。

その時はまた添削お願いします。

EXCELが急に使用できなくなりました。
何か、「ディスクを入れてください」とかいう
メッセージがでます。

どういうことでしょうか？

入れろよ

>>545
おかしくなる直前の操作やWindowsの挙動など書かないと
誰も答えようが無いと思いますよ。
あと、おかしくなったのはEXCELかもしれませんが、
スレ違いだと思うのでWindowsスレとかの方が良いと思います。

>>540
フリーハンド､フリーフォームでは､元からグリッド吸着は出来ないけど
以前は出来たってのは君の勘違いだろうな
フリー線というものの特徴を考えたら､グリッド吸着は出来なくて当然だし

>>543
Office(Excel)のディスク入れろ
それでもダメならOffice(Excel)再インストール
それでもダメならOSクリーンインストール後にOffice(Excel)再インストール

ディスク無い場合の対処法は､割れユーザーを助長しない為にも教えられないので
ディスク無くてもどうにか出来る方法教えてとかは無しの方向で

XPのエクセル2000です。
Sheet２の数値をSheet３に貼り付けたいのですが、助けてください。

Sheet2の数値は、52項目の列数にデータが3行目以降につめて書かれています。
何も書き込まれていない行の１つ上までをコピーして、Sheet3に貼り付けたいです。
　　Sub データ移行()
　　 Dim 列 As Long
　　 Dim 行 As Long
　　Sheets("Sheet2").Select
　　　　For 行 = 3 To 40
　　　　For 列 = 1 To 52
　　　If Cells(行, 列) = "" Then
　　 Next 列
　　　　 If 行 <> 3 Then
　　　　　　　　Sheets("Sheet3").Select
　　　　　　　 'コピー
　　　　　　 Sheets("Sheet2").Select
　　　　　　 Rows(" 3 : 行 - 1").Select
　　　　　　 Selection.Copy
　　　　　　　　'貼り付け
　　　　　　　 Sheets("Sheet3").Select
　　　　　　　 Rows("5:5").Select
　　　　　　　 Selection.Insert Shift:=xlDown
　　　　　　　　ActiveWindow.LargeScroll Down:=1
　　　　 End If
　　 Else
　　　 Next 行
　　　End If
End Sub
　　'実行すると列に対応するForがないと言われます。

>>547
携帯からだからコードがよくわからんが
最後の「Next 行」の下の
「End If」じゃないの？

>>548
レスありがとうございます。
具体的にEnd Ifをどのように変えれば・・・・・・？

>549
文法が無茶苦茶･･･。

>>549
どうってか…
携帯からみるときちと入れ子(ネスト)されてないんだけど？

forの外にIfがないのに
end ifが出ててない？

>>547
Sub データ移行()
Dim 列 As Long
Dim 行 As Long
Sheets("Sheet2").Select
For 行 = 3 To 40
For 列 = 1 To 52
If 行 <> 3 Then
'やりたいこと
End If
Next 列
Next 行
End Sub

こんな感じ？

みなさんありがとうございます。

もう一度、修正してきます。

Forでまわしてんだから

>If 行 <> 3 Then
>End If

っていらなくね？

オートフィルタは一カ所しか作れない？

>>547
インデントをチキンと取らないと訳が分らなくなるぞ。

For 行 = 3 To 40
　 For 列 = 1 To 52
　 　 If Cells(行, 列) = "" Then
　 　 　 If 行 <> 3 Then　 '←不要
　 　 　 　 Sheets("Sheet3").Select　 '←不要
　 　 　 　 Sheets("Sheet2").Select
　 　 　 　 Rows(" 3 : 行 - 1").Select　 '←" 3 : " & 行 - 1
　 　 　 　 Selection.Copy
　 　 　 　 Sheets("Sheet3").Select
　 　 　 　 Rows("5:5").Select　 '←上と１行にまとめる
　 　 　 　 Selection.Insert Shift:=xlDown
　 　 　 　 ActiveWindow.LargeScroll Down:=1
　 　 　 End If　 '←不要
　 　 Else　 '←不要
　 　 　 Next 行　 '←不要
　 　 End If
　 'ここに Next が無い
'ここにも Next が無い

>>556

ありがとうございます。
手直ししてみます。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】演算子　含む

AN２が"A"or"B"を含む場合には○○をするといった構文を作りたいのですが、
どのような構文になるんでしょうか？

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

Excel2007の97-2003形式のファイルで作業してまふ。
機械の運転時間合計を計算したいのですが･･･。
例えば、10000時間＋110時間の単純な和算ですが出来ません。
セル書式設定は　[h]:mm　になっているのですが、
数式バーには　1900/1/6 10:30　のような西暦表示になっています。
10000時間っていうのが、Excelでは認識されていないのでしょうか？

>>558
If InStr(AN2,"A") > 0 or InStr(AN2,"B") > 0 Then
'やりたいこと
End If
とか

If AN2 Like "*[AB]*" Then
'やりたいこと
End If
とか

>>559
時間も日付もシリアル値という同一の表現で表しているExcelの都合でそうなってるのだと思います
計算結果はあってると思いますけどどうでしょう？

>>558 チョット不細工だな･･･。
=IF(AND(ISERROR(SEARCH("a",AN2,1)),ISERROR(SEARCH("b",AN2,1))),"無い","在る")

遅くなりましたがupしたので見ていただけますでしょうか？

ttp://www.uploda.org/uporg819433.xls.html
コメントに「Excel総合相談所 56の>>533です」とあるファイルです。passは無しです。

丸投げうぜえ

ttp://www.uploda.org/uporg819460.xls.html

すいません、式がコピー出来てなかったので再upさせてもらいました。
次のは計算式も説明も書いてありますので、何卒よろしくお願いします。

>>565
D1=IF($C$2:$C2<>0,C2/B2,"")
E1=IF($C$2:$C2<>0,SUM($C$2:$C2)/SUM($B$2:$B2),"")
E25=SUM(B2:INDIRECT("b"&(COUNT($C$2:$C$24))+1))-SUM($C$2:$C$24)
でどうだ？

>>565
>>564の
E25=SUM($C$2:$C$24)-SUM(B2:INDIRECT("b"&(COUNT($C$2:$C$24))+1))
に訂正

>>539に答え書いてあんじゃん

最初の質問と範囲が違うから訂正するとこんな感じか？
=SUM(OFFSET(C2,0,0,COUNTA(C2:C24),1))-SUM(OFFSET(B2,0,0,COUNTA(C2:C24),1))
>>567でもOKっぽいけど

せっかくレスくれてんだから試せばいいのに。

ごまかし手法で試したが上手くいかないのでお助け
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 凡例　順序、凡例　順番

データ系列Aとデータ系列Bがあって、AはY主軸、BはY第軸、X軸の項目は同一
Aは折れ線（または散布図）、Bは棒（縦）というグラフを作成したいのだけど
凡例がグラフの優先表示順序になってしまい、上からBの凡例、Aの凡例となってしまう

オートシェイプ等無しで、どうにかして凡例の順序をA、Bと並べたいのだけど
どうにかなる手立てはないでしょうか。

イメージとしてはこんな感じ
http://www.uploda.org/uporg819554.jpg

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 NO
【4 VBAでの回答の可否】 YES
【5 検索キーワード 　 　 】 セル　選択

セルの上にオートシェイプ等を置くとその下のセルがうまく選択できません。
これをショートカットキーか何かを押しながらだと、下のセルを選択できるといったことはないでしょうか？

いまは隣のセルを選択して、カーソルキーで移動させています・・・

Excel2003を使っています。
計算式で出た値の小数点以下を切り捨てしたいのですが、
どうすればいいのでしょうか？
そのままにしていると四捨五入されてしまいます。
（もうシートに数が入力されてしまっているので・・・）

>>572
マルチは止めようね。
アッチのスレで答え貰ってるヤン。

>>573
すいまそん
明日の会議にもって行きたい資料のデーターを作成中のため、
めっちゃ焦っているのです・・・

>>574
そんな個人の事情が人に迷惑をかけてもいい理由になるのかい？

Excel2002です。
ショートカットキーが思い出せず、検索してもヘルプを見ても
いまいちわかりません。

検索しながらデータをいじりたいのですが、
途中でマウスを使いたくありません。
検索ウィンドウからデータの方にショートカットで移動するには
どうしたらいいんでしたっけ・・・どなたか教えてください。

[ctrl]+[f]かな

＞577
わかりにくくてすいません。検索ウィンドウの出し方ではなく、
検索ウィンドウが出ている状態で、マウス無しで
データと検索ウィンドウを行き来したいんです。

Alt+Tab と Alt+Shift+Tab
で､検索ウィンドウとワークシートを行ったり来たり出来る
当然Excel以外のウィンドウも切り替え対象になるけど

Ctrl+F と Esc
で､検索ウィンドウを出したり消したり出来る

＞579
なるほど。ほかのアプリ落としときゃいいのか。
ありがとうございました！！

>>575
性格悪いなあ〜。別にいいじゃないか。

Ｅｘｃｅｌ2007で、選択した範囲のセルの色が薄くて、選択したかどうか分らないんですけど…

何か解決方法ありませんか？

A2のセルの中の任意の数字（例1000）をマクロ内の変数Int_Aに代入したいのですが
どのようにすればよいのでしょうか？
マクロの記録からA2の数字をコピーすると
Range("A2").Select
ActiveCell.FormulaR1C1 = "1000"
というように1000というように一意に決まってしまいます。
これを
Range("A2").Select
ActiveCell.FormulaR1C1 = "A2"
Int_A = ActiveCell.FormulaR1C1
のように書きたいのですが。どなたかお願い致します。

Int_A = range("A").value

じゃいかんの？

>>581
質問者本人乙
(どうせ口先では否定するだろうけど)

>>581
>>3

>>569
似たような事やったことあるが無理
仕様上グラフ内での表示面積が大きい種類が凡例上位に来る

面、棒、線、散布　みたいな感じ

Excel2003で、ハイパーリンクを設定した文字の上に（アクセスするのではなく）
カーソルをもっていくと文字の色が変わるようにしたいんですが。
もしできるようでしたら教えてください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 いいえ
【5 検索キーワード 　 　 】 オートシェイプ

オートシェイプで円や線を書くと、2つめ書くのにいちいちもう一度選択し直さなければなりません。
繰り返して同じオートシェイプを使うのに、何かショートカットキーはありませんか？

ここでいいのかわかりませんが質問します。
Excelに代わるソフトを探しています。
Excelの行数（256?）の制限がうっとうしいのです。
512行程度使えるもので、多少の計算ができるものあればなんでもいいのですが、
ご紹介いただけますでしょうか？
そんなソフトがないならないの助言でも結構です。

エクセルの行数が２５６って、いつのの話？

>>590
普通につかえるし、列の間違いなら2007使え

>>590
???Excel2000でさえ65536行も使えるというのに･･･。

590です。

列の間違いでした。現在2003を使っています。
2007ですね。

>>589
コピペしたらダメなん？

>>589
ヒント：ダブルクリック

>>590
うちの会社は見積もりにExcel2003を使っているけど、セルへの代入は
VBAを使って記述してるよ。何段にも表を下に重ねていけば横はそんなに
いらないしな。いざとあればページを増やせばいいし。

【1 OSの種類 .】 WindowsXP　　　【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい　【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 「excel 初心者」「excel　オートフィルタ　結合」

すいません。下記のような、回答者の名前つきのＱ＆Ａがありまして
「回答者」の行は、「Ｑ」が入っている行と「Ａ」が入っている行を結合してあります。
（Ａ2とＡ3、Ａ4とＡ5、Ａ6とＡ7・・・がそれぞれ結合してあります）
　　　　Ａ　　　　　　　Ｂ　　　　　　Ｃ
１│回答者　　│　　　　　│質問・回答内容
　├────┼────┼──────┼
２│田中　　　│Ｑ　　　　　│今何時？　　│
　│　　　　　　├────┼──────┼
３│　　　　　　│Ａ　　　　　│５時です　　　　│
　├────┼────┼──────┼
４│佐藤　　　│Ｑ　　　　　│何する？　　　　│
　│　　　　　　├────┼──────┼
５│　　　　　　│Ａ　　　　　│何も。　　　　│
　├────┼────┼──────┼
６│田中　　　│Ｑ　　　　　│いくら？　　　　│
　│　　　　　　├────┼──────┼
７│　　　　　　│Ａ　　　　　│２００円です　│
　├────┼────┼──────┼
この時、「回答者」でオートフィルタをかけて「田中」を指定してもＱの行だけが出てきてしまいます。
　　　　Ａ　　　　　　　Ｂ　　　　　　Ｃ
１│回答者　　│　　　　　│質問・回答内容
　├────┼────┼──────┼
２│田中　　　│Ｑ　　　　　│今何時？　　│
　├────┼────┼──────┼
６│田中　　　│Ｑ　　　　　│いくら？　　　　│
　│　　　　　　├────┼──────┼
「田中」を指定したときに、田中のＱ＆Ａを両方表示できる方法はありませんでしょうか？

>>598
実現したい目的に対する表組みの設計がそもそも間違えてないか？
そっちの改善を検討した方がいい。

例えば

A列：回答者
B列：Q
C列：A

とするとか。

うんうん､【閲覧表作成】の思考回路で【計算表作成】をしてるよね
表だけならワープロでもCADでもDrawソフトでも書けるのに
なぜ表計算ソフトというものが存在し､これほど多く使われているのか考えてみよう

確かにそうですね・・・一番最初にこのフォーマットを作った人を恨みます。
（私は前任からこの表を引き継いだだけなので、さっさと作り変えます）

一応、対処法は自分で思いついたので自己レスしておきます。

Ｄ2に「=A2」を入力して一番下までオートフィル、で、Ｄ列でオートフィルタをかける

すいません
人の作った表をマウスでｸﾘｸﾘスクロールさせてると、
ある行に来たところで行番号と列記号の部分が
ﾋｭｯっと細くというか小さくなることがあるんだけど
これは何だかわかりますか？

困ってるということではないんですが、
いつも気になってます。

590です。

>>597
今回の場合、横をかなり使うから問題なわけでして。
別シートにすればいいのだが、やりたいことは”昇順に並び替え”とか。
これについては、”すべてのシートを選択”しても
”昇順に並び替え”の機能を使うことができない。
これができれば512列もいらないのだが。

ちなみに2007は16000列（100万行）まで使えるようです。

>>603
Kingsoft Office

誰か教えて下さい
小数点のだしかたなんですが
例えば
1857
1525
5263
と打ってセルをまとめて
小数点をそろえて
185.7
152.5
526.3
な感じにする事はできますか？
やり方が解りません

>多少の計算ができるものあればなんでもいい

>やりたいことは”昇順に並び替え”とか

これを条件の後出し といいます。

>>605たとえば･･･
　　　A　　　B
1　1857　　10
2　1525　　10
3　5263　　10

B列(の必要範囲)に「10」を入力
B列(の必要範囲)を選択⇒コピー
A列(の必要範囲)を選択⇒編集⇒形式を選択して貼り付け⇒貼り付け「すべて」と演算「除算」をチェック⇒OK
･･･とすると

　　　A　　　B
1　185.7　　10
2　152.5　　10
3　526.3　　10

ってな感じになるからB列を削除する。

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

イベントマクロが実行されるタイミング等に関する質問をさせてください。

セルに値を入力するとシートイベントマクロが実行されますが、

1.セルをアクティブ（キャレットが出ている状態）にして、何も入力せずにエンターを押しても
　イベントマクロが実行されます。
2.また、値のクリア等の処理を行っても実行されます。

これはエクセルの仕様だと思いますが、マクロを用いて上の1.2.の場合のみ
ｲﾍﾞﾝﾄマクロを実行しないようにする方法がもしあれば、教えてください。
どうぞよろしくお願いします。

>>604
Microsoft Office 2003と同じ仕様で出来ない。
が、Kingsoft Officeに感心した。

>>608
Intersect

>>607さん

出来ましたo(^-^)o
ありがとうございました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　計算　の時だけ

[A:1]に入力した品物の単価を[B:1]に表示させて[C:1]に個数を入力し、
[B:1]の値と[C:1]の数字の計算結果を[D:1]に表示させてるのですが、
[A:1]に入力した文字が品物以外の物で単価がない時、[B:1]・[D:1]に何も表示させない方法ってありますか？


[A:1]はドロップダウンリストから選択
[B:1]=IF(A1="","",(VLOOKUP(A1,C60:D108,2,0)))
[C:1]は直接入力
[D:1]=IF(COUNT(B1:D1)=0,"",SUM(B1*C1))

これだと[A:1]が品物以外の場合、[B:1]・[D:1]に0と表示されています。

○　[D:1]=IF(COUNT(B1:C1)=0,"",SUM(B1*C1))
×　[D:1]=IF(COUNT(B1:D1)=0,"",SUM(B1*C1))
でした。。。

=IF(B1*C1=0,"",B1*C1)

>>614
なるほど・・・。sumは簡単な計算なら削ったりもできるんですね。
ありがとです。

>>612
A列はリスト以外入力できないようにしておけばOK
B1にゼロが出るのはリストにある品物で表に単価が入って無い物だけだと思うけど･･･一応
B1=IF(OR(VLOOKUP(A1,$C$60:$D$108,2,0)=0,A1=""),"",(VLOOKUP(A1,$C$60:$D$108,2,0)))
D1=IF(SUM(B1)*C1=0,"",B1*C1)
　　　　↑SUMがあるのはB1=""の場合にB1*C1をやると#VALUE!がでるハズなので予防策。

できました！
ありがとです。

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

初めまして、ショートカットキー（？）について質問させてください。

連続して入力されている縦列で「Alt」+「↓」を押したときに、そのセルまでの
入力データがリスト化されてたものが表示されます。
ですが、このときに途中で空白セルがあるとそこでリストは途切れるみたいです。
これを回避したいのですがどのような方法があるでしょうか？

空白セルに「’」や「スペースを入力する」という方法は無しでお願いします。


これから出勤しますのでご返事は深夜になると思います。
分かりにくい文章で申し訳ありませんが、よろしくお願いします。

すいません、書き忘れてました。

「入力規則」でリスト化したものを「Alt」+「↓」で表示させるのではなく、
あくまでもそれまでのセルに入力したものをリスト化させる、ということでお願いします。

>>618
無理

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

セルに入力した数値をある桁数で強制的に切り捨てしたいのですが
関数を使わず、入力した元のデータ自体も切り捨てるにはどうすりゃいいんでしょう？

ex.
「0.12345」と入力すると、セルの表示も数式内も「0.123」になる

っと、自己解決した

ツール→オプション→計算方法→表示桁数で計算する
だった

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

A列に順番に番号が入っている状態でB列にA列の値を引用した文をつくりたいのですが、B列にどんな書き方をすれば良いのか分かりません。
具体的には下のようなB列をつくりたいのですが、うまくいきません

A列　　｜　　B列
一郎　　｜わたしは一郎です
裕子　　｜わたしは裕子です
・　　　　　　　・
・　　　　　　　・　　　　（以下延々とデータが続く）

自己解決は目出たいが、ちゃんと【切捨て】になっているんだらうね。

例題を元に

一郎さんが１行目なら
="わたしは"&A1&"です"

であとはコピーすればおｋ？

文字の連結は&を使用

>>625
できました！ありがとうございました
VBAでは見慣れた”や＆でしたが、普通のシートで使うことを思いつきませんでした・・・

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ピボットテーブル グループ化

最近使ってないファイルを整理(思い切って削除)するため、
各ファイルの参照日と更新日を調べています。
　A列：ファイル名　B列：直近の参照日付　C列：直近の更新日付
さらに、そもそもディレクトリ自体使われてるかどうかの目安として
「最近のアクセス時期」をまとめる必要ができました。

D列には「最近使った日」の目安として
　=MAX(B1,C1)
（1行目のとき）としました。
最近のアクセス時期をまとめる分析のため、
　列：指定なし　行：D列　値：A列(データの個数)
というピボットテーブルを作りました。
ここで、ピボットテーブルの行を月ごとにまとめて
　5月中に使ったファイルは○個、最近使ったのが4月のファイルは○個、3月のは……
としたいのですが、「グループ化」のピボットグラフメニューで月ごととかそういう選択ウィンドウが
開きません。
関数の戻り値はピボットテーブルにとって日付と解釈されない、と言うことなのでしょうか？
どうにかして日付として解釈させる方法はありませんか？

＞最近使ってないファイルを整理(思い切って削除)するため、

に対して、やってることの大半が無駄な点は気にしないのか。

フォルダを詳細表示にして日付順に並び替えれば使ってないファイルがフォルダの中で一箇所に集まると思うのは俺だけか？

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

どうぞよろしくお願いします。

１２
３３
４５
９２
４３
２１
　・
　・
　・

こんな感じで並んでる、ある列の各データの対数（LN）をとって出力させたいんですが、
これを一気に計算させる方法ってないでしょうか？
今までは一つ一つの項に関数を手打ちしてました。助けてください。

>>629
それ以前に、Explorerのファイル検索で、ファイル更新日や
アクセス日を条件に全ドライブ検索をすれば良いだけの話。

会社で色々試してましたら自己解決致しました。
お手数おかけしました。

ブック単価表にワークシートａがあり、Ａ列に品名、Ｂ列に単価がはいり
ブック売上票にワークシートｂがあり、当日売上のデータがＡ列に品名、Ｂ列に個数がはいっているとき、
ブック売上票のＣ列に対応する単価を表示させたいのですが、findを使うだろうというぐらいしかわからないこと、ファイル関係の表示方法もわからないので、vba丸投げでお願いします。投稿は深夜となりましたが日中に相手にしてください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】？
【4 VBAでの回答の可否】？
【5 検索キーワード 　 　 】折れ線グラフ（？）


折れ線グラフの作り方について、質問です。

ひとつの データは、調査年度が1978年から５年ごと。
もうひとつのデータは、調査年度が1980年から５年ごと。

これを、ひとつのグラフのなかに納めることはできますでしょうか？
よろしくお願いいたします。

解決しました。ありがとうございました。

>>634
散布図

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 ユーロ?　レート変換
単価×数量をユーロに変換して、３桁でカンマ区切りで少数点第２位までの
計算方法を教えて下さい。

>>637
＝ＲＯＵＮＤ（単価×数量×ユーロレート，２）
ｏｒ
＝ＴＥＸＴ（単価×数量×ユーロレート，”＃，＃＃＃．００”）

>>635
誰も返答してくれなかったね。
あくびが出るほど単純な質問だったの、気づいた？

一通り関数見てみましたが、それっぽい物が見つけられないので質問します。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】 Excel 関数 Count 文字数

セル内に「&」がいくつか任意の文字と一緒に入っている。
&の数を出すにはどうすればいいでしょうか。
A1の内容 top&no&id&&&
A2の内容 top&&&&&

=LEN(A1)-LEN(SUBSTITUTE(A1,"&",))

>>640
あたた、説明文入れるの忘れた

SUBSTITUTE関数で＆を空白に置き換えてLEN関数で元の文字列の長さと比較する

VBAとか使ってると
(A1,"&",)みたいな書き方は気持ち悪い
(A1,"&","")って書きたくなる
この方が可読性上がるし

>>641
あ。なるほど〜〜！！！！
そういう考え方か・・・
ありがとうございました。

>>627
現実的な回答は皆から寄せられているので、あくまで手法として
元データのD列って日付の書式設定してる？

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

Sub Macro3()
Workbooks.OpenText Filename:="C:\1.txt", StartRow:=1 _
, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(10, 1 _
), Array(19, 1), Array(28, 1), Array(35, 1), Array(40, 1), Array(45, 1), Array(50, 1), Array _
(55, 1))
Columns("B:I").Select
Range("I1").Activate
Selection.SpecialCells(xlCellTypeConstants, 22).Select
Selection.EntireRow.Delete
End Sub

マクロの記録で上のを取り込んだのですが
Selection.EntireRow.Delete
ここの部分で
実行時エラー1004
重複する選択範囲に対してそのコマンドを使用することはできません
ってエラーが出ます。
記録したマクロをいじってなくてもエラーが出るのですが解決策はないですか？

やりたい操作としては
1.txtをスペース区切りで開いてB:Iの中で定数の数字以外を選んでその行全体を削除
です

一時変数を使わない整数の入れ替えだと思うんだが
#define swap(a,b) a^=b^=a^=b
これってVBだとどう書くの？

>>647
そういう関数作ればいい
当然関数の中では一時変数使うけど
>>647だって内部的に見えないところで一時変数使ってるわけだし

>>647
なんかそれと意味は違うかも知らんけど

a = 5
b = 2

b = a + b
a = b - a
b = b - a

突然すみません。
Ｅｘｃｅｌの関数計算のところなんですが、ＩＦの操作の仕方が全く分かりません。

成績を出すやつなんですが

１００〜９０（点数）の人数を出すためにはどうしたらいいのでしょうか？

>>650
関数はSUMIF、条件は90以上

あれれ？

countifで
=countif(範囲,">=90")
じゃないの？

>>648
>>649みたいな方法を探してました。

countifみたいね。

つ　http://digipot.web.infoseek.co.jp/itiran01.html#countif

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

ActiveSheet.ChartObjects("グラフ 1").Activate
これのグラフ 1のところの1を変数にしたいのですがどう書いたらいいんですか?
("グラフ " & F & """)
とかいろいろ試したけどエラーになってしまいます

634です。
>>636

ありがとうございました。御礼が遅れ、失礼いたしました。
さっそく、トライします。

自己解決
ActiveSheet.ChartObjects("グラフ " & F).Activate
でいけました
変数は""で囲まなくてもよかったのですね

>>645
D列の書式は、ユーザ定義で yyyy/mm/dd としていました。
日付書式から選択する必要がある、と言うことでしょうか。試してみます。

現実問題として作業手順がおかしい、という皆様の指摘も尤もです。
リモートファイルの一覧だけ渡された、とか
実は削除以外にもオプショナルなアクションを起こす場合がある、とか
余分な条件があったので、回りくどい手順をかける必要がありました。
余分な条件を省いて状況説明をしようとしたら、かえって不自然になってしまいました……。

>>633です。どなたか、教えてください。よろしくお願いします。

>>659
だれも相手にしてくれないね。


vbaを使いたいの？
vlookupにしときなさい。悪いこと言わんから♥

普通、品名以外に品コードを使ったりするんだろうけど。

>>660
そのやりかたじゃ、商品マスタの単価が変化した場合にエラーが起きる。
(過去の売上金額が現在の単価をベースに計算されちゃうから)

それを防ぐために、売上日ごとの単価情報を複製保持させておきたいと
いうことだろう。

俺も回答する気はないが。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel200
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】ウェーバー比　グラフ　Excel

「ウェーバー比のグラフの作り方を教えてください。」

生物の授業で圧覚のデータを取りました。
基礎刺激量ｘと変化量ｙのデータは揃ったのですが
ここからウェーバー比のグラフを作らなければなりません。
ウェーバー比は、【y/x＝（ある範囲で）一定】という意味だそうです。
ノートには
y=ax+b（ウェーバー比）、γ＝0〜1（相関関数）
とメモしてあります。

グラフは、分布図の点の中に比例の直線が描かれているようなイメージになるようなのですが
エクセルでどう作ればいいのかわかりません。
授業ではマック＋ロータスを使っていたようなのですが…エクセルでもできますよね？

実験自体よく理解してないかも知れず、意味不明な説明だったらごめんなさい。
脳内補完できる方、よろしくお願いいたします。

データがそろったのなら範囲を選択してグラフウィザードで散布図を選んで終わりじゃないの？

>>660 >>661 もちろん、実際には品コードもあります。品名も品コードも扱いは一緒だと思って設問にしましたが、型が異なるのに気づきました。
>>661 その通りです。
設定は一番いい方法と思ったのですが、私のようにVBA入門者レベルでは無理ですね。他の方法を含めて、土日で試行錯誤やってみます。
どうもです。

>>663
散布図は作れたのですが、
直線の出し方が分かりません。
手書きで書き加えるのかなぁ…とも考えたのですが
意味もよく分かっておらず；

>>664
1から作ったら苦労するだろう。
サンプルみたいなもので良ければ作ろうか？

【1 OSの種類 　 　 　   】 Win2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 その名前は正しくありません

「困ってる事象、やったこと」
名前の定義が削除できません。（エラー：その名前は正しくありません）
定義された名前は文字化けしているようで"・・・印"と表示されています。
Sub ClearAllNames()
　Dim objName As Name
　For Each objName In ActiveWorkbook.Names
　　objName.Delete
　Next objName
End Sub
↑試しましたがうまくいきません（同様のエラー発生）。

「背景、解決したいこと」
社内で使いまわされたファイルのようで、かなりの名前が定義されて意味不明の
外部リンクが残っています。（ファイルを開くときに確認をなくしたい）
上のマクロできれいになるものあるのですが、エラーも多発します。
定義で使えない文字種であるケースが多いのですが、多くは手で削除できるのですが、上のケースはなんともなりません。
そもそも、なぜファイル作成者が意図しない名前定義がされるんでしょうか？
（社内的には図のリンク貼り付けを多用する傾向があります）
よろしくお願いします。

>>661　さん、お願いします。
サンプルになるのを求めて、ずっと検索していましたがどうも合わないものしか見つかりませんでした。よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　連続　データ　法則

皆様、お知恵をお貸し下さい。

BOOK1のA列に1，2，3，・・・・・・500までと連続したデータが入ってるのですが、
それをC列に1，1，1，2，2，2，3，3，3・・・・・・500，500，500，と３行ずつに一気に貼り付ける方法をお教え頂きたく書き込ませて頂きました。
何卒よろしくお願いいたします。

>>665
近似曲線のことか?
使い方はヘルプを参照してくれ

>>668
天麩羅使わない人はスルーがデフォらしいです。

ご愁傷様でした。

度々失礼します。
今あちこち調べているのですが、
ttp://www.datamining.jp/jirei/j001_frame.htm
によると
『直線の式と相関係数を求めると』、書きたかったグラフができそうです。
…が、その意味が分かりません…
散布図から近似曲線(直線)を追加するのとも、違うのでしょうか。

新しく購入したPCに、Excel 2003をインストールしたのだが、
以前のExcel 2003の設定や環境をそのまま、持っていきたい。

バックアップすべき、ファイル、レジストリを教えてくれ。

>>671
このスレにそんな原則はないよ。「できれば」（伝わり、回答しやすい、わかりやすいように）点プレを
使ってねと書いてある。これでも、伝えたいことを正確にするために、設定を単純化して伝わりやすくす
るのに数日かかった。点プレでxp 2003等書いても、この場合、スペースの無駄と思っただけ。

前の633の間違い

相関係数はCORREL関数で求められました（0〜1の範囲でした）。
しかしどうやらaとbの定数を求めなければならないようで？
近似曲線(線形近似)のオプションで表示した数式のab部分＝定数ってことでいいのしょうか
なんだか数学できないっぷりを露呈してるだけな気が…

>>674
>>1
★4 質問テンプレ(雛形)は必須じゃないけど、
　　　OSやExcelのバージョン､VBAの可否など(下記テンプレ1〜4の情報)は『必須情報』

バージョンによって使える機能・関数・メソッドは異なります。
不要な情報ではありません。
お願いする立場なら、指摘には（間違ってると思っても）従うほうが良いのでは？

>>674　文句だけ言うのは性に合わないので
Option Explicit
Public buf As Variant, tkrws As Long
Sub tanka_torikomi()
  Const tankafile = "C:\Users\kakui\Desktop\単価表.xls"
  Dim myrng As Range, i As Long
  Workbooks.Open Filename:=tankafile
  Set myrng = ActiveWorkbook.Sheets("a").Range("A1").CurrentRegion
  tkrws = myrng.Rows.Count: ReDim buf(tkrws, 2)
  buf = myrng: ActiveWindow.Close
End Sub
Sub tanka_syuturyoku()
Dim lc As Long, i As Long, mxlc As Long
  With ThisWorkbook.Sheets("b")
    mxlc = .Cells(1, 1).CurrentRegion.Rows.Count
    For lc = 1 To mxlc: For i = 1 To tkrws
      If .Cells(lc, 1).Value = buf(i, 1) Then
         .Cells(lc, 3).Value = buf(i, 2): Exit For
      End If
    Next i: Next lc: End With
End Sub

>>669
ｃ列にこれを張る
=INDIRECT("A"&ROUNDUP(ROW()/3,0))

>679
有り難うございます。。。感謝です。

ちなみに別シートに貼り付ける場合だと結構複雑な関数に為るのでしょうか？

>>668
一眠りしてからサクっと作ってみた。
使い方は「売上票」シートの「使い方」シートを参照。

http://ddo-jp.ddo.jp/download.php?no=1370

ダウンロードキーは「123」

>>677
>お願いする立場なら、指摘には（間違ってると思っても）従うほうが良いのでは？
お前は囚人か？

正直、ここの回答者は呆れるほど低レベルな連中も多い。
上から目線で偉そうに受け答えしている奴らほど役に立たない。

そんな状況で
＞お願いする立場なら、指摘には（間違ってると思っても）従うほうが良いのでは？

なんて意見を持ち出したら、オバカさん達が増長して、スレがだんだん腐っていく
だろうな。

むしろ、回答する側も読解力、思考力、問題解決能力を養う場だと考えて、
質問者からのフィードバックを真摯に受け止めた方がお互いに建設的じゃないかね。

>>682-683
確かに従う必要のない指摘が大半ですね^^；
正しくは、
『万が一 自分のほうが間違ってた時印象が悪いので、（馬鹿な指摘だと思っても）反論する時は腰を低く』
ですかね

お願いする立場なら、指摘には（”自分では”間違ってると思っても）従うほうが良いのでは？
”間違ってる、という考え自体が間違ってることだってよくあることだし”

こういう補完をしたんだけど、違うのか？

リロード忘れたときに限って一拍遅れのレスになる、これは間違いなく孔明の罠

>>680
indirect は利用価値高いので、しっかり理解するために、ヘルプを見て自分で考えてみてください。
なお、
"A"&ROUNDUP(ROW()/3,0)は、”A1”の形でアドレスを文字列として取得しています。

この場合はINDIRECTよりもOFFSETの方がいいけどね
OFFSETは相対指定だから初心者には難しいのかな？

>>668
さっきアップしたファイルには軽いバグがあったので修正版を再アップ。
こっちを使って。

http://ddo-jp.ddo.jp/download.php?no=1387

ダウンロードキーは相変わらず「123」

あと、同一ブック内に複数の売上票シートを持てるように改善を図った。
(シートの複製は手作業で)

>>661さん、>>677さん　他の方もありがとう。
>>661さん　ダウンロードさせてもらいました。最初のをＤＬするとき、ＤＬマネージャーが起動しなかったことから
変だなと思いスキャン等していました。マクロウィルスが怖いのでＤＬするかどうか迷っていた最中に前のを削除され
たことがわかりました。ＤＬは自己責任で行うものとわかっていますのでＤＬさせてもらいました。
私は無神論者ですが、他に言葉がないので、すみません。「貴方に神のご加護がありますように！」と感謝させてください。
これを機会に勉強に励みます。重ねて、ありがとう。

わたし関係ない者ですけどあなた、律儀な人ですね。
きっといい男でしょう。

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


例えば　2,730:314:06:44:07　という数字を

2730年314日06時間44分07秒と表示するには書式をどのように設定すればよいでしょうか？

637です。
お礼を言うのが遅くなりましたが、
>>638さん　どうもありがとうございます。

>>692
できません

>>689
関係ないけど見させてもらった。

あなたってカコイイね・・・。

2,730:314:06:44:07 は数字ではありません。

>>661 さん　
私のレベルを見破って、完璧な説明と結果のものをありがとうございました。
とても、私が半年かけてもできないものです。

追記ですが、いろんな方に役立つと思います。最初のと違い、無制限のＤＬ可とされたので自信も伺えます。
私はマクロウィルスのチェックはＡＶＳで行いました。これは、無料ですが、有料ノートンのでも排除でき
なかったトロージャン・スパイウィルスを退治したものですので、ノーウィルスとしてＤＬも安心して行え
ます。
本当にありがとうごさいました。

【1 OSの種類 　 　 　 　 .】 WindowsXP SP1
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 どちらかというと否だけど、必要に応じて
【5 検索キーワード 　 　 】 excel 連続 印刷
Excelで特定のシートの一部のデータのみ書き換えて連続して印刷するにはどうすればよいのでしょうか？
具体的には、「生徒ID、生徒名、科目1、点数、科目2、点数・・・」となっているデータ用のシートと
あるセルに生徒IDを入力し、それをもとに先のシートからデータを取得して印刷用に体裁を整えた
出力用シートがあるファイルで、
出力用シートにて順繰りに全員分の成績表を印刷したいのです。
生徒IDは必ずしも連番ではなく、飛び飛びになっていたりするので、
データ用シートの生徒IDの列を1行目から順番に参照して印刷する、といったことは可能でしょうか？

以前VBAを本を参照しながらいじったことはありますが、
PHPと違ってどうにも複雑でてこずりました。
単純な記述であれば対応できるとは思いますが、どなたかアドバイスよろしくお願いします。

>>698
VBAを使えば順番印刷までできる。
１つ１つ手動で書き換えるのであれば、関数でも出来ないこともない。
エスパーでないのであなたの文面からではこれ以上のことは言えません。

>>692
対象文字列の書式（文字数）が一定なら、個々に抽出して文字を再構築すればできるが、汎用性はきわめて低いよ。
＝LEFT(対象文字列,5)&"年"&MID(対象文字列,7,3)&"日"&MID(対象文字列,11,2)&"時間"&MID(対象文字列,14,2)&"分"&RIGHT(対象文字列,2)&"秒"

【1 OSの種類 　 　 　 　 .】 WindowsXp SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ｢マクロ・ボタン・withevents・command・click｣

印刷処理を行うコマンドボタンを7つ作りました。
（ツールボックスのボタンを使ったので、コントロールオブジェクト?）

1つのコマンドボタンで
この7つのボタンを順次クリックしていく処理を行わせたいです。

7つのボタンに記述したコードをすべてコピーして、
1つのボタンにすべて貼付ていけば事たりるのですが、
今後ボタン処理の変更があった時、手直し作業が重複してしまうので避けたいと思っています。

「マクロの記録」で調べようにもデザインモードになってしまうので処理の記録ができません。

どなたかお願いします。。

サブルーチン化するか呼ぶか

>>702

ググってみました。
おかげで解決しました。
『Load』でOkですね。

「サブルーチン」は分からなかったのですが、
「呼ぶ」で「コントロール配列」とか繰り返し処理での「Load」という
キーワードが手に入りました。
多謝！

>>703
解決したんならもういいんだが一応

印刷サブルーチン{
　　印刷処理Aを実行
　　印刷処理Bを実行
　　印刷処理Cを実行
　　　：
　　印刷処理Gを実行
}

簡単に説明したらこんな感じ。
７つの処理を１セットにしちまうの

VBA覚えて日が浅いんだけどメインとかサブみたいに
プロシージャは分けて書いたほうがいいの?
今はひとつのプロシージャにずらーっと書いていってるんだけど
処理が重くなったりするのかね?

サブルーチンつながりで質問なんだけど変数に入ってる数値を
別のプロシージャの変数に渡す方法を教えてください

Sub test1()
dim a as integer

call test2(a)

end Sub

Sub test2(dim a as integer)

〜

end Sub

むかしMSXでbasicをかじったんだけど、VBAには行番号がないのでびっくりしたな。

でもちゃんと機能するから、別に必要ないものだったんだなあ。

懐かしいな。
X68000のHu-BASICでは組みようでは行番号はあまり意味を成さなかったな。

思い出しついでに、X68000のSX-Windowシステムはデザインが秀逸だったな。
あの使い勝手も画期的だったし。

>>705
> プロシージャは分けて書いたほうがいいの?
一概に良い悪いってものじゃない。
分けるべき所､分けない方が良い所は､自分で判断できるようになるしかない。

> 処理が重くなったりするのかね?
一応プロシージャ分けない方が速い軽い。因みに同じ処理を100回繰り返す場合も､
実はループ使って3行で書くより､ずらずらと100行書いた方が速かったりするが
速いから良いコーディングだとは言えない。

>>706
> Sub test2(dim a as integer)
dim要らない､というか入れちゃダメ。

それとCallは使わない方が基準となるので､人に教える場合
特別Callを使う必要が無い処理では使わない方がいいよ。
test2 a
俺も自分だけで使う場合は､可視性向上のために不要でもCallで呼ぶことが多いけど。

【1 OSの種類 　 　 　 　 .】 Windows　ﾋﾞｽﾀ
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 いいえ
【5 検索キーワード 　 　 】 excel

名簿を打ち込んだのですが、あいうえお順やローマ字順に並べ替える方法はありますか？

>>710
> あいうえお順
作業列にフリガナ出して､その列で並び替え
フリガナの出し方はヘルプ参照。

> ローマ字順
Excel組み込みでそういう機能が無いから､たぶんVBA使わないと無理。
VBA使えば一応｢漢字→ローマ字変換｣も可能なので､フリガナと同じく
作業列にローマ字で書きだして並べ替えるだけだが。

2007は使ってないから､もしかしたらそういう機能付いたかも知れないけど。

>>710
そんないい加減な質問の書き方で、的確な回答がもらえると思わない方がいい。

>>705
メソッド分割はVBAに限った話じゃなく、どんな言語を使っていても
必ず検討が必要になる話題で、その考え方には、言語に依らない
共通的な指針がいくつもある。

VBAに限って言うと、設計思想に関する本は殆ど出ていない。
初心者向けの基本的なもの、中級者向けのやや高度なテク
ニック・ギミックを紹介するものばかりだ。

本当に使える知識として身につけたいなら、他の言語も一度
勉強してみるといいんじゃないかな。

ちなみに俺の場合、オブジェクト指向に関する勉強が
VBAの設計にも大いに役立った。

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

IE7で表示しているホームページの「1-2-3」という文字列をコピーして張り付けると勝手に「2001/2/3」と
日付になってしまいます。何か設定の問題でしょうか？

↑
書式の設定を文字列にすれ
以上

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 条件付き書式

ある文字列からMIDで2ケタの数値を抽出してまして、
その数値が50以上の場合セルを赤色にしたいです。
条件付き書式はどう設定すればいいでしょうか？

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

グラフでY軸を４つにしたいんですが、これは不可能なのでしょうか？

自己解決しました。
失礼しました。

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 日付の範囲　指定　エクセル　など

sumif の検索条件で、　2007/5/1 〜　2007/5/30 の　間の期間を
指定したいです。

2007/5/1以降であれば、
">=2007/5/1"
とやればいいことまでは分かりました。　

5月31日までを入れるにはどうしたらいいのでしょうか？

よろしくお願いします。

>>719
=SUMIF(範囲,"<=5/31",合計範囲)-SUMIF(範囲,"<=4/30",合計範囲)

2007/5/30までから2007/5/1以前を引く

5/1以前を引いたらいかんと思うんだが…
それと、「5/31まで」な。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 作成者 削除

ファイルの作成者・所有者情報を削除したいのですが、どうすればよいでしょうか。
ファイルのアイコンを右クリック→プロパティを表示させても[全般]タブしかなく、
削除(もしくは変更)が出来ません。

シートの保存フォルダで[表示]→[詳細情報の設定]で所有者と作成者の表示にチェックを入れると
名前の確認は出来ます。
これを何とかしたいのです。

↑Excel　のファイル＞プロパティ
から変更できる希ガス

>>724
即レスありがとうございます。

それが出来ないんです〜
ファイル＞プロパティだと空欄なんですが、
いざ保存フォルダで確認するとしっかり名前が入ってるんです。。。

おかしいなぁ…
漏れはExcel2003だけど
Excel の[ファイル(F)]＞プロパティで空欄にすると
しっかり反映されるのだが…

>719
ちょっと強引だけど
{=SUM((範囲<=39232)*(範囲>=39203)*(合計範囲))}

>>726
そうですよねぇ‥私もそうだと思っていました。
別のPC(←今家に無い)だとバージョンが2000で、もちろん変更できたので、
今問題のあるPCがバージョン2003だから変更できぬよう固定されてしまっているのか、
それともやり方が悪かったのか、わかりかねてしまいました。

本来は出来るんですね。
ありがとうございます。
会社でシートの複製などして対応したいと思います。