Excel総合相談所 38

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

　　　　 /）_/）　　　　（　・分かる人はできるだけ回答して下さいませ。
　　　　< ﾟ _･ﾟ> .｡oO（　・回答がなくてもキレないで。急いでいても催促は3日以上開けて。
　　ﾉ） /　　 |　　　　 （　・自己解決したらその解決手段を他の人の参考の為に書いてね。
　　＼(＿,,,_,,,）

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

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

※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
　 VBAを使うのは避けたいって場合は｢否｣にしましょう。
　 ｢VBAって何?｣って場合はとりあえず｢否｣に。よくわからないけど使ってみたいってなら
　 ｢可｣にして、>>10-15あたりの解説を参考に使ってみよう。

※人大杉でテンプレ･Q&A･ログが読めない場合は、2chブラウザを導入するか、下記のログを読みましょう。
　　･前スレログ http://makimo.to/cgi-bin/dat2html/dat2html.cgi?pc8/2/bsoft/1125178942/
　　･現スレログ 上のURLの末尾の数字10桁を現スレのものに書き換え。
　　　　　　　　　　現スレURLは｢ >>1 ｣←これを右クリックしてプロパティを選択すると表示されます。

･前スレ　http://pc8.2ch.net/test/read.cgi/bsoft/1125178942/

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･ 現行スレ内で既出の質問が無いか、ページ内検索をしよう。
･ 図を書く場合、TABや連続する半角スペースは無視されるので注意
･ VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。
･ 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･ 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･ バグ･動作上の不都合などはマイクロソフトのサポートを受けましょう。ここは技術的な質問のみで。


･関連スレ

　Excel総合相談所・雑談・議論スレ
　http://pc8.2ch.net/test/read.cgi/bsoft/1120184635/

　★Word/Excel (MS-OFFICE) 初心者スレッド Part24★
　http://pc8.2ch.net/test/read.cgi/pcqa/1123720358/
　
　OpenOffice.orgってどうなの？ Part6.0.0
　http://pc8.2ch.net/test/read.cgi/bsoft/1121949269/

＝ FAQ： 基本 ＝
Q：こんな関数ありませんか？
A：｢関数の挿入｣にある検索機能や、ヘルプの検索を利用しましょう。

Q：数式がエラーを返すんですけど
A：関数をネストせず、数式を分解してみてください。
　 どの関数がエラーになっているのか解れば、その関数の参照先や、
　 ヘルプなどを見て大抵は簡単に解決できます。

Q：計算結果やセルの値によって自動で書式を変更したいんですが
A：条件付き書式を利用してください。
　 数値比較で文字色のみの指定なら表示形式でもできます。

Q：計算結果やセルの値によって表示形式を変えたいのですが
A：表示形式のユーザー設定で複数条件の表示形式を指定できます。
　 基本形式は｢正の数；負の数；0の場合；文字の場合｣です。(；は半角で)
　 又は｢[>=70]70以上の場合；[>=50]50以上の場合；50未満の場合；文字の場合｣というような指定も出来ます。
　 書式記号などに関することはヘルプを参照しましょう。

Q：計算結果が自動で更新されなくなったんですが、どうすれば直せますか
A：Excel(2002?)の不都合で、計算方法が手動になってしまうことがあるようです。
　 ツール > オプション > 計算方法
　 で、計算方法を自動にすることで元にもどります。
　 参考URL：ttp://support.microsoft.com/default.aspx?scid=kb;ja;817716

＝ FAQ： 列の表示について ＝
Q：列名がA，B，C，D，Eではなく、１，２，３，４，５になってしまいました。
　　アルファベットに戻すにはどうしたらいいですか？
A：ツールメニュー：「オプション」 -「全般」タグで
　　『R1C1 参照形式を使用する（C）』のチェックを外せば直ります。

Q：列を256個（IV列）よりたくさん広げることはできませんか？
A：エクセルのシートは65536行×256列が仕様上の上限です。
　　シートを分けるとか、行と列を入れ替えるとか、データの方をまとめるとか、
　　列数を増やさない方向で工夫するしかありません。

Q：ひとつのブックにシートは何枚作成出来ますか？
A：物理メモリ容量やシートの内容に依存します。


＝ FAQ： 印刷プレビュー ＝
Q：印刷プレビューではセル内に収まっていた文字が
　　実際に印刷してみるとはみ出してしまうのですが、
　　何とかなりませんか？
A：「印刷プレビューと印刷結果が一致しない」のは
　　昔からのExcelの弱点で、どうにもなりません。
　　セルの幅や高さに余裕を持たせるか、
　　書式設定で「縮小して全体を表示する」にチェックを入れましょう。


＝ FAQ： マクロの”削除” ＝
Q：マクロを削除したのに、ファイルを開くたびにセキュリティの確認が出ます。
A：モジュールの解放が必要。
　　【モジュールの解放方法】Alt+F11→Ctrl+R→Module1を右クリック→解放

＝ FAQ： 計算したい。角度とか ＝
Q：例えば、一つのセルに1803329と入力すると
　　180度33分29秒と表示されるようにするには
　　どうすればいいのでしょうか？
　　ついでに計算もしたいです。
A：「1803329と入力すると180度33分29秒と表示される」
　　というのと、計算できるというのを両立させるのは無理。
　　書式を
　　[h]:mm:ss や [h]"度"mm"分"ss"秒".00
　　などにしておき、入力するときには
　　180:33:29.99
　　などとすれば、表示も計算もできる。

･その他時間とか日付とかの計算について
　勤務時間を計算するには
　ttp://support.microsoft.com/default.aspx?scid=%2Fdirectory%2Fworldwide%2Fja%2Fkblight%2Ft009%2F3%2F46.asp
　日数および日付の表示方法と計算方法 - 基本編
　ttp://support.microsoft.com/default.aspx?scid=%2Fdirectory%2Fworldwide%2Fja%2Fkblight%2Ft009%2F3%2F45.asp

＝ FAQ： 合計から元の数を逆算 ＝
Q：たくさんの数値のリストがあって、
　　リスト中のいくつかの数の合計と思われる数値が与えられました。
　　リスト中のどれとどれの合計か調べることはできますか？
A：ナップザック問題(knapsack problem)として知られている難問です。
　　一般的には総当りで調べるしかありませんが。
　　しかし、データに特徴がある場合（桁数が限られているなど）には、
　　うまい方法があって、速く解けることもあります。
　　下記のページを参照してみてください。
　　　ナップザック問題をExcelで解く
　　　ttp://www.geocities.co.jp/SiliconValley-Oakland/8139/

＝ FAQ： 条件によって表示を変更するには? ＝
Q：セルの内容を判断して、表示を変えたい
A：　IF関数を使います。
　　=if（条件,条件が成立した場合,成立しなかった場合）

例１：基本
　セルA1が１の場合○、それ以外の場合×を表示
　=IF(A1=1,"○","×")
例２：if文の中にif文
　A1が、１の場合○、２の場合△、それ以外×。
　=IF(A1=1,"○",IF(A1=2,"△","×"))
例３：ANDやOR活用
　A1が、４〜６の場合は、普通と表示
　=IF(AND(A1>3,A1<7),"普通","少ないか多い")
例４：計算も出来る
　A1が１０までなら、A1を１０倍して表示、それ以外なら２を引く。
　=IF(A1<11,A1*10,A1-2)
例５：対象が空欄なら表示も空欄にする
　A1が空欄なら結果は何も表示しない、それ以外ならＡ１から２を引く。
　=IF(A1="","",A1-2)
　=IF(ISBLANK(A1),"",A1-2)


詳しくはヘルプを参照しましょう。

＝ FAQ： グラフについて ＝
Q1：データの空白部分があって、そこで折れ線が切れてしまいます。
　　 繋げたいのですが如何したらいいでしょうか？
A1：ｸﾞﾗﾌを選択＞ﾂｰﾙ＞ｵﾌﾟｼｮﾝ＞ｸﾞﾗﾌ＞空白ｾﾙのﾌﾟﾛｯﾄ「補間してﾌﾟﾛｯﾄする」にﾁｪｯｸ

Q2：棒グラフに重ねて、折れ線グラフを表示するにはどうしたらいいのでしょうか?
A2：最初、すべてのデータを棒グラフで作成。
　　次に、折れ線で表わしたいデータ系列のどこかを、グラフ上で右クリック
　　ｻﾌﾞﾒﾆｭｰ＞ｸﾞﾗﾌの種類＞折れ線＞OK

Q3：ある系列だけ、縦軸を別にしたいです。
A3：その系列のどこかを、グラフ上で右クリック
　　ﾃﾞｰﾀ系列の書式設定＞軸＞使用する軸「第2軸」にﾁｪｯｸ＞OK


＝ FAQ： 入力した値が変わる? ＝
Q：セルに入力した値が勝手に変わってしまうのですが
　　入力したままの形で表示させるにはどうしたらいいですか？
A：数字でよくあるケース（先頭のゼロが消えてしまう、日付として解釈されてしまう）
　　入力する時、先頭にアポストロフィ(')をつけるか、
　　該当するセルで右クリック−「セルの書式設定」−「表示形式」で「文字列」を選択。
　　文字列ではなく数値として扱いたいときは
　　「セルの書式設定」−「表示形式」で「ユーザー定義」を選択し、工夫する。
A：文字でよくあるケース（i⇒I、teh⇒the、cna→can　など）
　　ツール→オートコレクト→入力中にオートコレクト
　　の該当する箇所を削除。

＝ FAQ： 行列の入れ替え ＝
Q：エクセルで作った表が横方向に多くなってきたので
　　行と列を入れ替えたいのですが。
A：コピーして、適当なセルで右クリック。
　　形式を選択して貼り付け→行列を入れ替える。


＝ FAQ： 参照するシートやセルをセルの値で指定する ＝
Q：A1に「5」とか「6」とか指定する値を変えたら
　　B1の関数で「C5」とか「C6」とか参照先が変わるようにできませんか？
A：INDIRECT関数を使ってみましょう。
　　詳しくはヘルプで「INDIRECT」を検索


＝ FAQ： ブラウザの変更 ＝
Q：Excelでアドレスをクリックした時に開くブラウザをIEからSleipnirなどに変更したい。
A：スレ違いです。
　　開きたいブラウザの設定画面でそのブラウザを通常使うブラウザに指定してください。

　　※ブラウザからの設定だけではきちんと設定出来ない場合もあります。
　　　 詳しい情報をお持ちの方はこのスレにてご一報ください。

＝ FAQ： セル内での改行 ＝
Q：セル内で改行したいんですがどうすればいいでしょうか
A：改行したい位置でAltを押しながらEnterを押せばセル内改行できます。


＝ FAQ: ワイルドカード文字の検索･置換 ＝
Q:* 、 ? で検索するとワイルドカードとして認識されてしまいますが、
　 * 、 ? の文字自体を検索するにはどうすればよいですか？

A: ~* 、 ~? のように、頭に ~ を付けることでエスケープ出来ます。

A:全角で＊と入力し｢半角と全角を区別する。｣のチェックを外して検索する
　(全角なのでワイルドカードとしては使われないが
　 全半角を区別しないので文字として"*"にはヒットする。)

＝ FAQ：時刻の入力 ＝
Q：時刻をテンキーで入力するとき：を入力するのが面倒なのですが、
　 なにか良い方法はありませんか?
A：｢ ．．｣や｢．｣を｢：｣に置き換える方法をお試しください
　　1) オートコレクトで..を:に置き換える
　　　→自動で置換されるので手間は少ないが..を使う他の入力にも影響する
　　2) ｢時..分｣で入力しておいて、後から｢編集 > 置換｣で範囲指定で一括置換する
　　　→置換に一手間掛かるが、他への影響は無い
　　　(｢時.分｣だと分の1桁目が0の場合狂ってしまう)
　　3) VBAのWorksheet_Changeイベントで置換する
　　　→置換する範囲を指定すれば他への影響もなく置換も自動、入力も．ひとつでOK
参考コード(入力は｢時.分｣)
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim buf As Variant
　Application.EnableEvents = False
　buf = Split(Target.Value, ".")
　Target.Value = buf(0) & ":" & Left(buf(1) & "0", 2)
　Application.EnableEvents = True
End Sub

= FAQ：シート名やブック名の書きだし =
Q：シート名(ブック名)をセルに書き出したいのですが、どうすればよいですか？
A：シート名 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31)
　 ブック名 =MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)

★VBAでの回答をもらったり、Webからサンプルコードを拾ったけど、
　 使い方がわからないって場合はここを参考に。

Step1　VisualBasicEditorの起動
　メニューより、[ツール → マクロ → VisualBasicEditor]と辿ってください。

Step2-a　コードを貼る
　マクロはその内容によって、置く場所が決まっています。
　大抵は回答者が指定してくれたり、サンプルの中にコメントとして書いてあったりするのでそれに従いましょう。
　指定がない物は基本的に｢Private Sub Worksheet_｣で始まる物はシートオブジェクトに、
　｢Private Sub Workbook_｣で始まる物はブックオブジェクトに、それ以外は基本的に標準モジュールに置いてください。
　(ツリーの該当部分をダブルクリックして、表示されたコードウィンドウにコードを張り付けます)

　　├VBAProject (hoge.xls)　　　←括弧内がブック名、以下がひとつのプロジェクトになります
　　｜├Microsoft Excel Object
　　｜｜├Sheet1 (Sheet1)　　　←シートオブジェクト(左側がオブジェクト名で、右側の括弧内がシート名です)
　　｜｜├Sheet2 (Sheet2)
　　｜｜└ThisWorkbook　　　　　←ブックオブジェクト
　　｜└標準モジュール
　　｜　 └Module1　　　　　　　　←標準モジュール(※)
　　└VBAProject (Personal.xls)　←個人用マクロブック
　　　 ├Microsoft Excel Object
　　　 ｜├Sheet1 (Sheet1)
　　　 ｜└ThisWorkbook　　　　　←個人用マクロブックのブックオブジェクト
　　　 └標準モジュール
　　　 　 └Module1　　　　　　　　←個人用マクロブックの標準モジュール

　　※ 標準モジュールを追加するには、追加したいプロジェクトツリー上で右クリックし、
　　　　 メニューから[挿入 → 標準モジュール]を選択してください。

Step2-b　ボタンに登録する。
　通常、イベントで動かすマクロ以外は、マクロの一覧から選択して実行しますが、
　頻繁に使う場合や、他の人が操作する場合はシート上のボタンを押して実行できるようにすると便利です。

　まず、メニューから[表示 → ツールバー → フォーム]と辿ってフォームツールバーを出し、
　ボタンアイコンを押して、適当な場所にボタンを作ります。
　ボタンを作ると自動的に[マクロの登録]というダイアログが立ち上がるので、
　(立ち上がらない場合はボタンを右クリックして[マクロの登録]を選択)
　[新規作成]を押して表示されたコードウィンドウのカーソル位置にコードを張り付けます。
　既存のマクロを登録する場合は、[マクロの登録]で一覧から選択して、[OK]を押してください。

Step3　マクロの実行
　ボタンに登録したものは、ボタンを押せば実行されます。
　イベントで動かすものは、所定操作をした時に自動で実行されます。
　それ以外はメニューから[ツール → マクロ → マクロ]と辿って表示されたマクロの一覧から選択して実行します。

Step4　トラブルが起きたら
　トラブルを自己解決出来ない場合は、
　･エラーが出る条件　(どうやってもエラーが出る、〜をしたときにエラーが出る、等)
　･エラーメッセージ　(ダイアログ上でCtrl+Cを押せばメッセージをコピー出来ます)
　･エラーが出る位置　(エラーダイアログ上で[デバッグ]を選択すると、エラー位置がハイライトされます)
　などを報告しましょう。
　また、期待通りの動作をしない場合も、条件や想定上の結果と実際の結果の内容など詳しく書きましょう。

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

　▼環境･書式
　 ･ 列数を256列以上、行数を65536行以上に増やす
　 ･ 条件付き書式を3つ以上設定する (文字色だけなら、入力規則でも3つ設定可能。それ以外はVBA)
　 ･ 行の高さを0.25きざみ以下の単位で指定する
　 ･ セル内の文字を○で囲む、一部のみ2段にする (オートシェイプ、オブジェクト)
　 ･ オートフィルタで英字の大小文字を区別する (小文字 → 半角、大文字 → 全角、と使い分ける)
　 ･ 祝日を判断する (作業セルに祝日を列挙、VBA)

　▼操作
　 ･ ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
　 ･ 複数シートを選択して入力規則やシートの保護を設定する (VBA)
　 ･ オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
　 ･ 選択範囲から一部を除く

　▼数式･関数
　 ･ セルの書式情報を関数式で取得する (ユーザー定義関数)
　 ･ 関数式でセルの選択状態を取得する (VBA)
　 ･ セルの値でパスを補完して、開いてないブックのセルを参照する (VBA)
　 ･ 入力したセルに結果を返す (VBA)
　 ･ 範囲を引数にしての文字列連結 (ユーザー定義関数)
　 ･ 不定な数の結果を返す (VBA　必要最大数が解っていれば最大数分の数式を組み、結果上不要なものを論理式で非表示にする)
　 ･ 値の書き換え、値の保持 (VBA)
　 ･ 複数の結果を抽出、不特定数の結果を返す (VBA、結果の最大数が解っていれば最大数以上の式を論理式で組む)

　▼VBA
　 ･ExecuteExcel4Macroの参照で空セルと0値を区別する
　 ･セルの値や変数値で直接変数名を指定する

エクセルでテキスト形式で書かれたデータを開きたいのですが、
データの行数が200000行あり、65000行までしか開けません。
別のシートになってもいいので、全てのデータを読みたいのですが
どうすればよいでしょうか。

>>14
エディターかワープロで読み込んで、
１シートに入る行数に分けて別々にコピペ。

>>14
�@テキストファイルを65536行以下に分割して、1シート1ファイルを読み込む
�Aテキストエディタで開いて65536行以下の範囲ずつカット&ペースト
�BVBAでループを回して行単位で読込み、自動的に複数シートに振り分ける

頻用するなら�Bがオススメ。コード書けないなら確かアドインがあったから探してきな。
1度きりなら�Aで充分だろう。65000行当たりからCtrl+Shift+Homeで範囲選択すればいい。

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

こんにちは。
エクセルでＶＢＡのマクロを作成しているのですが、
次のような処理をするにはどうすれば良いのかが分かりません。

列Ａに300行くらい数値データが入力されているシートがあり、
ある値のセルを検索し（例：値12345を検索するとＡ１０にあったとする）
その次の行にある値が特定の値ならば（例：Ａ１１の値が99999のとき）
それを任意の値に置き換える（例：Ａ１１の値を77777へ）

どなたかよろしくお願いいたします。

EXCEL2000と、2001と2002と2003はだいぶちがうのでしょうか?

EXCELは便利なようなので使いこなせるように勉強しようと思うのですが、
EXCEL2000でいいのか心配しています。
使用方法は、VBAを使っていろいろやってみたいと思っています。
あと、EXCEL2003用のVBA解説本は、EXCEL2000のVBAにもつかえるでしょうか?

>>17
列AのデータがUniqueなら、
A1からA300の範囲をFindメソッドで検索。
そのOffset(1,0)が99999かどうか判定して、TRUEなら
そこに77777を代入。
Uniqueじゃないなら、FindNextで上記を繰り返す。

詳しい使い方はそれぞれのヘルプを参照してね。

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

a123
b456

あらかじめ上記のような値が入力されている列に対して、

・1文字目が「a」だったら「シートa」の「123」行目の値を参照
・1文字目が「b」だったら「シートb」の「456」行目の値を参照

という処理を行いたいです。

できれば、マクロを実行したら処理が行われるのではなく、
セルに関数を設定しておいて、「a123」を入力したら
自動で値の参照が行われるようにしたいです。

よろしくお願いいたします。

>>18
違うと言えば違うし、たいして変わらないといえば変わらない。
お前がどう感じるかは、お前が使ってみないと解らないが
PCやOSが古いなどの理由がなければ2003にしておけ。
基本的に2003用のVBA解説本は2000でも通用するが、
一部使えない機能などはある。
因みに2001はMac用だろ

>>20
LEFT関数などの文字列操作関数でaと123に分け、
INDIRECT関数で参照する。
あとはヘルプ見てがんばれ。

Excel2000をXpで使用しています。
IF分でA1-A2>0の場合、セルのバックグラウンドの色と文字の色を変えるにはどうすればいいのでしょうか？
負の数字だった場合に変えるのは簡単なのですが、それ以外は分からないもので。

【1 OSの種類 　 　 　 　 .】 Windows 98〜XP(違うマシンでも)
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】
【4 VBAでの回答の可否】
【5 検索キーワード 　 　 】 "excel フォント 画面表示 列見出し 行見出し 開く" 等々を色々組み合わせた。

http://49uper.com:8080/html/img-s/86567.jpg
http://49uper.com:8080/html/img-s/86568.jpg

あるExcelファイルにAとBの2つのシートがあります。

シートBを表示したまま保存、その後ファイルを開くと、必ず85867.jpgのような表示になってしまいます。
そのままシートAに切り替えると、シートAの表示は正常。
その後、もう一度シートBに切り替えるとシートBの表示も正常になっている(85868.jpg)。
その状態で保存(シートB表示のまま)、その後ファイルを開くと、また85867.jpgの状態に......

シートAを表示したまま保存、その後ファイルを開くと、両シート共に正常表示です。
ただし、シートBを表示したまま保存、その後ファイルを開くとやはり85867.jpgの状態です。

シートBをコピーしたり複製してもダメ。

ググったりMSのナレッジも見たのですが、どうしても詳細な原因と解決策が見つかりません。
この現象についてご存知の方がおりましたら、お教えいただきたいのですが。

ぐえっ、訂正です。ごめんなさい。

85867 → 86567
85868 → 86568

>>22
ワークシート上の数式では書式設定出来ないので条件付き書式を使う
使い方はヘルプ参照

>>23
> ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
> ･ バグ･動作上の不都合などはマイクロソフトのサポートを受けましょう。ここは技術的な質問のみで。

>>21
ありがとうございます。
2000は持っていてPCやOSも古いので、とりあえず2000でいきます。
2003用のVBA解説本は2000でもだいたいは通用するとのことで安心しました。
VBAの本をよんでもわからないことがあったら聞くのでよろしくお願いします。

997 名前：962[sage] 投稿日：2005/10/07(金) 20:41:31
ヘルプも読んだし、入門書も読んでますよ。
その上で調べまくっても見つからないことだから聞いてるわけで。
逆にそういう「回答を与えてやってる」側の人が、調べてすぐわかることなのか、どうかですよ。
他人のために調べろとまでは言わないけど、「調べてすぐわかりそう」なことでも、
意外とどこにも情報がないものってのはいくらでもあります。
「30秒くらいでできそう」なことに3日かかったなんてこと、いくらでもあるでしょ？
なので「当然同じような状況を経験して、熟知してるけど教えてやらない」って態度の人に、
ヒントくれって言ってるんです。

何か最近思うんだけど、
ﾍﾙﾌﾟ嫁とか正直どうでもいいんだけど。
何か一部の勘違い回答者気取りが、自分はﾋﾝﾄに徹して
勉強させて成長させようみたいな気取りかましてるけど、
正直ｲﾀｲ。

そのどうでも良い回答とも呼べない回答ﾚｽが付いたために、
優良回答者が重複するため、回答機会をなくしてる結果につながるし。
初心者の質問を相手に優越感ですか？
ほほえましいです。

まぁ単純に>1の一行目な。
>分かる人はできるだけ回答して下さいませ。

わからない奴ｴｾ回答者気取りは来るなと。

だって条件付き書式のところに｢A1-A2>0｣を入れて書式を好きなように設定するだけでしょ
既に式も出来上がってる以上、他に何を教えろと
それとも何か、1から10まで

上部にあるメニューバー(ファイル(F)　編集(E)　表示(V) などがあるところ)の
｢書式(O)｣という部分にマウスカーソルを合わせマウスの左側のボタンを押し、
その時表示されたサブメニューの中から｢条件付き書式｣という部分にマウスカーソルを〜

なんて解説しにゃならんのか?
ここはそこまで教えるスレじゃねーぞ

｢条件付き書式を使え｣は｢分かる人はできるだけ回答して下さいませ。｣に沿った必要充分な回答だ

>28
まぁ単純に>2の七行目な。
>▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
>･ 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。

そして
>分かる人はできるだけ回答して下さいませ。
だが、分かる人は事細かに解説してくださいませ。ではないんだな。
クイズやなぞなぞのようなヒントじゃ回答とは言えないが、
何を使うかを教えて、使い方を調べさせるのはちゃんとした回答だよ。
何を使えば目的が達成出来るかを、ちゃんと回答してるんだからね。

というか、
> 負の数字だった場合に変えるのは簡単なのですが、それ以外は分からないもので。

ここまで出来て、これ以上の何が分からないのかが分からない。

>>21
うまくいきました、ありがとうございます！

回答は>>20に対するものも>>22に対するものもあまり変わらんだろう
しかし一方は教わったことを元に自力で結果を導き出し、お礼を言いに来る
もう一方は｢教わった｣ことにすら気付かず長々と文句を言いに来る

これが人としての程度の差ってやつですかねぇ(￣ー￣)ﾆﾔﾘｯ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可
すみません。教えてください。

データ>並べ替え
って3つまで優先されるキーを選べますよね。これって3つ以上、出来ないものでしょうか？
所望のならびになったところを選択してまた並べ替えて行数を減らしてまた並べ替えってやっていけばいいのかもしれませんが、数がたくさんあって辛いです。
どなたかよい知恵がありましたらご教示ください。よろしくお願いします。

>>34
優先度の低いキーで先に並べ替えておき、
もいちど優先度の高いキーで並べなおすだけ。

並び替える目的が明確ではないが、オートフィルターで代用できないの？

>>34
1　1　1
1　1　2
1　2　1
1　2　2
2　1　1
2　1　2
2　2　1
2　2　2
これはA列 > B列 > C列の優先度で昇順ソートしたものだが、
｢C列昇順ソート→B列昇順ソート→A列昇順ソート｣という処理をすれば結果は同じになる
優先度の高い方からソートを始めるから｢行数を減らして｣なんてことが必要になるわけで
優先度の低い方から始めれば全行ソートを必要キー分繰り返せばいいだけ

>>23
スレ違いだけど私もときどきこの現象に当たる。
うちはシート切り替えてもダメでCtrl+マウスのホイールで倍率変えると直る。
検索しようにもどういうキーワードでぐぐればいいのかわからなくてモヤモヤ。

レスありがとうございます。
>>36
いまひとつ分かりにくい説明ですみませんでした。
オートフォルタってよくわかってないもので、なんかこわくて（？）。

>>35
>>37
すごい…すごすぎます。感服しました。ありがとうございます。
明日会社行くのが憂鬱だったのですが、胸張って行けます。

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

質問です。
表示形式を標準にしている状態で
セルに数字を打ち込んで行って
たくさん打ってから実は文字列で
入力しなければならなかった・・・
っていう時に一気に全部入力した物を文字列
認識に変換できる方法ってあるんですかね？
逆の文字列認識→標準（数値）認識の一発変換は
解るのですが・・・
よろしくお願いします。

計算結果とかではなく、直接入力した数値なら
表示形式を文字列にするだけで、値も文字列になるだろ
少なくともうちでは、標準表示形式で100と入力したあと、
セルの書式設定から表示形式を文字列にすると
セルの値は右寄せ基準の数値から左寄せ基準の文字列に切り替わる。>Excel2002
これで変換されないなら、表示形式を文字列にしてからコピーして値のみ張り付けてみな。

すいません質問のしかたが悪かったようです。
私が聞きたいのは
たとえば

１００　　ばか
２００　　あほ

とか入力してあって（この際１００や２００は文字列で入力）
これをＶＬＯＫＵＰとかで見に行こうとすると
標準認識で１００とか入れても当然エラーになりますよね？
でこの場合、私は現在表示形式を文字列に直して
もう一度　１００とかを再入力する　これで解決はしますが
これが２００列くらいあると面倒くさくって・・・
一発で認識してくれると助かるのですがどうしても方法が
解りません・・・
こんな感じで意味解りますかね？
よろしくお願いします。　

余計意味不明。
用語も間違ってるし> ＶＬＯＫＵＰ、標準認識

具体的に現在どういう状態で、結果として何がしたいの?

オプションにFALSEを指定すればいいんだよ？

>>42
TEXT()した奴をVLOKKUPで探すんよ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Exce2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
お願いします。
A列　B列
10 　10
10 　20
10 　10
10 　15
10 　33
というデータがあり、
A列とB列が同じである数
（この場合2）
をしめす関数は何でしょうか。
よろしければ実際の式も教えてください。

>>46
C1に=A1=B1
フィルコピー
=COUNTIF(C列範囲,TRUE)

作業列使いたくなければ配列数式
こっちが良ければ自分で書け
使うのはSUMとIFだ
(SUMだけでも書けるけどIF使うのが基本)

>>47
どうもありがとうございました。
作業列つかえないとしたら
配列数式ですか。
私には無理そうです。(・_・、

ＶＬＯＫＵＰ
VLOKKUP

ぷ
誤変換を2ちゃんで指摘するのは野暮っつー話はあるけど、
こういうスレでは正確に書こうぜ。

VLOOKUPだろ。VLOOKUP

>>48
別に作業列使えないとは書いてなかったからね
条件後出しするなら、その分は自分でやれってことで
まあ、10分も調べりゃ使い方わかるよ

>50
突然首突っ込むけど
SUMだけで書けるか？

>>47
何とかできました。(^o^;
どうもありがとうございました。
>>51
ごめんなさい。
If使ったのしか出来ませんでした。

>>51
TRUEは1、FALSEは0
これを使えば関数はSUMだけでいける

因みにVBA(VB)ではTrue=-1、CではTrue=1

ｷｰﾎﾞｰﾄﾞﾏｸﾛで右へ移動、つまりは→ﾎﾞﾀﾝをクリックするという内容が
知りたくて、ﾏｸﾛを記録、確認してみたのですが、
Range("**").Select　となります。
ｷｰﾎﾞｰﾄﾞの→を押したという内容を書く方法を教えてください。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ｷｰﾎﾞｰﾄﾞﾏｸﾛ　ｴｸｾﾙ　矢印　移動

>>54
キーボードじゃないけど、
ActiveCell.Offset(0,1).Select
で動くよ。

> ｷｰﾎﾞｰﾄﾞの→を押した
正確にはSendMessage使うしかないが、
とりあえず→キーを送るならSendKeysでいいだろう
しかし、ひとつ右のセルを選択したいなら
アクティブセルからOffset(0,1)で良いのでは?

目的がはっきりしないから何を使うべきかは断言できないけど

>>55-56
ありがとうございました。

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

開いているブックの全シートに対して実行するには
以下の処理をするには、どうすればいいのでしょうか？

Sub Macro1()
Cells.Select
With Selection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Columns("F:L").Select
Range("L1").Activate
Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
End Sub

>>58
For Each s In 全てのシート
処理
Next s

>>59
ありがとう御座います。

それを具体的にどのように記述すればよいか
教えていただきたいのですが、お願いできませんか？

a1=1, b1=1
a2=2, b2=1
a3=4, b3=2
a4=7 b4=3

みたいな配置があるときに、「ｂｎ−１の値だけanから前に戻ったa列のセル」からanまでの範囲で最大値を出したいのですが、どうすればよいのでしょうか？
つまりｂ3=2なので、b3-1=2-1＝１で、a3のいっこまえのa2とa3の最大値を返したい。
またｂ４＝３なので、ｂ４−１＝３−１＝２、a4の２こまえのa2からa4の間までの最大値を返したい。




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

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

その列に数字が入力された時。
○○番となるように、末尾に"番"を付けたいのですがどのようにしたら良いのでしょうか？

>>60
全てのシート → Sheets
全てのワークシート → Worksheets

処理 → s.Cells.処理

あとは自分でなんとかしな


>>61
OFFSET関数、MAX関数
関数の使い方はヘルプ参照


>>62
0番
0"番"

>>63
ありがとうございます。助かりました

計算で出た数値を自動的に上から順に並び替えるやり方ってありますか？
計算で出たパーセンテージを高いほうから順に列ごと並び替えたいのですが。。。

A　１００　６０　６０％
B　５０　　１０　２０％
C　１００　９０　９０％

これをC、A、Bの順に並び替えたいです。
使用OS　Windows XP
使用ソフト　Word 3000 です

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

OS：WinMEでExcel2000のVBAで作ったマクロがExcel2003の環境で動かない。
VBの実行時エラー'1004'アプリケーション定義またはオブジェクト定義エラーです。

Excelのバージョンによって使えない定義もしくは文法がある？

ｴｸｾﾙのﾏｸﾛの内容を他人に見せないようにすることは可能ですか？
ﾊﾟｽﾜｰﾄﾞでのﾛｯｸなど、方法は何でもいいのですが。

>>63
なんとかなりません・・・。
選択されているシートでしか処理されません。

>>65
マルチはダメ

>>66
まずはコードを貼ってみよう

>>67
VBEメニューバーから ツール > プロパティ > 保護

>>68
書いてみたコードを貼れ

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

データベースからの検索で特定の文字列を含む行列だけ
別シートに表示させたいのですが、うまくいきません。
よく似た事例が下記URLなのですが、

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1257667

この場合だと検索する文字列に等しいデータしか抽出されないので
困っています。
検索文字列に * を足せばいいことなのですが、いちいち * を
付け足すのが面倒なのでVBAで処理したいのですが可能でしょうか。

>>71
可能
情報が少なすぎるのでそれ以上のことは何も言えない

アドバイスが欲しけりゃコードを貼れ
コードが欲しけりゃブックをうpしな

起動された時点でA1に現在の時刻（起動時の時刻）を書き込み
そのあとそれが再計算されないようにするにはどうすればいいでしょうか？

>>73
nowで拾って、マクロで起動した時にそのセルを値の上書きさせればいいんじゃない？

>>73
VBAで時刻代入
Workbook_Openなど、開いたとき1回限り動くイベントを使えば
再度閉じて開き直すまで自動で書き換えられることはない

つーか
> ★質問テンプレは必須じゃないけど、OSやExcelのバージョンやVBAの可否などの情報は必須。
　　　　　　　　　　　　　　　　　　　　　　　 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
最初に環境やVBAの可否書かないなら、
後から使ってるverじゃその機能が無いとかVBA以外がいいとか言い出しても条件後出し扱いで放置だぞ。

ありがとうございました>74-75

>>69
おねがいします。

Dim s As Worksheet

For Each s In Worksheets
s.Range("AK40:AL57").Select
Application.CutCopyMode = False
Selection.Copy
s.Range("AM41").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=4
Application.CutCopyMode = False
Selection.Sort Key1:=s.Range("AM41"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin
Next s

>>72
可能ですか、助かります。
ちなみに71のURLにあるコードをちょっと変える程度でいける
ものでしょうか？

Sub フィルタ表示()

　　Dim Db As Range
　　Dim Sh1 As Worksheet
　　Dim Sh2 As Worksheet
　　
　　'シート名設定-------------------------------------------------
　　'シート名を変更する場合は対応させること
　　Set RecordSh = Sheets("Sheet1")
　　Set ResultSh = Sheets("Sheet2")
　　'------------------------------------------------------------
　　
（次レスに続く）

>>77
Selectionはアクティブシートの選択範囲だ
Activateで処理シートをアクティブにするか、
Selectionを使わずRangeで範囲指定するかのどちらかにしな
ActiveWindow.SmallScrollを使いたいなら前者だな

（続き）


　　'初期化
　　ResultSh.Rows("3:65536").Delete
　　'フィルター
　　Set Db = RecordSh.Range("A1").CurrentRegion
　　Db.AdvancedFilter _
　　　　Action:=xlFilterCopy, _
　　　　CriteriaRange:=ResultSh.Range("A1:Y2"), _
　　　　CopyToRange:=ResultSh.Range("A3"), _
　　　　Unique:=False
　　'結果表示
　　ResultSh.Activate
　　'件数カウント
　　lngRecCnt = ResultSh.Range("A1").CurrentRegion.Rows.Count - 3
　　MsgBox lngRecCnt & " 件該当しました", vbInformation

　　Set Db = Nothing
　　Set Sh1 = Nothing
　　Set Sh2 = Nothing

End Sub

よろしくお願いします。

すいません、言い忘れましたが、やりたいことは
71のURL中で最初に質問されてる方とほぼ同じ条件で、
検索文字列を”等しい”ではなく”含む”にしたいんです。

エクセル2000でXPです。

Worksheet_Change(ByVal Target As Range)で

もしA1に値が入力されれば
・A1の値をｺﾋﾟｰ
・B1に移動
・貼り付け
・A2に移動
みたいな、一つのifに対して、複数の操作をしたいときの書き方がわかりません。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Selection.Copy 'A1をｺﾋﾟｰ
If Target.Column = 1 Then ActiveCell.Offset(0, 1).Select 'B1をｱｸﾃｨﾌﾞ
If Target.Column = 1 Then Selection.PasteSpecial Paste:=xlValues '値を貼り付け
If Target.Column = 1 Then ActiveCell.Offset(1, -1).Select `A2をｱｸﾃｨﾌﾞ
If Target.Column = 1 Then Selection.Copy Then Selection.ClearContents 'ｸﾘｱｰ

わからないのでこんな風に If Target.Column = 1 を一杯書いたのですが、回りくどいとか見た目にﾀﾞｻいとかを別にして
ｺﾚはﾏｸﾛとして正しい(=完動する??)内容なのでしょうか？
また、多分書き方としてはよくないと思うので、正しい書き方も教えてください。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 Windows*XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 まだ使えません
【4 VBAでの回答の可否】 可

>>78,80,81
とりあえずAdvancedFilterメソッドの挙動を｢含む｣に変えることは出来ないが
AdvancedFilterメソッドの前にループでvalue="*" & value & "*"を回して自動的に"*"をぶち込めばいいじゃん

VBAが使えるかどうかを書いてないので、ある程度使える物と勝手に解釈して説明はここまでに止める
情報後出しはするなよ

>>82
｢もしA1に値が入力されれば｣というなら
If Target.Address(0,0) = "A1" Then
だな。その条件では｢A1に｣ではなく｢A列に｣だ
それと
If Target.Column = 1 Then
　Selection.Copy 'A1をｺﾋﾟｰ
　ActiveCell.Offset(0, 1).Select 'B1をｱｸﾃｨﾌﾞ
　･･･
End If
というふうに書いた方がいい

ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues
は
ActiveCell.Offset(0, 1).PasteSpecial Paste:=xlValues
と書ける。そして張り付けるのが値のみならコピー→ペーストではなく
ActiveCell.Offset(0, 1).Value = ActiveCell.Value
とした方がいい

とりあえず最後の1行以外は間違ってはいないけど
対象がA1ならOffset使わずにRangeで参照した方がいいだろう

つーか
｢A1に入力したら、B1に値をコピーしA2を消去｣なのか
｢A列に入力したら、ひとつ右のセルに値をコピーし、ひとつ下のセルを消去｣
なのかわからん。最初の条件は前者だが、その下のコードは後者だしな

>>84
ありがとうございました。

ｴｸｾﾙ内から何らかの操作でｴｸｾﾙのCPU優先度を挙げる方法ありませんか？

>>86
VBA、API

>>1に書いてある必要情報を書いてないので
こっちの情報もここまで

>>84
ありがとうございました。

Excel 2003です。
210*445mmサイズの用紙に印刷したいのですが、
ファイル→ページ設定→用紙サイズの中にそのサイズがありません。
設定する方法はありますか？あるならば方法を教えてください。
よろしくお願いします。

210*445mmサイズの用紙に対応したプリンタを繋げてれば
用紙候補に出てくるはずだが

>>90
なるほど！プリンタの方で設定すればいいわけですね。
ユーザ定義サイズを設定したところ解決しました。
お早い回答どうもありがとうございました。

>>83
情報ありがとうございました。
あまり慣れてないもので、質問の仕方がまずかったことを
お詫びしておきます。
自分で何とかしようと色々調べながらvalue="*" & value & "*"を試して
いるのですが上手く行かなくて・・・戻ってきてしまいました。
VBAはネットで拾ったのをちょこちょこ調べて今みたいに自分なりの使い勝手を
模索する程度です。

もう一度力を貸してもらえるとうれしいです・・・

> 自分で何とかしようと色々調べながらvalue="*" & value & "*"を試して
> いるのですが上手く行かなくて

そのうまくいかなかったコードを貼ってみましょう

まったく初心者って言えばなんでもいいのか？
回答者ってのは神様なんだよ
愚民どもは平伏せっての

別板から誘導されて来て見たんだが
このスレの回答者って>94みたいなのばっかり？

>>95
まあ上見てみりゃ判るだろうが、こんなんばかりでもない。
だが、基本的には回答者ってのは俺も含めて、えらそうなことを初心者に言って
優越感に浸りたいからやってるってのは否定できない。
世の中には、「はつみみです」なんてエラそうに言って、他人を見下したいがために
「情報共有」を名目にした巨大サイト立てるヤツもいるしな。

> 別板から誘導されて来て見たんだが

とっても素敵な言い分ですね
いくらIDでないからって(以下略

>>97＝94？

>>93
AdvancedFilterメソッドの前に貼ってみましたが頭の*が
どうも利いてないようで上手く結果がでないんです。
たとえば "リ" という言葉で検索するとしてマクロを実行
した場合、検索対象範囲の中に

アクエリアス
ポカリスエット
オレンジジュース
リンゴジュース

があったとき、リンゴジュースは抽出されるのですが
アクエリアスとポカリスエットが抽出されないんです。

'初期化
　　ResultSh.Rows("3:65536").Delete
　　'フィルター
　　Set Db = RecordSh.Range("A1").CurrentRegion
　　value="*" & value & "*"
　　Db.AdvancedFilter _
　　　　Action:=xlFilterCopy, _
　　　　CriteriaRange:=ResultSh.Range("A1:Y2"), _
　　　　CopyToRange:=ResultSh.Range("A3"), _
　　　　Unique:=False

上のようにしました。

質問があります。WindowsXPでExcel2000を使ってます。
ひとつのセルの文字列を、別のシートのひとつの列すべてとマッチングさせて、一致
すれば何らかの文字列を返すという場合、どの関数を使えば良いですか？いろい
ろググって見ましたが、どうもいまひとつわからないので、よろしくお願いします。

>>98
いや、違う

>>99
それが調べた結果なの?
全く調べず意味も分からず貼っただけのように見えるが

valueってのはRangeオブジェクトのプロパティだぞ
(他でもvalueプロパティは使うけど)

>>100
COUNTIFの結果が1以上の場合にIF関数で任意文字列を返せばいい

>>101
なるほど。ありがとうございました。

調べてはいるけど意味はわからないしうまくいかないし
もう時間がないよ・・・
どう書けばいいか教えてもらえませんか。
今VBAの仕組みをネットで見てるけどとてもじゃないけど
明日までに間に合いそうにない・・・

スレのルールに従わない奴にコード書いてやることもないだろう。
> ･ 2回目以降の質問では名前欄に初回質問の番号を入れよう。

コードが欲しかったなら次回から気を付けようね。
まあ、今回は諦めて自分でなんとかしな。

>>79
ありがとうございました。
（正直、お手上げです）

>>103
For Each hoge In resultsh.Range("a2:y2")
hoge.Value = "*" & eCell.Value & "*"
Next

最近hogeさんがいないな・・

>>105
rangeセレクト前に
s.Activate
つっこめ

（以後７１で書き込みます）

>>106
もう半ば諦めざるをえないと思っていたので本当にたすかります。
マジでありがとうございます！

いざマクロを実行してみるとオブジェクトが必要とのメッセージが
表示されるのですが、
hoge.Value = "*" & eCell.Value & "*"
この部分の前にSetとかで何か指定するということでしょうか？

>>108
>>106には間違いがあるが、1カ所直せばそのまま使える
あとは自分でがんばれ

>>65ですが誰か教えてください。。。お願いします

データをコピペして一覧を作っているのですが、
元データに太字やフォントの違いがあり、
1セル入力するたびに決められた書式にしています。
自動で決められた書式になるようになれば助かるのですが、
マクロをいじるしかないのでしょうか。
初心者質問ですみませんがお願いします。

>110
Word3000なんてソフトはこの世に存在しないし、
だいたいここは「Excel」相談所だから、まったくのスレ違い。

これでも参考にすれば？
http://www.relief.jp/itnote/archives/000132.php

>>111
「値」だけ貼り付ければよし。

>>112
>>110はワードとエクセルを間違えただけだお
おとなげない

エクセル2000です。
複数の.xlsファイルのデータを追加するのに、いままでは「開いて閉じて開いて閉じて・・・」を
20回ぐらい繰り返していました。
ふと、ひとつの.xlsファイルの中に、シートとしてほかの.xlsファイルの内容を入れると楽だと考えたのですが
複数の.xlsファイルの各シートを、ひとつの.xlsファイルの中に移動することはできますか?
どうしたらいいでしょうか?

シートのタブのところで右クリックしたら、シートの移動またはコピーというのが出るので、
それで移動（コピー）するか、
開いた複数のブックを並べて表示して、シートのタブをドラッグして移動する

>>116
ありがとう。これですっごくラクになります。

>>109
やはり自分では無理でした。

>>114
案外>>110はワードとエクセルの区別が付いてない（だけど2chに書き込む知恵はある）人かも。

以前、オークションで売り買いが出来てタグでコメントも書ける人に「年賀状作るとき複数の
写真を入れるのはどうするの？」と尋ねられ、「使っている年賀状のソフトは？」と聞いたら、
「ソフトって何？」と逆に尋ねられたことがある。そんな人もいるよ。

エクセルの関数についてわからないことがあります。
表を作成しているのですが、
「ＣＯＵＮＴ」「ＣＯＵＮＴＡ」等で、数値の入ったセルを数えるように、
罫線を用いて斜線等をいれたセルを数えることのできる関数はないでしょうか？

>>120
残念ですがありません。

書式（罫線を含む）がからむワークシート関数というのは、ほとんど
用意されていません。
例外がTEXT関数、CELL関数くらいですが、これも表示形式しか
扱いませんし、今回の用途には不適です。

>>120
ワークシート関数には無い
ユーザー定義関数使えばできる

必要な情報が書いてないので、こちらの情報もここまで
具体的な方法が知りたかったら次回から気を付けましょう

5:30→5.5
17:15→17.25
のように時間を10進法に変換する方法はどうするのでしょうか？

学校でエクセルやってるけど全くついていけない。ABC分析とか構成比とか本屋でエクセル辞典みたいな本買ったけどわからない。みなさんはどうやって身に付けたのですか？

>>123
*24

>>124
スレ違い

すぃません。どこのスレ行けばイイですか？

>>124
本当に本読んで分からない？
それならまず国語からやったほうがいい
本人が気づかず学習障害になってる場合があるから
あと煽りじゃなくて一度病院いったほうがいいかも

わかりました。ありがとうございましたm(__)m

>>124
体系的に学びたいのであれば、まずはMOS一般用の教科書を一通り流し読み。
ttp://school5.2ch.net/test/read.cgi/lic/1126095220/3-10
いろいろ載ってそうだからって辞典みたいな奴は買っちゃいけません。
あれは伊藤家の食卓です。

つうか検索したら出てくるじゃん。
ttp://home.kanto-gakuin.ac.jp/~ahero/excel/abc.html

MOSって何ですか？ 初心者ですいませんm(__)m

> ▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
> ･ 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。

>>118
For Each hoge In resultsh.Range("a2:y2")
hoge.Value = "*" & hoge.Value & "*"
Next
をフィルターの前。今更だが。

>>130
初心者だから許されると思うな
少しは自分で調べてから質問しろよ屑

はい。もう諦めます。すいませんでしたm(__)m

ex)
"5"と入力したら"05","10"と入力したら"10"というふうに
２桁表示させたいのですが、どうすればいいでしでしょうか？

>>135
書式の表示形式・ユーザー定義で 00 とか

これからマクロを学習しようとするものですが
オススメの本とかありますか？

>>137
おまえが実際に読んでみてわかりやすいと感じた本がオススメ

>>136できました。どうもです。

>>137
>>138に同意。明日でも大きい本屋に行ってこよう。

探してみまつ。
まぁ初心者の入門用ならそう変わるもんでもないかもな

EXCELでその文字列が特定キーワードを含んでいるかどうかを
判定させたいのですが、うまくいきません。

例えば業種で一般自動車運送業とあった場合、
「運送」「自動車」のいずれかがあれば、
答えをTrueにして返したいのですがどのようにしたらよいでしょうか？

失敗例　if(A1="*運送*","YES","NO")

質問させていただきます。
VLOOKUP関数をコピペするときに、参照する値を固定したいのです。

=IF(L77="","",VLOOKUP(L77,sheet!A22:B33,2,FALSE))

この中の　sheet!A22:B33　の部分です。
コピペすると、　sheet!A23:B34　となったりしてしまいます。

>>143
ヒント：絶対参照

>>142
こんなのしか思いつかん。
頭のいい方、フォローよろしく。

=NOT(AND(ISERROR(FIND("運送",A1)),ISERROR(FIND("自動車",A1))))
いちおう、こういう結果は出る。
自動車運送業　TRUE
自転車運送業　TRUE
自動車運搬業　TRUE
自転車運搬業　FALSE

>>142
例えばこんなのとか
=IF(OR(NOT(ISERROR(FIND("運送",A1))),NOT(ISERROR(FIND("自動車",A1)))),"YES","NO")

>>144
ありがとうございました。
解決しました。

>>145、>>146

おお、いままで使ったことない方法でした。
ありがとうございます。

こっちの方がすっきり
=IF(OR(ISNUMBER(FIND("運送",A1)),ISNUMBER(FIND("自動車",A1))),"YES","NO")

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Excel2000 リンクを外す

メールアドレスを入力した時に勝手になってしまう
ハイパーリンクを解除したいのですができずに困っております。
一応、ぐぐってみたところ、 右クリックで一つずつ
消す方法は分かりましたが、できないものもあります。
また、これから入力するメールアドレスはハイパーリンク
しないように設定したいのですがどうすればよいのでしょうか？
ご教示お願い致します。

>>150
現在リンクになってるものは、手動でやるかマクロでやるかのどちらかだ

今後のことは｢インターネットとネットワークのアドレスをハイパーリンクに変更する｣の
チェックを外せば良いが、これは確か2002以降の機能だな。使いたければバージョンアップしな。

ＰＤＦファイルをＥxcelに表示したいのですけど
ＰＤＦを保存して、Ｅxcelで開いても変な文字列しかでてきません・・・
どうすればいいのでしょうか？

現在のExcelはPDFに対応してません
なのでどうしようもありませんね

Excelで開ける形式に変換してからなら開けるけど
直接PDFを開くのは無理
因みに変換の仕方はスレ違いなのでここでは聞かないように

>>153
そうなんですか・・・
ありがとうございます

>>151
150です。ありがとうございました。
やっぱりできないんですね・・・。
バージョンアップを考えてみます。

>>150
VBAが否なので余計なお世話かもしれんが。

Private Sub Worksheet_Change(ByVal Target As Range)
　　With Application
　　　　.EnableEvents = False
　　　　If .CommandBars(1).Controls(2).Controls(1).Caption = "元に戻す(&U) ハイパーリンク" Then .Undo
　　　　.EnableEvents = True
　　End With
End Sub

漏れはこれで回避してる(XL2K)。

▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 　 　 　 　 .】 WindowsXP1
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可

表示→全画面表示について教えてください。
あるﾌﾞｯｸを起動した際、自動的に全画面表示にするようなﾏｸﾛを書きました。
当然その通り起動時に全画面表示になるのですが、困ったことがあります。

それは画面の上部下部がどうしても隠されてしまうのです。
画面の上部はｴｸｾﾙｳｨﾝﾄﾞｳのﾀｲﾄﾙﾊﾞｰ
＿＿＿＿＿＿＿＿＿＿＿＿＿＿
| |X|Microsoft Excel -
￣￣￣￣￣￣￣￣￣￣￣￣￣￣
これが隠れてしまい、
画面下部ではｽﾃｰﾀｽﾊﾞｰ
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
| ｺﾏﾝﾄﾞ　　　　　　　　　　　　　　　| NUM |　　|　 |
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
これがﾀｽｸﾊﾞｰによって隠されてしまいます。

で、ﾀｽｸﾊﾞｰを一度下に下げて、もう一度定位置に戻してやると、どちらもﾋｮｺっと元に戻って
ちゃんと表示されます。

これは>2にあるﾊﾞｸﾞ･動作上の不都合などに当てはまるのでしょうか？
それとも何かの設定によって回避できるものなのでしょか？

どうぞよろしくお願いします。

> ＿＿＿＿＿＿＿＿＿＿＿＿＿＿
> | |X|Microsoft Excel -
> ￣￣￣￣￣￣￣￣￣￣￣￣￣￣
> これが隠れてしまい、
当然。
それを隠すのが全画面表示というもの。

> ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
> | ｺﾏﾝﾄﾞ　　　　　　　　　　　　　　　| NUM |　　|　 |
> ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
> これがﾀｽｸﾊﾞｰによって隠されてしまいます。
当然。
それを隠すのが全画面表示というもの。

逆に
> ﾀｽｸﾊﾞｰを一度下に下げて、もう一度定位置に戻してやると、どちらもﾋｮｺっと元に戻って
> ちゃんと表示されます。
がバグだな。｢ちゃんと表示されます。｣ではなく｢表示されてしまいます｣だ。
うちでは再現しない。>WinXP/Excel2002

お前の書き込みを見ると、全画面表示じゃなくて、
ツールバー･メニューバーのみを非表示にすれば良いだけのような気がする。

昔エクセル使ってたときは、クリックアンドドラッグで選択した範囲の
数値の合計が右下に表示されたように思うんだが、この間仕事の出先で
たまたま使ったときには表示されなかった。あれ表示されるといちいち
SUMとか使わんでもちょっとした合計知りたいときに便利だったのに・・・

>>159
そのバーの上で右クリックして「合計」を選べば出ると思うぞ。
同じ右クリックで「なし」を選んでると表示されない。

>>159
そのバーを表示してなかったりして

>>159
>>160か、メニュー→表示(V)→ステータスバー(S)をチェックしてない。

質問です。
VBAを使うと、メニューバーとかツールバーを操作できるんでしょうか？
たとえば、メニューバーの中から何かを選択して実行させるような仕組みをです。
教えてください。お願いします。

>>163
操作できるよ
興味があるなら｢CommandBars｣でVBAヘルプを検索してみな

>>163
テンプレ読んでから来い

質問です。お願いします。
Nfirm = Cells(1, 2)　　　　←　１２　です
Ndata = Cells(2, 2)　　　　←　２４０です
BS1.Cells(Ndata + 1 + i, -2) = BS1.Cells(i, -2)
　　ここの列の　−２　というのがいまいちわかりません。　ここはBS1が　（３，４）なので　列は　２　なのでしょうか？

Sub MakeData()
Dim Nfirm As Integer, Ndata As Integer, i As Integer, j As Integer
Dim BS1 As Range, BS2 As Range, BS3 As Range
Worksheets("Data").Select
Nfirm = Cells(1, 2)
Ndata = Cells(2, 2)
Set BS1 = Range("D3")
For i = 1 To Ndata
BS1.Cells(Ndata + 1 + i, -2) = BS1.Cells(i, -2)
BS1.Cells(Ndata + 1 + i, -1) = BS1.Cells(i, -1)
BS1.Cells(Ndata + 1 + i, 0) = Log(BS1.Cells(i, 0))
For j = 1 To Nfirm
BS1.Cells(Ndata + 1 + i, j) = Log(BS1.Cells(i, j))
Next j
Next i
　
　　　　　　〜省略〜

End Sub

何がやりたいの?
何が知りたいの?

もしかしてCellsがRangeオブジェクトからの
相対位置を指定出来ることも知らないのか?

普通に受け答えできないやつが相談スレに居座るから
雰囲気悪くなってるんだね。ネットに依存してるんだろうけど迷惑な話だ。

（´-`）.｡oO（ この子、どうしたんだろう･･･ ）

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
すみません、あまりに初歩的なことですが教えてください。
A列に整数が入っていて、それに「Kg」とつけたいのです。セルの書式設定のユーザー定義というのを使う、というところまでは分かったのですが、その先が分かりません。
どうやればセルの数字にKgがつくのでしょうか？
また印刷には反映されますか？ただの数字しか印刷されないということはないでしょうか。
よろしくお願いします。

>>170
#"Kg"
セルに表示されれば印刷もされる。

後は2003なら、「ユーザー設定　表示形式」でヘルプを引いて読め。

【1 OSの種類 　 　 　 　 .】 Windows2000 
【2 Excelのバージョン 　 】 Excel2002sp3 
【3 VBAが使えるか　 　 .】 いいえ 
【4 VBAでの回答の可否】 可
 
すみません教えてください。 
シート内の入力数値が変更された場合に、変更された日付をシート内のセルに表示したいです。
ｔｏｄａｙ（）コマンドを使うと閲覧のみでも日付が変わってしまいます。変更がなかった場合は
前回の変更日を表示するようにしたいです。よろしく御願いします。

>>171
ありがとうございます。助かりました。

>>172
ヒント：WorksheetのChangeイベント

ヒントその２

前スレの44-45
http://makimo.to/2ch/pc8_bsoft/1125/1125178942.html

>>174-175
レスを有り難うございます。
出来ればもう少し易しいヒントを、もうちょっと噛み砕いて説明して頂けると
有難いのですが。
宜しく御願いいたします。

セル内の数式のみの保護をしたいのですがどうしたらいいでしょうか？

>>172
よくみたら２番目は大してヒントになってなかったので、ごめん。

日付がF1に入ってほしいとして
該当するシートオブジェクトに、
Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　ActiveSheet.Range("F1").Value = Date
　　Application.EnableEvents = True
End Sub
シートオブジェクトがわからないなら>>11

>>177
数式が入ってるセルのみをロックしてシートの保護

ありがとうございます。最後の質問です。
シートの保護の、「データ」「オブジェクト」「シナリオ」
のチェックはどうするんでしょうか？

お好きなように
保護中でも編集したければチェックを入れ
編集したくなければ(させたくなければ)チェックを外せばいい

「オブジェクト」や「シナリオ」が何か解らないってなら
そのくらいはググれ

日付の表示のことですが、A1=10、B1=08で、C1に10/8のように表示させたいのですが、
分数として認識されているようで、5/4となります。どなたか知恵を貸してください。

>>182
文字列として表示させたいなら=A1&"/"&B1、08を8にしたいならVALUE(B1)
シリアル値で表示したいなら=DATE(YEAR(TODAY()),A1,B1)、書式を数式で指定したければTEXT(値,"定義式")

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

列にhttp://の抜かれたURLがあります。(例:pc8.2ch.net)
ただし全部埋まってるわけでなく空白セルもあります

これをURLのある場所だけhttp://を接頭に付けて
かつ、すべてハイパーリンクでIEで開くように連携するようにするには
どうすればいいのでしょうか？

URL以外が書かれてあるセルもあるの？

その場合、ＵＲＬとＵＲＬ以外の判断は機械でもできる？

>>185
その列はhttp:.//が抜かれたURLが書いてあるか空白のいずれかです。
よろしくお願いいたします

>>184
=IF(ISBLANK(A1),"",HYPERLINK("http://"&A1))
を作業列に入れてフィルコピー
参照先は勝手に書き換えて

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ

234325-6546-34556-234234
のように"-"で区切られた1桁〜6桁の数字が1つのセル内(A1)に記述されてます。
これをB1,C1,D1,E1にそれぞれ234325,6546,34556,234234と書き出したいのですが
『"データ">"区切り位置"』を使わずに（数式で）する方法はありますか？
上記のような"-"付のセルはA1〜A100くらいまであり、また、"-"前後の桁数はまちまちです。

>>188
> 【4 VBAでの回答の可否】 可･否
ここまでは最低必須情報
テンプレ形式じゃなくてもいいが答えなくちゃダメ

> ★質問テンプレは必須じゃないけど、OSやExcelのバージョンやVBAの可否などの情報は必須。

>>187様
有り難うございます。
とりあえず元の行はどっかまで持って行って入れ替えたのですが
元の行と出来た結果を入れ替えるのは不可能でしょうか

>>189
申し訳無いです。
【4 VBAでの回答の可否】 否
でお願いいたします。

>>190
お好きなようにどうぞ

>>191
含まれる"-"の数は固定?、可変?
可変なら最大いくつ?

>>183、できました。どうもありがとうございました。

>>192
"-"の数は3で固定です。

>>194
B1に=MID($A1,F1+1,G1-F1-1)を入れてE1までフィルコピー
F1に=0
G1に=FIND("-",$A1,F1+1)を入れてI1までフィルコピー
J1に=LEN(A1)

後は必要な数だけフィルコピーしな
F〜Jは非表示にしてもいいし

>>195
ありがとうございます。思い通りの結果になりました。

ゴメン、1カ所間違い
×J1に=LEN(A1)
○J1に=LEN(A1)+1

>>195じゃ4つ目のケツが1桁欠ける

前回は回答ありがとうございました。
あれから、頂いた回答を元にやってみたのですが、

Dim FoundCell As Variant
With Worksheets("Sheet1")
　　　 Set FoundCell = .Range("A2:A150").find("12345678")

Range(FoundCell.Address).Select

Selection.Offset(1, 0).Select

If Cells = "99999999" Then

ActiveCell.Formula = "77777777"

End If

End With

としてみたところ、「実行時エラー'13': 型が一致しません」と
if文のところでエラーが出てしまいます。
variantのところを他の定義に変えても何かしらのエラーがでます。

これはどのように回避すれば良いのでしょうか。。。
どうぞよろしくお願いいたします。

Cellsの使い方が違う。
値を比較したいんだよね？

Dim FoundCell As Range
With Worksheets("Sheet1")
Set FoundCell = .Range("A2:A150").Find("12345678")
End With
If Not FoundCell Is Nothing Then
With FoundCell
If .Offset(1, 0).Value = "99999999" Then
.Value = "77777777"
Else
MsgBox "ちがった", vbExclamation, "99999999"
End If
End With
Else
MsgBox "なかった", vbExclamation, "12345678"
End If

インデント失敗
Dim FoundCell As Range
With Worksheets("Sheet1")
　　Set FoundCell = .Range("A2:A150").Find("12345678")
End With
If Not FoundCell Is Nothing Then
　　With FoundCell
　　　　If .Offset(1, 0).Value = "99999999" Then
　　　　　　.Value = "77777777"
　　　　Else
　　　　　　MsgBox "ちがった", vbExclamation, "99999999"
　　　　End If
　　End With
Else
　　MsgBox "なかった", vbExclamation, "12345678"
End If

×
With FoundCell
　If .Offset(1, 0).Value = "99999999" Then
　　.Value = "77777777"

○
With FoundCell.Offset(1, 0)
　If .Value = "99999999" Then
　　.Value = "77777777"

じゃないの?

>>199,201
ありがとうございます！
お二人の書かれた式で上手く行きました。
あと>>18さんが書かれていたように
対象の列はuniqueなのでこれで無事解決できそうです！

しかし、どうも自分はまだＶＢＡの式の使い方なんかが
根本的に分かっていないようなので更なる精進に努めます。

どうもありがとうございました！

スイマセン。。。
>>202は

誤　>>18さん

正　>>19さん

でした。失礼しました。

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

すみませんが、教えてください。リンクの更新に関するものです。

新規ブックを作り、他ブックからのシートのコピペ、データ範囲（A1:M20など）のコピペをします。それを保存して閉じて、開くと「このブックには、ほかのデータソースへのリンクが含まれています」と出てしまいます。
この表示をなくすだけではなく、根本的にリンクが張られないようにしたいのです。

調べたところ、ファイルを作った後で、編集＞リンクの設定...でリンクの解除はできるようですが、新規ブックを作る際になにかのチェックを入れるとかで、リンクが作成されないようにするにはどうすればよいのでしょうか。

（将来的にはVBAでの解決を試みます。今はぜんぜん分からないのですが、毎日作る数が多くて…）

よろしくご教示お願いいたします。

>>204
値のみコピーじゃダメ？

>>205
レスありがとうございます。
データ範囲のほうは値のみでもよいのですが、きれいに色や罫線を設定したものはシートごとペーストしています。
シートのペーストをしても更新が出ないようにできればいいなあと思っているのですが…

>>204
なんでだろう。私が今やってみたらリンクのコピーにはならない。
エクセルの表（数式入り）を開き、新規ブックも開いてウィンドウ
の設定で左右に配置。

元の表のシートを右クリックして移動またはコピーをクリック、
コピーにチェックをつけ、コピー先を新規ブックにする。

それで新規ブックに名前を付けて保存したら、数式とかそのまま
きれいに張り付いていて、元の表からリンクしていないよ。
何で私のはそうなって、あなたのはリンクされるんだろう。

>>204-207
別のシートから引っ張ってる数式があるのでは？

数字を入力して時間表示させたいのですが、どうしたらよろしいでしょうか？
例
2→2:00
48→48:00

会社で、年度別に人口の推移を男女別にエクセルでグラフにしたいのですが、どうしたら良いでしょうか？
たとえば今の人口が1億2千万人として、2010年は1億、2011年は9000万、2012年は7000万と言うような
グラフを作りたいのです。(もちろん実際は1年でそんなに減りません)
自分で作ると、その年に何人減るのかはできるのですが表がジグザグになります
つまり、2010年だと、男は1千万人、女が1500万人だけど、2011年だと男が2千万人、女が2000万人という感じに・・・
前年より高くなっている年もあるのであ当たりまえですが、１億２千万と言う数字は固定で、
そこから年が経つごとに何人減っていくのかと言う表を作りたいのです。
一番左上から、徐々に下降していく表だと考えてください。

【1 OSの種類 　 　 　 　 .】 Windows２０００
【2 Excelのバージョン 　 】 Excel２００２
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード
エクセル　グラフ
↑これだと、凄い件数ヒットして、どれかどれかわかりません；；

>>210
簡単な入門書よめ

>>209
=TEXT(A1/24,"[h]:mm")

>>210
数学．．．．．いや、算数の問題だ
ここで聞くべき内容じゃない

Excelのコメントについて
一定範囲（例えばa1:c7とか、どこでもいいんですが）を選択した状態でコメント
を挿入しても一番左上のマークが付いたセルのところにマウスを持っていかない
とコメントが表示されないのは仕様？
その範囲内にマウスを持っていけばコメントが表示されるようにしたいとかって
出来ません？

Excel2000 SR-1 OS:2000 SP3
Excel2002 SP3 OS:XP ProSP2

出来ません。

諦めまつ

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

文字列の数字を計算で使える数字に変換するにはどのような関数を使えば良いのでしょうか？

A1に425uiotのように3桁の数字+文字が入っており、
B1にleft関数で425(文字列)を抜き出しました。
同様にA2,B2〜A100,B100くらいあり、最終的にはB1:B100の数字を使い他の計算を行いたいのですが
文字列のままなので計算には直ぐに使えないので・・・

よろしくお願いいたします。

>>216
｢文字列 数値｣@関数の検索1件目

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

「ツール」バーにある「マクロ」で、コントロール＋任意のキーで実行する
マクロを作り、使っています。
しかし、マクロを実行するたびに上書き保存がされ、動作が遅くなり困っています。
マクロが実行されるたびに保存をすることを中止させるには、どうしたらよいのでしょうか？

よろしくお願いします

自動記録したマクロのコードに保存のコマンドが入っているのでは？
Saveとか書いてある行がないですか？

>219
ありがとうございます。
「マクロのコード」をどこで見るのかわからないので、
今探しています。

>219
ありました。「編集」で見られるところですね。
「save」やそれらしい単語はなさそうです…

コードをそのまま省略せずに貼ってみな

>222

Keyboard Shortcut: Ctrl+x
'
ActiveCell.Offset(6, 1).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-1, 2).Range("A1")
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-2, 4).Range("A1")
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-3, 6).Range("A1")
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.Cut Destination:=ActiveCell.Offset(-4, 8).Range("A1")
ActiveCell.Offset(-3, 0).Rows("1:4").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

お願いします

あ、すみません、わかりました

どうもありがとうございます。
勉強になりました。本当にありがとうございました。

…と、個人的には非常に晴れ晴れした気持ちなのですが、
つまらぬ問題で皆様にご面倒をかけて申し訳なかったです…すみませんでした。
それでは失礼します。

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

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

文字列の最初と最後に付いているダブルクォートを取り除きたいけど
やりかたがわかりません。
"AABBCC"
　↓
AABBCC

以下の STRに "AABBCC" が入っている場合、単純に
　Cells(1, 1).Value = Replace(STR, '"', "")
じゃ駄目でした。
ご教示お願い致します。

Replace(STR, """", "")

最初と最後だけでなく中間にある"も消えるけど
Replace使ってるってことは、それは問題無いんでしょ

下記の内容のテキストファイルがあります

項目01[tab]sample01
項目02[tab]sample02
項目03[tab]sample03
項目04[tab]sample04
項目05[tab]sample05

をエクセルに取り組みたいのですが可能でしょうか？
ファイル数が600個なので下記に手動で並び替えるという方は無理です
（正規表現で置き換えられるならOK。sample**の所はそれぞれ異なります）

項目01[tab]項目02[tab]項目03[tab]項目04[tab]項目05[tab]
sample01 sample02 sample03 sample04 sample05

どなたかやり方わかりませんか？

>>229
Dir関数やFSOのFilesコレクションで600個のファイルのパスを取得し
Line InputメソッドやFSOのReadLineメソッドで行を読込み、vbTabでSplit
Cellsプロパティの引数を、通常とは逆にしてシートに書き込み

以上
必要な情報が書いてないので、VBAは使える物だと勝手に判断しました
情報、条件の後出し(VBAは解らないだとか、VBA以外でだとか)はしないでくださいね

すみません。今日はじめてこの板に来て
本スレの>1辺りを見ていませんでした。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 Googleやヘルプでの検索キーワード(日本語ページのみ)

>230さんが回答を出してくださってるみたいですが、理解できません
すみません。具体的にそれを行うのでしょうか？

情報後出しはダメ
次回から気を付けようね

万引きして捕まってから金払っても犯罪は犯罪
ルールを無視して書き込んだら、指摘されてから書き直しても
ルール違反はルール違反
書き直したくらいで回答貰えると思わない方がいい
何でもやり直しが効くと思ったら甘いぜ

まあ、Excelの質問掲示板なんて腐るほどあるから
急ぎなら他で聞きな

> すみません。今日はじめてこの板に来て
> 本スレの>1辺りを見ていませんでした。

と謝って置きながら、PC初心者板にマルチし、向こうのルールである

> ▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━━━━━━
> 　★E-mail欄には何も記入しない★ (IDを出す→偽者対策・質問者の区別、2回目以降も)。

を無視してsageで質問。
ホントにこいつは救いようが無いなw

ここにもだもんな、トリプル初めてみた。
★Word/Excel (MS-OFFICE) 初心者スレッド Part24★
http://pc7.2ch.net/test/read.cgi/pcqa/1123720358/

2chの中だけでマルチというのもなぁ
外には無いと思ってるのかね。

http://pc7.2ch.net/test/read.cgi/pcqa/1129045479/862
最初エクセルの話だったはずなのに、ファイルメーカー？　偽者？

>>228
求めていたやりかたです。
ありがとうございました。

>>178
有り難うございます。希望通りの動作をしてます。

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

ある一つのフォルダに複数のファイルが入っています。

フォルダ─A─a─�@
│ │ └�A
│ │ └�B
│ └b─�@
│ │ └�A
│ │ └�B
│ │ └�C
│ └c─�@
│ 　 └�A
│ 　 └�B
└B─a─�@
・
・
・

あくまで例ですが、上記のようになっています。
これを上のような樹系図としてExcelに出力させる
事は可能でしょうか？
宜しくお願い致します。

>207
ほんとですかorz
>208
式はそのシート内で完結しています。シート内の数値は、他のシートの式で使っています。

【4 VBAでの回答の可否】 可。お願いします
現状、相変わらずリンクされていますので以下の処理をVBAでやろうかと思っています。

編集が終わって閉じている、リンクされてしまったブックを開いて
編集＞リンクの設定、でリンクを解除相当のプロシージャを作りたいと思います。

しかし、任意の文字列をあらわせずに弱っています。感覚的には
ActiveWorkbook.BreakLink Name:=　*, Type:=xlExcelLinks
という感じで実現したいと思っています。

リンクされている参照元ブックはひとつです（できれば複数の参照元ブックでも対応できる方法を教えていただければとおもいますが）。

どうかよろしくご教示お願いいたします。

>>240
可能だけど、自分でコード書けないなら、
そういう樹系図をテキスト出力出来るツールを使って
出力されたテキストをExcelにコピペしな

ファイルリストを樹系図形式でテキスト出力出来るツールは
Vectorとかにいくつも転がってる

>>240
コマンドプロンプトで

tree > hoge.xls

だな。

>243
m9(^Д^)ﾌﾟｷﾞｬー

CNA ←これだけを1つのセルにを半角で入力したいんだけれど、どうすればいいですか？
そのまま入力すると強制的にCANにされてしまいます。

>>243
お前は
tree /?
を見て置いた方が良さそうだな
それにtreeはフォルダにしかラインが入らない

>>245
>>7読め

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 可
質問させてください。以下のマクロSを実行すると、ファンクションFが呼ばれてしまいます.。ファンクションの戻り値の文字列が欲しいだけなのですが。

Function F ()
処理
F = 処理の結果生まれた文字列
End Function

Sub S ()
Debug.Print "ファイル名は”　& F & "です"
End Sub


よろしくご教示お願いします。

Fを呼ばなきゃFの戻り値が得られないだろ
何回も呼ぶということなら最初の結果をどこかにとっておく

>>248
レスありがとうございます。

Sub S ()
Dim strX As String

F '意図通りFに飛びます。
strX = F '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''ここでFに再び飛んでしまいます。
Debug.Print "ファイル名は”　& F & "です"
End Sub

なにか根本的な誤解をしているのでしょうか。教えてください。お願いします。

>>242-243
ありがとうございます。探してみまつ!!

>>249
コード全体と、具体的に何がしたいのかを書きな
何がやりたいのかも書かずに、コードも省略されたんじゃわけわからん

>>249
もしかして呼ぶのと戻り値を取り出すのとは別々の動作で行なうと思ってますか？

>>249
その書き方だと3回実行されるんじゃないの。
strX = F()
debug.print strX & "です"
だけでいいような。

レスありがとうございます。
>>251
すぐ用意いたします。
>>252
別々で行うのではないのですか？！

取り急ぎ。

　1　　+　　1　　=　　2
└ﾌｧﾝｸｼｮﾝ┘　　　戻り値

計算をしなければ計算結果は出ない

君はいきなり｢計算結果はいくつですか｣と聞かれて答えられるか?
普通は｢何の計算だよ？｣ってなるだろ

計算式を与えられて(Functionを呼んで)初めて計算結果(戻り値)というのは出せるものだ

>>253
まさにその通りでした。確認しました。
>>255
なるほど…。ほんとそうですよね。

＃
>>251
解決させていただきましたので、恥ずかしい冗長なコードのUPは差し控えさせていただきます。

みなさまありがとうございました！

A1:A30のうちで一番下に記入されているデータをB1にコピーするワークシート関数は無いでしょうか？
OfficeXPをXPで使用しています。

>>257
既成のワークシート関数は無いが、数式組めば可能

使う関数はA1:A30が数値ならINDEX、MATCH、MAX
文字列ならINDEX、MAX、IF、ISBLANK、ROWかな
やり方はいくつかあるだろうけど、後は自分でやれ

因みに>>229-233あたりを読んで置け

時間計算で使うのですが
セルに40と入力すると０：４０と認識してくれる方法ありますか
一日の労働時間−休憩時間
　　　　　　　　　　　　　　↑
　　　　　　　　　　　　ここに４０と入力したいわけですが・・・

ＥＸＣＥＬ２００３です

>>259
00:40:00 = 40÷24÷60 = 0.027777777

これで何とかなんない？

>>259
休息時間の入ったセルをTIME関数に放り込めばよいのではあるまいか。
A1に「40」と入ってるとすれば、
＝一日の労働時間−TIME(0,A1,0)
直接TIME(0,40,0)とやっても同じ。

できましたぁ
>>260
>>261
ありがとです
ヽ(｀Д´)ﾉｳﾜｧｧｧﾝ

印刷するときに、２ページから5ページというようにできるのはわかるのですが、２，５，７ページというように印刷する方法はないのでしょうか。ワードだと出来るのですが・・・

>>263
VBAで出来るよ

必要な情報を書いてないのでこちらの情報もここまで。
( >>1▼━ 質問のしかた ━、>>229-233参照 )

いくつかのテキストファイルをエクセルファイルに変換したあと、
それらをひとつ（book）にまとめたいのですが、どうすれば宜しいでしょうか？

例えば、エクセルは新規作成する場合、シートが３つありますよね。

あのような感じにまとめたいのですが。

宜しくお願いします。

>>265
各ファイルをExcelで開いて｢シートの移動またはコピー｣でまとめるか
外部データの取り込みで、ひとつのブックに新規シートとしてデータを取り込む

これだけで解るとは思うが、解らなければあとは自分で調べな

ありがとうございます。やってみます。

しかしここの回答はほんとに気持ちがいいね。
簡潔、明瞭、的確。
俺自身は質問したことないけど、いろんなヒントもらって
役立ててる。
回答者諸氏、がんばってください。

散布図のグラフを同じy軸で2つ同時に表示させるのですが、
片方の要素だけ、x軸がある角度だけ傾いたように表示したいのですが、いい方法はありますか？
傾いたx軸は表示されなくていいのですが…。
よろしくお願いします。

>>269
テンプレ読みましたか？

すみませんでした！
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可
【5 検索キーワード 　 　 】軸を傾ける　とかでやってみました
です。
すみません、お願いします。

ある列のデータを行に横並びにしたいのです。
例）
1
2
3
4
5
　↓
1 2 3 4 5

…というふうに。
どなたかやりかたわかる方いらっしゃいませんか??
よろしくお願いします。

>>272
テンプレ(>>1)読もうね。
列を選択してコピー→形式を選択して貼り付け→行列を入れ替える。

273
ホントにすみません!!
どうもありがとうございました。
非常に助かりました。

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

書式設定のユーザー定義で 　"所有者"@"様"
としてそこのセルは=Sheet1!B2というように名前が入っている別の
シートから飛んでくるようになっているのですが
そうするとちゃんと飛んでこずに　所有者=Sheet1!B2様
となってしまいます。手入力で例えば山田と入れれば、しっかり
所有者山田様のようには表示されます。

ちゃんと飛んでくるようにはできるのでしょうか？どなたか
解る方いらっしゃったらすみませんが教えてください。

>>275
Sheet1!B2=山田
Sheet2!A1=Sheet1!B2　表示形式："所有者"@"様"

で、Sheet2!A1に｢所有者山田様｣と表示されますが、何か?

おそらく結果からして、｢表示形式：@｣→｢セル：=Sheet1!B2｣→｢表示形式："所有者"@"様"｣
というような操作をしたんじゃないの?
ユーザー定義の表示形式を使いたいなら｢表示形式：標準｣→｢セル：=Sheet1!B2｣→｢表示形式："所有者"@"様"｣
という順で操作してみな

又は｢表示形式：標準｣→｢セル：=TEXT(Sheet1!B2,"所有者@様")｣or｢セル：="所有者"&Sheet1!B2&"様"｣

>>276

こんな早朝にありがとうございます。
会社に行ったら早速その手順で試してみます。

Excel2000を使ってますが、ワークシート切り替え用のタブがドキュメント下部に出ますが、
これをタブブラウザのようにドキュメント上部に持ってくることは可能ですか？
Windowsのタスクバーみたいにドラッグすれば持っていけるかな？と思ったけど無理でした。。。
あるいは2003にすれば可能とかでもいいので教えてください。よろしくお願いします。

↓こいつらを上に持っていきたい。

ヽSheet1 /ヽSheet2 /ヽSheet3 /
　￣￣￣　　￣￣￣　　￣￣￣

>>278
なんで？

>>279
ナイス突っ込みですね・・・
タブブラウザで上にタブがあることに慣れたので、Excelでもできないかなと思ったんです。

>>278
できるわけがない。
というより、なんでできると思うのかがわからん。

モニタを上下逆にすればいんじゃね？やべっ！これって特許申請すべき？

>>282
つ[特許印紙代￥16K]

バイナリ-パッチを当てるか、ブラウザの方のタブを下にやることを考えよう

教えてください．

　現在，折れ線グラフを作っているのですが，
ある年から標本対象となる母集団が一部が
変更されております．その区間の線を切断し
たいのですが，できるでしょうか？

EXCEL 2000を使っています．

その区間の線をじっくりとクリックして左クリックして、データ要素の書式設定
を選ぶと色々できる。

>>285

おおお，できました．
ありがとうございました．．

↑
レス番間違えました．
>>286さん，ありがとうございました．

棒グラフでひとつだけ突出したデータがあった場合に
手書きでやる時にやるように
　＿＿
｜　　｜
〜〜〜
｜　　｜

みたいに波線で他のデータの範囲にあわせることって出来ませんか？
それかそのデータだけ棒を何本も表示して他のデータ範囲にあわせるとか


エクセル2002です。

>>289
その手の質問いままで何度も出たが、無理。
2個のグラフを並べていじって、姑息的に見た目だけそれっぽくするぐらいしかできない。

excel:2000 os:2000

起動時に
「xxx.xlsを変更し､保存する必要が無ければ、読み取り専用で開いて下さい。
読取専用で開きますか？」とメッセージの出るファイルがあります｡このメッ
セージを解除するにはどうしたら良いですか？
プロパティで読み取り専用のチェックボックスにチェックが入っていないこと
は確認しています（付いていたらこういうメッセージが出てこないことも確認
しました）。

wordなら ツールーオプションー保存に「読取専用を推奨する」というチェック
ボックスがあってそこのチェックを外せばＯＫなんだけど、エクセルってどこ
にそういうのがあるんですかね。

コモンダイアログ > ツール > 全般オプション > 読取専用を推奨する

>>292
見つかりました。あんがと

★Word/Excel (MS-OFFICE) 初心者スレッド Part24★で相談しましたが、
そのスレッドに「問題解決をお望みの方は以下のスレッドへ移動してください」
とありました。
転載ですが、どなたか教えて頂けないでしょうか。

excel2000を使用してます。
二つのセルに入力した日付の差を求める関数はないでしょうか？
DATEDIFFを使ってみたんですが、変数にセルをいれるとうまくいきません。

>>294
まさにそのdatedifなんだけど（fは一つ）、どんな式にしたうまくいかなかったの？

>>295
=DATEDIF(J2,J51,"D")のように、変数にセルを代入するとうまくいきませんでした。

移動じゃなくてマルチなんだから放置しようぜ

>>296　私はできたよ、それで。

j2に「2005/1/1」　　j51に「2005/10/5」と入れて、
a1のセルに、=DATEDIF(D2,D51,"d")って入れたら277って出た。

j2やj51に日付が入っていないんじゃないの？
それか、日付だと思っていても実は適当な漢字とか入れて文字列になっているとか。
大体、どんなエラーが出たのか書いてくれないと。それからマルチはだめだよ。

>>298
すいません。むこうのスレのテンプレを読む前に書き込んでしまいました。
エラーの内容は#NUMと表示されてしまうことです。
ちゃんと日付を入れて試したんですけど・・
何か設定がおかしいのでしょうか

すいません、自己解決しました。
変数の順序が逆でした。
手数掛けました。

>>297
解決したぜ、ざまーみろタコ

普通「自己解決」って。放置されたり、回答が的外れの時にしか使わないんじゃ・・・。

>>300

>>298だけど、私もよくやるミスだった。今頃思い出したよ。
あのさ、気持ちはわかるけど、最後の一行はスマートではない。

子供なんだからスマートじゃないのは仕方なかろう。

ｴｸｾﾙﾏｸﾛを使って深夜飯を作成することは可能ですか？24歳独身です。

【1 OSの種類 　 　 　 　 .】 Windows　ＭＥ
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
よろしくお願いいたします。
Ａ列の中に1000位の値があったとして、その1000の値はひとっとして
同じものがあってはならない場合に　同じ値があるものを検索・探しだしたいの
ですが、どのようにしたら良いのでしょうか？教えていただけないでしょうか
よろしくお願いいたします。

いったん並べ替えをして
真横のセルに
=a1 - b2
という式を入れて値が０になったら駄目。
とかはどうよ。

値が文字列なら並べ替え後に横のセルに，
　=IF(A1=B1
"NG"
"OK")，，
並びを元に戻す必要ありなら先に通し番号ふっとく。

B列に
=IF(COUNTIF(A$1:A1,A1)>1,"←重複してるぞ","")

並び替え必要なし、数値も文字列もOK

ありがとうございます。教えていただいた方法を試してみます。
本当にありがとうございます。

「重複データ」の有無をチェックする
=IF(COUNTIF(A:A,A1)>=2,"重複？","")

ピエロ

>>290
やっぱできないんですね
ありがとう

色々な種類の罫線だらけの表の各値を
別のセルにコピーしたり、移動したりする作業が多いのですが
罫線ごとコピー、移動されてしまいます

「形式を選択して貼り付け」で「値」を毎回指定するのが面倒なので
最初から、すべて罫線無視でやる方法はないのでしょうか？

1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 殆ど使えません
【4 VBAでの回答の可否】 可
困っています、教えてください。
シートをアクティブにする際
Worksheets("本日の合計").Activate
等としますよね。で、シートの名前が代わるかも知れず
Worksheets(* & "合計" & *).Activate
と出来ればいいなと思うのですが,ワイルドカードを使って指定することはできないのでしょうか？
よろしくご教示お願いします。

>>313
｢値の張り付け｣ツールボタンをツールバーに出しておく
表示 > ツールバー > ユーザー設定 > コマンド > 編集 の上から10番目あたり


>>314
Worksheetsプロパティの引数にワイルドカードは使えないので
シート名から"合計"を含むものを探す形になるかな

Dim WS As Worksheet
For Each WS In Worksheets
　If WS.Name Like "*履歴*" Then
　　WS.Activate
　　Exit For
　End If
Next WS

あ、シート位置が固定なら、名前じゃなくてインデックス番号で指定した方がいいかな
対象が左から3番目なら
Worksheets(3).Activate

>>315
早速のレスありがとうございます。プロシージャまで書いていただいて助かります。

>Worksheetsプロパティの引数にワイルドカードは使えないので
素人からすると残念な仕様です。引数に（運用上変わる可能性のある）シート名を渡す場面があるので…。

>316
本当はそれがいいのでしょうが、作業する人が勝手にシートの並び順を変えたりしちゃいますので無理なんです。

>>315
即レスありがとう！
こんなのあったんだ

初歩的な質問で申し訳ないのですが

A B C
1 2 4 =SUM(A1*B1)
2 3 2 =SUM(A2*B2)
3 5 1 =SUM(A3*B3)
・
　　　･
　　　･

と計算しているのですが5行目くらいからAとBの値を入力するだけで
Cには勝手に計算された値が出てきます。
これを2行目くらいから勝手に出てくるようにしたいのですが出来ますでしょうか？
よろしくお願いします。

ズレてしまいました。
左の1,2,3は行数です。

　A B C
1 2 4 =SUM(A1*B1)
2 3 2 =SUM(A2*B2)
3 5 1 =SUM(A3*B3)
　　　・
　　　･
　　　･
今度は正しくできたかな・・・よろしくお願いします。

> 勝手に計算された値が出てきます。
意味わからん
C列に数式が入ってれば、1行目からでも自動で計算された値が返るだろうし
数式が入ってなければ何行目まで行ってもCに値など返らないが。

4行目くらいまではAとBをかけた数式をCに入力しているのですが、
5行目からはCに数式を入れずとも自動的にAとBをかけた値が出力されるのです。

もしかして数式補完のことか?
これが動作する為に必要な同一式の数は固定だぞ

あまり少ない数で補完されたら邪魔で使い物にならないからな

そうですか・・・固定でしたか。設定で変更できるものかと思ったもので･･･

＞あまり少ない数で補完されたら邪魔で使い物にならないからな
確かにそうですね。ただ、変更できれば自分的には便利だったので・・・

どうもお騒がせしました。ありがとうございました。

=SUM(A1*B1)　　という数式が気になる。

たまに見かけるけど、何がしたくてこう書くのかが全く理解できない。
だれかこんな風に教えてるやつがいるのだろうか？

>>325
最初に誰かが間違ってShift押しながら":"押してしまったのが
そのまま普及したとか。

=SUM(A1+B1)　ってのも見たな

ｻﾑってあのTRFのｻﾑ？

ﾍﾎﾞｽﾍﾟｯｸPCに優しいﾃﾝﾌﾟﾚｰﾄを考えています。
少し教えてください。
とある集計に使うﾌﾞｯｸのﾌｧｲﾙｻｲｽﾞがそこそこ大きい場合、
計算式や数値を全てをｾﾙに入力した状態で立ち上げるか
何も無い状態から起動時にﾏｸﾛでｽﾞｻｰっと書き込んでから扱うか
どっちがﾍﾎﾞｽﾍﾟｯｸPCには優しいですか？

たとえば本来使用したいﾌﾞｯｸの内容は
　ｼｰﾄA,B,Cの3ｼｰﾄ
　ｼｰﾄA,B,Cの内容はどれも同じ
　ｼｰﾄAはA1=1,A2=2,A3=3という風に単純に1〜1000までをA1000まで。
　　　　　　B1=A1*1,B2=A2*2,B3=A3*3という風にB1000まで
　　　　　　C1=A1*B1,C2=A2*B2,C3=A3*B3という風にC1000まで
といった感じ（↑の内容は特に問わないでください）のような単純な内容が多く必要な場合

上記内容を全てのｾﾙに入力した状態で保存し、次からﾃﾝﾌﾟﾚｰﾄとして起動するか
ﾏｸﾛのｵｰﾄﾌｨﾙやｼｰﾄのｺﾋﾟｰなんかを記入して、起動時にﾃﾝﾌﾟﾚｰﾄを作り上げるか
どちらがお勧めでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows98
【2 Excelのバージョン 　 】 Excel98
【3 VBAが使えるか　 　 .】 ﾏｸﾛの記録が少し扱える程度
【4 VBAでの回答の可否】 可
【5 PCｽﾍﾟｯｸ　　　　 　 　.】 手元に無いので詳細は判りかねるのですが、Crusoeを乗せたかなり古いﾓﾊﾞｲﾙｻｲｽﾞのﾉｰﾄ

どうぞよろしくお願いします。

再計算の頻度、ブックを開く頻度、ブックを開いてる時間
その他、使い方によって何が良いかは変わってくるし
ヘボと言ってもCPUが弱いのかHDDの読み書きが遅いのか
メモリ容量が少ないのか、メモリアクセスの帯域が狭いのか
その全てがヘボいにしての、その中で特に弱いのはどの部分かなどで変わってくる

なので｢最適な方法 = 実際に最高のパフォーマンスを発揮した方法｣だな

>>329
計算方法の設定を手動にすればいいんじゃないの

>>330
なるほど。確かにそうですね。
まずはﾎﾞﾄﾙﾈｯｸの見極めからですか。
こればかりは実機にて状況を確認するしかないようですね。

>>331
それが結構ﾘｱﾙﾀｲﾑ集計で自動で無いと困るような内容なのです。


ありがとうございました。
週明け会社PC持って帰って色々試してみます。

【1 OSの種類 　 　 　 　 .】 問わず
【2 Excelのバージョン 　 】 問わず
【3 VBAが使えるか　 　 .】 VBAに関して
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 OpenText Shift -Shift-Jis VBA

VBAでバッチ系処理を行っているプログラムがあります
随時CSVを読み込む処理をOpenText関数で行っています
そのプログラムの実行中に同PCで作業をすると
プログラムがOpenTextでいきなり停止する現象が起き、
原因が不明でしたが、Shiftを押している時と判別できました
納得、Shift押してオープンするとデザインモードで起動するのがExcel。
Applicationオブジェクト全体のマクロが停止します

有効な回避策はないでしょうか？
Shiftを押しながら実行されてもマクロが止まらない設定にできれば最高です
１．今後はファイルＩ／Ｏで行いますが、現行アプリはそんな修正できない
２．バッチ処理中はＰＣでなにもしないでねというしかないのですが、あまりに情けない

再現用。Shiftを押しながらマクロ実行してメッセージを出す方法が見つかりません
Public Sub OpenCSV()
Workbooks.OpenText "C:\Temp\test.csv"
MsgBox "Readed"
End Sub

バッチ処理を外部に置けば?
VBSなりアドインなりにすればデザインモードでも動くでしょ
又はAPI使ってフックし、OpenTextメソッドの間だけShift無効化するとか
APIに付いて知りたければググりな。

>334
キーフック、やってみました。
参考 ttp://www.vt.sakura.ne.jp/~xration/htmls/prg_hotkey.htm

フック前からの押しっぱなし起動分はさすがに無理でしたが、
フック後に別窓でShift押しっぱなしにしてもOKでした
・・と思ったらなんかフック処理なくてもOKになってる
Excelはウィンドウハンドル無いんでデスクトップハンドルを使ったのがまずったかもしれない

処理起動〜終了までPCのShiftを無効にすれば安定しそうです
それなら頭と最後に処理少し追加すれば良いだけなので
とりあえず月曜に色々と試験してみます、ありがとうございました

A列の選択箇所で、A1とA2を比較してA2が大きかったらA2に色づけする
という数式はどうするのでしょうか。条件付き書式の設定はわかります。

A2の条件付書式
式が　=A2>A1 書式を指定

すいません、どなたか教えてください。。
エクセルなんですが、入力規則などで
打ち込む数値を「１０００単位」とか「１００単位」で制限する方法はありますか？
最小桁数を設定するだけだと、それ以上の数値であれば一桁台の数値も打てちゃいますよね？
あくまでも単位で制限したいんですけど。。。
お分かりの方がいらしたら初心者をお助けくださいませ。

excelでy=ax+bのような関数をグラフにするにはどうしたらよいのでしょうか？
当方excel2003使用です。

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

範囲内に、一行目と異なる文字列が含まれてる場合に
メッセージボックスを出すようにしたいです。
以下のようにやってみたのですが、
対象の範囲が広くなり、何度も繰り返した時に、処理が重くならないか心配です。
もっとスマートなやり方があったらご教示ください。

For i = 1 To 5 Step 1
If Range("A1") <> Range("A" & i) Then
MsgBox "異なる文字列があります", vbOKOnly
End If
Next i

>>338
入力規則 を ユーザー設定 で =MOD(A1,1000)=0 とかに設定

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

ADOでパラメータクエリを作成し、複数のアクセスMDBファイルから
クエリでデータを取得するプログラムを作っています。

このときいくつかのMDBには存在しないフィールドに対しても、クエリを実行するのですが、
当然エラーが出ます。

On Error Resume Next
Set rs = New ADODB.Recordset
Set rs = cmd.Execute

としても、次に飛んでくれないで、黄色い表示のデバッグになってしまうのですが・・・・エラーメッセージは以下です。
"実行時エラー'-2147217904 (80040e10)':
1つ以上の必要なパラメータの値が設定されていません。

クエリや他の部分はフィールドが存在するときは正しく動いています。フィールド名を事前に取得して
チェックさせれば良いのでしょうが、このエラーだけresumeが効かないのが理解できません。

>>336
条件付き書式を使わず、数式のみでってことなら無理

>>338
ユーザー設定では数式も使える
単に任意の数値でTRUEを返す式を入れればいいだけ

必要情報を書いてないので、こっちも実際の数式は書かない
あとはヘルプなり関数の検索なりで調べて自分で書け

>>339
グラフにすればいいじゃん

>>340
数が多ければ範囲を配列値として処理した方がいいだろうけど5カ所程度ならそのやり方でもいいだろ
あと比較対照(A1)は、毎回参照しないでA1の文字列を変数に入れた方が速い
とりあえず比較対照を変数にするだけで、処理時間は3〜4割減らせる
範囲.Valueに対してFor Eachループ回せば9割以上の処理時間を減らせるだろう(つまり処理時間は元の1/10以下)

それと異なる文字列が有った場合は、その位置を選択してループを抜けるなり
異なる文字列の件数を表示させたりするのがスマートじゃないか?
単にメッセージだけってのはスマートじゃないな

>>342
> ･ VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。

それとVB6スレに行った方がいい内容だな(VB6使ってないとしても)
VB言語(VBA)でのデータベースアクセスなんて、Excel関係ないし

>>343
親切にありがとうございます。そちらで聞いてみます。
全部貼ると60-80行くらいで目障りそうだったので・・・

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

ファイルを複数台のPCで共有しているのですが。
ファイル名administratorv2やversion1と元々１つのファイルが何個かになっているのです。
このようなファイルを作れなくするようには出来ますか？
また、なんでこのようなファイルが作られるのでしょうか？

>>343
ご助言ありがとうございます。
いちいち参照するから重くなるのか��(ﾟдﾟ)
一発でできる関数でもないかとフラチなことを考えていたのですが、
基本的なやり方はこれでいいんですね。
メッセージの表示については、これから手を加えます

>>345
エクセルじゃなくてシステムの問題だろ。

どうでもいいけど、
こういう知識持ってるやつって
どうしてこう、まともな口の聞き方が出来ないヤツが多いんだろうね。
機械としか付き合ってないとこうなるのか？
　↓
>>343､>>347

>>343
必要情報ですか。。
ある任意のセルに「１０００単位」の数字しか
打ち込めないように設定したいんですけど。。。
「１０００」とか「２０００」ならＯＫ、
でも「１００８」とか「１１５０」だとエラーが出るような
そういう式が知りたかったんです。。

> ▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━

> ★質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。

> ★質問テンプレは必須じゃないけど、OSやExcelのバージョンやVBAの可否などの情報は必須。

（´-`）.｡oO（ どうでもいいなら書かなければいいのに･････ ）

本当はどうでもいいどころか、どうしても書きたかったんだろ( ﾟдﾟ)σ)´Д｀)ﾌﾟﾆﾌﾟﾆ

ここのルールに従ったまともな質問の仕方も出来ない奴に
まともな口聞く必要なんてあるのか？
ここはまともな質問者には滅茶苦茶親切だが
ヘタレ(Excelの知識がではなく人として)な質問者にはそれなりに厳しいスレだぜ。
それでも2chの中では甘い方だけど。

つーか>>347はまだしも>>343の何処がまともじゃないんだ？
もしかして偉そうな口振りだとか言いたいのか？
ここ2chでは質問スレの回答者じゃなくても偉そうな奴は多いし
回答者が偉そうなのはなんら問題ないだろ。

あまり348みたいのを構うなよ
こういうチンケな虫は定期的に湧くものだ

>>351
はいはいﾜﾛｽﾜﾛｽ

>>352
＞もしかして偉そうな口振りだとか言いたいのか？
そう、その通りｗ
知識があるってだけでずいぶん偉そうじゃんｗ
どこの誰がヘタレ(Excelの知識がではなく人として）って認識で厳しく答えてんの？
まあ、この手の「知識がありゃあ上」みたいなスレで
「知識もあって人格者」なんてのを期待するのがどだい無理な話だったなｗｗ
いかにもネット弁慶な奴らが集まりそうなスレだが、
あまりにもベタに多すぎて『笑えるぜ。』（←こういう>>352みたいな「だぜ」口調も珍しいしなｗ

>>353
お前みたいなコバンザメ、いやきせいするだけのダニ野郎も
定期的に・・・っつうか常駐してっかｗｗｗｗｗｗ

可哀相･････

こういうときの為に日本語には「喧嘩両成敗」といういい言葉がある。

喧嘩っつーか、誰かさんがｗｗｗｗｗｗとか言って踊ってるだけじゃんｗｗｗｗｗｗ

馬鹿が馬鹿に回答してるんだから、間違った答えも
DQNな口調も我慢しろよ。馬鹿なんだからしょうがないだろ。

質問する側としては、厳しく言ってくれるスレの方が質問する前に内容をしつこく
これでもか、というぐらい吟味するので勉強になる。
親切なスレは甘えてしまって自分のためになりません。

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

下の長いコードって、For intCnt = 1 To 100みたいのを使って、短くかっこよくかけるでしょうか。3つまではうまく動いているのですが、今後数が増えたらやだなあと思い質問させていただきました。

Sub Test()
Dim x1As String
Dim x2As String
Dim x3As String
Dim intCnt As Integer
intCnt = 1
x1= Workbooks("001.xls").Worksheets("Sheet1").Cells(5 + intCnt, 1)
intCnt = intCnt + 1
x2= Workbooks("001.xls").Worksheets("Sheet1").Cells(5 + intCnt, 1)
intCnt = intCnt + 1
x3= Workbooks("001.xls").Worksheets("Sheet1").Cells(5 + intCnt, 1)
End Sub

よろしくお願いします。

>>360
個別の変数x1, x2, x3を使う限りはひとつひとつ書くしかないと思うけど
二次元配列使えばForも使わず一発で出来ますよ

例えばA6="aaa"、A7="bbb"、A8="ccc"の場合
　Dim x As Variant
　x = Workbooks("001.xls").Worksheets("Sheet1").Range(Cells(上端行番号, 1), Cells(下端行番号, 1)).Value
で、x(1,1)に"aaa"、x(2,1)に"bbb"、x(3,1)に"ccc"が入ります。
A6:A8の場合、上端行番号は6、下端行番号は8です。これは定数にしておいた方がいいかも。

For使うなら
　Dim x(1 To 3) As String
　Dim intCnt As Integer
　For intCnt = 1 To 3
　　x(intCnt) = Workbooks("001.xls").Worksheets("Sheet1").Cells(5 + intCnt, 1).Value
　Next intCnt
で、x(1)に"aaa"、x(2)に"bbb"、x(3)に"ccc"が入ります。

この｢変数名(インデックス)｣を配列、又は配列変数と言いますが、これを使えば上記のように簡単に出来ます。
配列使わなければおそらくループなどを使って記述するのは無理だと思います。

Dim x(10) As String

Dim intCnt As Integer
For intCnt = 1 To 10
x(i) = Workbooks("001.xls").Worksheets("Sheet1").Cells(5 + intCnt, 1)
Next i

配列使ったらだめなん？

>>361-362
お返事ありがとうございます。
詳しい説明とコードのご提示助かります。配列ですか。思いつきませんでした。。。
For文を使わない方法というのは、一気に転記するような感じなのでしょうか？
いずれにしても、これで数が増えようと平気になりそうです。
使いこなすにはまだまだ精進しないといけませんが、ありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ

オートシェイプの吹き出しの中でIF関数を使いたいのですが、うまくいきません。
「入力した文字列は参照名または定義名として正しくありません」と警告されてしまうのですが、
どうすればいいでしょうか？よろしくお願いします。

そもそもオートシェイプ内って関数使えたっけ？

>>365
関数使えないのですか・・・
ある条件でオートシェイプ内のテキストの内容を変える、
ということをしたかったのですが、ほかの方法を試してみます。
ありがとうございました。

>>366
オートシェイプ内では関数使えないから
別のセルで計算させておいてオートシェイプに反映させるようにしたら？
セルＡ１の値（計算結果）をオートシェイプに反映させるのは
オートシェイプをアクティブにして　数式バーに直接　「=A1」といれる。
^^^^^^^^^^^^^^^^^

数式バーに直接 　　に下線いれたかったのにずれた。

> ･ 図を書く場合、TABや連続する半角スペースは無視されるので注意

関数の質問です

セルに指定した文字があるかどうか求めたいんですけど
そんな関数ありますか？

例えば
東京都渋谷区
大阪市中央区
東京都品川区
京都府京都市

などで「東京」を含んでるセルのTRUEかFALSEを求めたいんですけど

>>370
if

FIND("東京",セル)>0

・・・・ ('A`)
SEARCH

>>370
SEARCH("東京",A1)>0

ありがとです、なるほどSEARCHですか
IF　に　SEARCH　を入れると上手くいかないんですけど

例えば
IF(SEARCH("大阪",A1)>0,SUM(B1:B10),SUM(C1:C10))

SEARCH関数入れるとＩＦのFALSEが返らないのですけど
それはＳＥＡＲＣＨ関数で完結してしまうからですか？

それか式が間違えてるのだろうか

>>375
VBAのInStr関数では検索文字が無かった場合に0を返しますが、
SEARCH関数やFIND関数は、検索文字が無かった場合に0ではなくエラーを返します。

なので結果は0か0より大きいかで判断するのではなく、エラーか否かで判断するのが良いと思います。
=IF(ISERROR(SEARCH("大阪",A1)),SUM(C$1:C$10),SUM(B$1:B$10))

｢ISERROR(SEARCH("大阪",A1))｣の式はエラーの場合(大阪が含まれない場合)にTRUEを返します。
大阪が含まれてる場合にTRUEを返したければ｢NOT(ISERROR(SEARCH("大阪",A1)))｣のようにしてください。

>>375

　　　　　A　　　　B C
東京都渋谷区　1　2
大阪市中央区　2　4
東京都品川区　3　6
京都府京都市　4　8

ここでD1に入れる式。
=IF(ISERROR(SEARCH("東京",A1)>0),(SUM(B2:B5)),(SUM(C2:C5)))

こんな感じで、ヒントになります?

>>70
IF(ISERROR(SEARCH("大阪",A1))=TRUE,SUM(C1:C10),SUM(B1:B10))

これでどう？

>>370の間違いｗ

>>376
リロードせずに書き込んだんで、ちょっと恥ずかしい。
完璧な説明と数式ですね。
いや、今日はいつもの回答者諸氏が不在かなと思って、
稚拙ながら回答者の真似事をしてしまいました。
スレ汚し失礼しました。

ｵｵｫｯ!　ありがとうございます
そのISERROR使ったら出来ました
そして勉強になったです

>>370
最近似たような内容を見たような、と思ったら
>>142-149

どうしたの?

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

ABCDEFGHの8つのアルファベットをランダムに使った文字列があり、
その文字列の3つ目のAをBに置換するというような処理を関数化したいのですが
どのようにしたら良いでしょうか？

具体例を書くと、文字列が
BDAHGEHAGDCEBAHDGECBA
で、3つ目のAをBに置換する場合は
BDAHGEHAGDCEBBHDGECBA　(先頭から14文字目をAからBに置換してあります)
のように置換したいのですが。
文字列の文字数は決まってませんが、置換するのは1文字のみです。
そして同一文字に置換する場合もあり、置換が成功したかどうかで後の処理を分けたいです。

sub test()
dim 文字列 as string
文字列="BDAHGEHAGDCEBAHDGECBA"

【3つ目のAをBに置換】

if 【置換成功か失敗かを判断】 then
【置換成功時の処理】
else
【置換失敗時の処理】
end if
end sub

これの【3つ目のAをBに置換】と【置換成功か失敗かを判断】の部分を書いてもらえないでしょうか

関数　置換　関数　成功か失敗か判断　作成
判断（置換（文字列））

れｐぁせ、いずえらー

どうしたの?

なんかラリってるのが居るな

>>384
前スレの>>157は読んで判る？
やるなら【置換可能かどうかの判断】（マッチするかどうか）の式になるんだけど。

あ、ちなみに
http://pc8.2ch.net/test/read.cgi/bsoft/1125178942/
の157〜158な。

>>384
Sub test()
　Dim 文字列 As String
　文字列 = "BDAHGEHAGDCEBAHDGECBA"

　If SAMPLE(文字列, 3, "A", "B") Then
　　MsgBox "置換しました" & vbCrLf & "置換結果：" & 文字列
　Else
　　MsgBox "置換できません"
　End If
End Sub

Function SAMPLE(ByRef strTemp As String, ByVal lngNum As Long, strSea As String, strRep As String) As Boolean
　Dim i As Long
　For i = 1 To Len(strTemp)
　　If Mid$(strTemp, i, 1) = strSea Then
　　　lngNum = lngNum - 1
　　　If lngNum = 0 Then
　　　　Mid(strTemp, i, 1) = strRep
　　　　SAMPLE = True
　　　　Exit Function
　　　End If
　　End If
　Next i
　SAMPLE = False
End Function

変数を参照で渡して書き換えているので、文字列を変数に格納してることが前提です。
>>384を見る限りはこの点は問題無さそうですが。
引数のByRefや、最後の｢SAMPLE = False｣は省略しても問題有りませんが
一応コードの明示性を上げるために入れてあります。使い方は見れば解りますよね。

Function ReplaceAtoB(src, dst)
ReplaceAtoB = False
dst = Replace(src, "A", "Z", 1, 3) '一旦Zにする
dst = Replace(dst, "Z", "A", 1, 2) '2つをAに戻す
If InStr(1, dst, "Z") <= 0 Then Exit Function ' Zが残っていない
dst = Replace(dst, "Z", "B", 1, 1) '残ったZをBにする
ReplaceAtoB = True
End Function
Sub m()
s1 = "BDAHGEHAGDCEBAHDGECBA"
If ReplaceAtoB(s1, s2) Then
'成功
MsgBox s1 & vbCr & s2
Else
'失敗
MsgBox "失敗"
End If
End Sub

ひさしぶりにhogeさん見た希ガス

コピーして貼り付けるとき、コピー元の範囲が、破線きらきらしてますが、

貼り付けた跡も、コピー元の破線がきらきらしたままです。

どうしたら、貼り付けと同時にコピー元の破線キラキラを消して、元の状態に戻せるでしょうか。

お願いします。

>>393
ステータスバーに書かれていることを読んでみろ

>>393
同時には無理だが、「Esc」キーを1回押せば済むこと。

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

A列に1〜100までの値がランダムにたくさん（100行以上・不定）はいっています。
このうち、値が30以下のものがいくつ含まれているかを算出するにはどうすればいいですか？

>>396
=COUNTIF(A:A,"<=30")

質問です。
文字の後に\記号をつけて表示したいのですが、「,」が表示されません。
式は　　="10月請求　\"&SUM(C3:C9)
結果が　10月請求 \62458
と表示されます。
10月請求 \62,458
と表示したいです。何か根本的に間違ってるのでしょうか？

>>398
間違ってるよ。
なぜ、\さえつければコンマが挿入される、と思うの？

="10月請求 "&TEXT(SUM(C3:C9),"\#,##0")

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

お願いします。
200ピクセル幅の列×５行の罫線で囲ったスペースに、文章を入力
しました。
１行では入りきらなかったので、編集→フィル→文字の割付で下の
行に割付しました。
ところが、右端の文字が半分だけはみ出てしまい、印刷すると右の
罫線が消えてしまいます。
これは、こういう仕様なのでしょうか？
対策としては、現在割付を行った後にフォントを１サイズ小さく
していますが、できればこの手間は省きたいので、何かの設定で
きちんと罫線内に収まる方法があれば教えてください。
よろしくお願い申し上げます。

>>399
最初、セルの書式設定で通貨の\つくようにしても文字が混ざっているせいか
付かなかったので、とりあえず\だけ付けてみました。それでコンマはどうしたら付くのかなと。
TEXTを使えば良かったのですね。
ありがとうございました。

>>395
お前も知らないのかよ
ちゃんとステータスバーに書いてあるだろ

> コピー先を選択し、『Enterキーを押すか、』張り付けを選択します。

ってさ
Enterキーで張り付ければ張り付けと同時にコピーモード解除される
何が｢同時には無理だが｣だよ

>>400
ワープロ代わりにExcel使うなハゲ!
http://pc5.2ch.net/test/read.cgi/bsoft/1025524380/

これの次スレ立てようか?

>>402
そんなスレあったんだ・・・w

>>402
395は”貼り付けを選択したら同時には”って意味だ。
しかし誤読されても仕方ないな。すまんw

>402
漏れも見てきましたｗ
たまに居ますね、電卓片手にワープロで表作ってる人！

文字の割付で欠けるのは仕様のようですね。
読んでてふと思い付き、セルの書式設定を「縮小して
全体を表示する」にしておくと、文字の割付をしても
欠けないということに気が付きました。
ヒントありがとうございました。

>>390
完璧です。
ありがとうございました。

>>391
3 A Bというのも固定じゃないと言うのを言い忘れてましたが、
自分が言い忘れてたその点を補完したら完璧に動きました。


hogeさんのコードの方がかなり高速だったので、
今回はhogeさんの方を使わせて頂きますが、
391さんのReplaceを使うアプローチも参考になったので
今後役立たせて頂きます。

>>393
貼り付けるときに　貼り付け　とか　CTRL + V　を使わずに
ENTER　で確定すると同時に消える。

>>407
ヒント：>>402

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

A1からA200までに不規則な数値があり
その中で一番下にある値から、A1:A200の最大値を引いたものを出したいのですが
作業セルや配列数式を使わずに出せる方法を教えてください
例えば
10
30

20
なら一番下の20から最大値の30を引いて-10
20

10
30
なら一番下の30から最大値の30を引いて0を出したいです
範囲内にある数値は正数で空欄の場合もあります

=A200-Max(A1:A200)

>>410
いや、一番下のセルの値じゃなくて
>>409でも書いた通り"一番下にある値"です
　　A
1　10
2
3　30
4
5　50
6
7　20
8
9
だったらA7の20から50を引いて-30
更にA9に40と入力したら40-50で-10を出したいのです

>作業セルや配列数式を使わずに出せる方法を教えてください

学校の宿題ですか〜？ w

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 否
【4 VBAでの回答の可否】　否
【5 検索キーワード 　 　 】　エクセルのヘルプでLOOKUP関係やＣＯＵＮＴ関係など


「人物ごとに最大値を抽出する」というシートを作ろうと思ったのですが
どうもうまくいきません。
人物はあらかじめ決まっていて、Ｃの列に入力されています。
そこにＡとＢの列に人物と点数を貼り付けたら、
（人物の順番や、何回その人物がでてくるかは毎回違う）
Ｄの列にはその人物ごとの最大値を呼んできたいのですが
（この場合、Ｄの列に上から10、100、30、と表示したい）
　Ａ　　Ｂ　　Ｃ　　Ｄ
田中　10　田中　　
佐藤　20　佐藤　
高橋　30　高橋　
佐藤　50
佐藤　100

どのように入力すればいいでしょうか？
「ＭＡＸ」と「ＶＬＯＯＫＵＰ」を同時に扱うような感じで考えてみましたが
うまくいきませんでした・・・

> 学校の宿題ですか〜？ w
いいえちがいますよ

今後この式は複数ブック及び複数ユーザーで使うことになり
更に範囲を書き換える必要性が出てくる可能性が高いが
末尾セルに何か書いてあるわけではないので可変範囲式にするわけにもいかないので
書き換える箇所が1カ所で済むように作業セルを使わない方法を
配列数式を扱ったことがない人、扱い慣れてない人が書き換えて
配列数式にするのを忘れたりして不都合が起きないように通常数式を求めてます

>>412
で、君は煽るだけで回答は出来ないの？
それとも回答するだけの知識があるから煽ってるの？
さてどっちなのかな。

その答えを結果で示してみましょうか（￣ー￣）ﾆﾔﾘ

>>411
=IF(A200<>"",A200-Max(A1:A200),IF(A199<>"",A199-Max(A1:A200)),・・・
って２００回書けば？

>>409
=INDEX(A1:A200,MATCH(MAX(A1:A200)+1,A1:A200,1),1)-MAX(A1:A200)

>>413
D1=MAX(IF(A$1:A$5=C1,B$1:B$5,0))
をCtrl + Shift + Enterで確定して下方にフィルコピー。
範囲は必要ならそちらで書き換えてください。

配列数式を使わずに、個人別に1列の作業セルを使う方法もあるので
そちらが良ければ紹介しますよ。

>>415
いちいち絡むなよ！みっともない

>>416
IF関数のネストは7つまでが限界ではないですか?
例え200のネストが出来ても1セルの文字数制限に引っかかりますね
ネタで書いてるのかもしれないけど

>>417
出来ました
ありがとうございました

>>417
ありがとうございます！できました！
しかしこんな短時間で２問も・・・しかも簡潔な１文で。
スゴすぎ

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 否
【4 VBAでの回答の可否】　否
【5 検索キーワード 　 　 】　エクセル初心者入門を読んでみました

重複してるデータを取り除いて詰めて並べたいのですが、可能でしょうか？
Ａ列に下のようなものを貼り付けたら、Ｂ列にはダーっと
重複を除いたものを詰めて出したいのです。（実際には数千行）
Ａ　　　　Ｂ
東京　東京
大阪　大阪
東京　静岡
静岡
大阪

最初、C5のセルに
=IF(COUNTIF(A$1:A5,A5)>1,"",A5)と書いて
上に向かってドラッグして、「重複を消すだけの列」をＣ列に作った後
Ｂ列に、空白になった部分を詰めていく式を作ろうとしたんですが
詰めるやり方がわからず、止まってしまいました。

こんなややこしい方法を使わなくても、
一発でＢ列に重複を除いた字をダーっと詰めて並べられる式は作れるものでしょうか？

【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 複数ページ　印刷

１.　３ヶ月(８〜１０月)をＡ４版１ページで印刷してるシート構成なんですが、中抜き(９月を飛ばし)して１ページでの印刷は可能ですか？
よろしくお願いしますです。

>>422
【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 印刷　セルの横幅

余白の設定、セルの横幅の全く同じシートなのに、
印刷可能領域が違うのはなぜでしょうか？

余白は両シートとも、左右とも0
シートで使っているセルの横幅は両シートとも同じ。

よろしくお願いします。

初心者ですみません。
3√８＝２　ですが、エクセルで3√８の計算をさせるのは、どうすれば
良いでしょうか。。。。

初心者スレが見つからないのでこちらで質問させてもらいます。
エクセルにコピペする時にLINKやいらない情報まで貼り付けてしまいます。
単純に書式などをデフォで文章のみをコピペする場合はコピーした後に何かを押せば
文章以外の情報をクリアできたと思うんですがど忘れしてしまいました。

よろしければ教えて下さい。。。

>>421
一発でＢ列に結果を出す式自体は作れますが、余計ややこしいだけだし処理も重くなりますよ。
とりあえず式自体はこんな感じで。
B1=INDEX(A$1:A$100,SMALL(IF(COUNTIF(OFFSET(A$1,0,0,ROW(A$1:A$100),1),A$1:A$100)=1,ROW(A$1:A$100),""),ROW()),1)
配列数式なのでCtrl + Shift + Enterで確定して下方にフィルコピー。
但し、範囲をA1:A3000とかに書き換えて1000行目あたりまでコピーしたりなんかすると
恐ろしい事になるので注意。はっきり言って数千行じゃ実用は無理です。(もっと軽く出来るかも知れませんが

C列も使う方法だとこんな感じで。
B1=INDEX(A$1:A$100,SMALL(C$1:C$100,ROW()),1)
C1=IF(COUNTIF(A$1:A1,A1)=1,ROW(),"")
この方法でも数千行となるとそれなりに重いでしょうけど。

どちらも返す値が無くなるとエラーを返すので、エラーを表示させたくなければ>>6を参考に論理式を組んでください。
一応こういう処理はVBA推奨と言っておきます。

>>422
９月の行(又は列)を非表示にして印刷。

>>423
印刷倍率が違ってませんか?
ファイル > ページ設定 > ページ > 拡大縮小印刷
を確認してみてください。

>>424
=8^(1/3)

>>425
張り付けた後に張り付け範囲の右下に表示されるオプションボタンの｢貼り付け先の書式と一致させる｣

>>426
ありがとうございます。
それとコピーして張り付ける前にF？キーか何かでできたと思うんですが
そんな機能はないですか？
記憶違いかなぁ・・・。

426番さん　ありがとうーーーーー。感謝！！！

>>426
できたぁ。
エロガッパさん、ありがと！

>>426
ありがとうございます〜
マクロも勉強してみますです

ハイパーリンクを使って、下位にあるフォルダへのリンクを作っています。

階層構造を変更しようと思い、そのエクセルファイルをもう1階層上に
移動させたところ、リンクは変更されずそのままなので、
リンクが開かなくなってしまいました。こういった変更への対策は
ないでしょうか？

>>431
> ★質問テンプレは必須じゃないけど、OSやExcelのバージョンやVBAの可否などの情報は必須。
を守って、現在具体的にどういうリンクを組んでいて
エクセルファイルをどのパスから1階層上に移動させたのかを書いてみよう

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

元々はMacG4（Excel2001）で作成されたデータなのですが、
それを開くとシート全体が灰色になっていてクリック出来ず、
入力したはずの内容と列番号が消えてしまいました。
ちなみにそのMacで開いても同じ状態です。
シートの保護等はかかってないし、新しく挿入したシートは正常です。
どうすれば直るでしょうか？

>432
アドバイスありがとうございます。以下の通りです。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 簡単な事なら出来ます
【4 VBAでの回答の可否】 それしかなければ努力します
【5 検索キーワード 　 　 】EXCEL　ハイパーリンク　変更

全て相対指定でリンクしています。
実際はリンク先フォルダが大量にある状態です。

■　フォルダ
└−■
　　├□　EXCELファイル
　　├■　リンク先フォルダ1
　　└■　リンク先フォルダ2

EXCELファイルからリンク先フォルダ1,2へ


■　フォルダ
├−□　EXCELファイル
└−■
　　├■　リンク先フォルダ1
　　└■　リンク先フォルダ2

EXCELファイルからリンク先フォルダ1,2へ
つまり行き先は一緒

すいません。僕は409さんではないんですが
興味があったので便乗質問させてください。

>>417　に書かれている
=INDEX(A1:A200,MATCH(MAX(A1:A200)+1,A1:A200,1),1)-MAX(A1:A200)
という式の中の
MATCH(MAX(A1:A200)+1,A1:A200,1)という部分は
「（存在し得ないハズの）『最大値+1』をＡ1〜Ａ200の中で上から順に探してこい」
という式ですよね。

この式でどうして「一番下にある数字の入っているセル」が選ばれるのでしょう？

「一番下にある数字の入っているセルを探す式」を作ろうと思った時に
「最大値+1を探させる式にすればいい」という発想が
理解不能です・・・
どなたか理解できるように解説お願いします

MATCHが指定範囲を順番に見て指定値を超えたところで止まってその前の値を返すから

1,3,5 で 4 を指定すると1から順番に見ていって5まで行った時点で戻って3の位置を返す
6を指定すると最後まで行くので5の位置を返す

【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 使い始め
【4 VBAでの回答の可否】 可
すみません、教えてください。たくさんブックが開いているとき保存せずにエクセルを終了したいのですがどうすればいいでしょうか。
今は下のプロシージャでやってますが、PERSONAL.xlsが残ってエクセルは終了されません。
よろしくご教示下さい、お願いいたします。

Sub 保存せずエクセル終了()
If MsgBox("保存せずにブックを閉じます。" _
& vbCrLf & "エクセルは終了します。" _
& vbCrLf & "実行してもよろしいでしょうか。", vbOKCancel) = vbCancel Then
MsgBox "処理はキャンセルされました"
Else
　　 Application.DisplayAlerts = False
　　 Workbooks.Close
　　 Application.DisplayAlerts = True
　　 MsgBox "全ブックの変更を破棄しました。" _
& vbCrLf & "エクセルを終了します。"
Application.Quit
End If
End Sub

>>438
自己レスです。解決しました。
Application.QuitをELSEの直後に持ってきたら意図どおりに動きました。

Application.Quitって終了を予約しているんですね。
で終われる状態になったらアプリを落とす、ということなんでしょうか。

スレ汚しすみませんでした。

>>434-435
> 具体的に
ね
実際にどういうパスとどういうリンクなのか書けよ

EXCELファイルを1階層上に上げても、リンク先を
そのままにしたいのですが、普通にコピペすると
パスが変わらないので、フォルダA,Bにアクセスできません。
自動的にパスを /フォルダA　に変えたいということです。
これで分かります？
-----------------------------------------
■　フォルダ
├■
｜└□　EXCELファイル
├■　フォルダA
└■　フォルダB

【パス】
../フォルダA
../フォルダB
-----------------------------------------
■　フォルダ
├□　EXCELファイル
├■
├■　フォルダA
└■　フォルダB

【パス】
/フォルダA
/フォルダB

構造を勘違いしていたので、直しています。

フォルダという名前のフォルダと
EXCELファイル.xlsという名前のEXCELファイルがあるのか?

そこは話に影響ないと思ったので、適当です。はい。

影響あるかどうかは周りが判断する
とりあえず出せる情報は全て出せ

では、こうなっています。
-----------------------------------------
■マイドキュメント
├■プログラム
｜└□プログラム一覧.xls
├■旋盤
└■MC　

【パス】
../旋盤
../MC
-----------------------------------------
■マイドキュメント
├□プログラム一覧.xls
├■プログラム
├■旋盤
└■MC　

【パス】
/旋盤
/MC

下はこうしたい構造とパスですね。

>>431
結局リンク先の絶対位置を変えたくないため、相対パスを書き換えたいってことか
相対パスは自身(.xls)からの相対位置を自動で追うものなので
絶対パスが変わらず、相対パスが変わるものは絶対パスで書くのが基本だろ
相対パスで書いたものが相対パスを追わず絶対パスを追ったら、相対パスの意味無いじゃん

どうしても相対パスにしたいなら、リンク先から見て相対位置の変わらないもの
(例えば■マイドキュメントとか)からの相対パスをVBAで組めよ
少なくともお前がやりたいことは『自身からの相対パス』では無いということだけは断言しておく
相対パスでも絶対パスでも無いなら、あとは自分で作るしかないな

【1 OSの種類 　 　 　 　 .】 WindowsXP SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 VBA 視覚スタイル

VBAで自作したフォームにLunaの視覚スタイルを適用する方法を教えてください。
ボタンの角を丸くしたり、ボタンの背景にグラデーションがかかるように
したいのですが。

>>449
VB.NET等で外部に作れ
VB6(VBAのユーザーフォームもVB6準規)は視覚スタイルをサポートしていない
ttp://support.microsoft.com/default.aspx?scid=kb;ja;309366

エクセル2000、XPですが、フィルタ表示で
任意の一文字を含むセルを抽出したところ
その文字が含まれるにもかかわらずなぜか
抽出されないセルがあるのですが、何が原
因か分かる方おられますか？
ちなみにそのセルは、１つのセルに百文字
程度入力してあります。

あと今気づいたのですが、検索したい文字列は
スペースが連続して入力してある後に入力して
ありますが、それが原因なのでしょうか・・・

>>451

その百文字をここに貼って、
「「○」という文字でフィルタをかけるとこのセルが抽出されません」
って書いてくれないと、色んな原因がありえすぎて考えにくい

その百文字を見られるのがマズいなら、マズい部分の文字を適当に変えてくだされ
よろしく

えっと、そのセルには

東京都・港区、大東区、・・・（同様に続く）　　←全て改行なしで下行に続く
□□・・・（←スペースが１５個くらいあった後に）
・・・□□☆条件はうんぬん・・・（と続く）

というようなものが１つのセル内に入力してあって、
☆を含むものを抽出するのですが、他のセルは抽出
されるのにこのセルだけ抽出されない。
ちなみに他のセルはこれ程は多くの文字が入力は
されていません。
入力内容は似たようなものですが、せいぜい２０文字程度です。

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

表Aにデータ入力。
その数値で表Bに見積作成。
表AでA1、A2、A3と順にデータ使うときはよいのですが、
A1、A3、A5ととびとびでデータ拾うときに表Bを
上詰めにできず１行おきの見積もりになってしまいます。
使わないデータを無視して上詰めにしたいのですが。。。

よろしくおねがいします。

>>455
まずは自分の書いた数式なりコードなりをここに書いてみよう

複数の開いたウインドウの自動上書き保存したいのですが、
どうやるのでしょうか？

> ★質問テンプレは必須じゃないけど、OSやExcelのバージョンやVBAの可否などの情報は必須。

Public Function こういうことを言ってるのか？() As String
dim RowA as long
dim RowB as long
For RowA=0 to 最後
　If 処理する？ Then
　　処理した
　　SheetA.Cells(RowA,...) = SheetB.Cells(RowB,...)
　　RowB=RowB+1
　Endif
Next
こういうことを言ってるのか？ = ">455"
End Function

今回答待ちの質問って無いよな?
情報不足で回答保留ばっかりだ
きちんと質問しないとまともな回答付かないぞ

ﾊﾟﾜﾎﾟのｽﾚないのでここで聞きます。
ｴｸｾﾙで作成した一覧表（文字、画像）を
ﾊﾟﾜﾎﾟに貼り付けたいのですが、
調整したら文字が潰れたり。。。

綺麗な貼り方ってありますか？

ちなみに表をShift押しながらの編集より「図のｺﾋﾟｰ」を選んで、
ﾋﾟｸﾁｬ形式で貼り付けてます。
ﾋﾞｯﾄﾏｯﾌﾟでやるとﾋﾟｸﾁｬよりも汚くなるので。

スレ違い
専用スレが無いものはこっちで↓

スレたてるまでもない質問に答えるスレ
http://pc8.2ch.net/test/read.cgi/bsoft/1123764624/

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

質問です。
ＥＸＣＥＬで既知のＸ，Ｙの配列に対して、
３次の多項式近似した場合の各係数（ａ〜ｄ）を
EXCEL関数を用いて求めることは出来ますか？

ツール−アドイン−分析ツール−回帰分析
で可能ですが、マクロではなく関数で求めたいと思っております。

最小自乗法を用いて出来る様なのですが、excelに展開が出来ません。
わかる方、もしくはこの計算方法が出ているＨＰ等わかる方は
ご助言願います。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 使えないし、使ってません
【4 VBAでの回答の可否】不可
【5 検索キーワード 　 　 】

一応はっときます。
なぜこのセルだけ抽出されないのか不思議です。
書式設定も何もかも他のセルと一緒なのに・・・。

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】可
【5 検索キーワード 　 　 】マクロ、VBA、文字列追加、空白セル以外

マクロを使って、A1〜Z1セルの範囲の中でデータが入力されている
セルにだけ"▲"をそのセルの文字列の先頭に追加したいのですが、
下の記述では上手くいきません。どこが悪いのでしょうか。

For Each hoge In resultsh.Range("A1:Z1")
Range("A1:Z1").SpecialCells(xlCellTypeVisible).Select
hoge.Value = "▲" & hoge.Value
Next

【1 OSの種類 　 　 　 　 .】 Windowsxp
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 使ってません
【4 VBAでの回答の可否】不可
【5 検索キーワード 　 　 】

当方OSがXP、officeは2003のExcelに関する質問なのですが
セルの書式設定タブから選んで"ユーザー定義"の中にある
yyyy"年"m"月"d日というのがありますが、その下にある
[$-411]yyyy"年"m"月"d日というのも存在しています。
この[$-411]というのは消しても問題ないそうなのですが
[$-411]自体にはどのような意味があるのでしょうか？

どなたか、知っている方がいられましたらご教授よろしくお願いいたします。

>>464
ちょっと実験してみたけど256文字(バイト?)以上の部分は見てくれないみたいだ
文字列を分割とかしないとだめかも

>>467
わかりました。助かります。
本当に感謝です。

ちょっと変えて、条件分岐で空白の時とそれ以外で
例えばA1のみの場合、

For Each hoge In resultsh.Range("A1")
If A1 = """" Then
hoge.Value = "" & hoge.Value
Else
hoge.Value = "▲" & hoge.Value
Next

ともしてみたけどダメみたいです・・・困った。。

>>465=469
おまいさん、For Each構文もIf構文もオブジェクトについても何もわかってないだろ。

>【3 VBAが使えるか　 　 .】 使えない
もうちょっと勉強しような。

For Each hoge In Range("A1:Z1")
　If hoge.Value <> "" Then
　　hoge.Value = "▲" & hoge.Value
　End If
Next

ちなみに、
Range("A1:Z1").SpecialCells(xlCellTypeVisible).Select
は、セルA1からZ1まで可視の（非表示でない）ものすべて選択、だよ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】可
vbaでのフォルダの操作について教えてください。
vbaでフォルダのコピー、リネームをしたいのですが、どうやればできるのでしょうか？
ファイルについてはコピー、リネームはできるようですが、フォルダとなるとそのような情報は見つけられませんでした。
自動でフォルダのバックアップを取りたいのです。
ご存知の方よろしくご教示お願いします。

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

Rangeオブジェクトの行や列の指定に変数を使いたいのですが書式が分かりません

Range(A1) の A1 を　a = A1 と事前に宣言して a で行や列を指定してやるにはどうすれば良いのでしょうか？

>>463
Excelの問題ではなく数学の問題なのでスレ違い

>>466
ググれば書いてあるだろ
ttp://office.microsoft.com/assistance/hfws.aspx?AssetID=HA010346351041

>>471
FileSystemObject使え
使い方はググれ

>>472
Cells使えばいいじゃん

>>473
ぐおー、BuildPathメソッドですか。クリエイトとかメイクとかに着目してました。
ありがとうございました。

Excelファイルのデータを自動バックアップしておきたいのですが
以前やっていた方法がどうしてもググっても出てこないので
教えてください。

それは上書き保存しても前の上書きする前のファイルが別に残っている方法です。
それはツールのところにフロッピーみたいな形をしたところがあり、それを右クリックして
何かチェックをすれば出来る方法だったのですが、今いくら探しても見当たりません。
今はExcel2003を使っていて、前の時は相当古いやつだったのでそういう機能は無くなって
しまったのかもしれません。

> 自動バックアップしておきたいのですが
ツール>オプション>自動保存

> ツールのところにフロッピーみたいな形をしたところがあり、それを右クリックして
> 何かチェックをすれば
Excelの場合、ツールアイコンの右クリックメニューは、
どのボタンからでもツールバーメニューしか出ないのでそれは何か他のソフトとの記憶違いだろうな

>>476
やはりその方法しか無いのですね。
以前使っていたのは何せ「95」の時のものでしたので
そういう機能があったのです。。

上書きしてもバックアップファイルは上書きする前のものが残っているのでしょうかね？？？

自動保存は元ファイルとは別な場所に保存するので元ファイルは残る
因みに95にもそういう機能は無いが、そういう機能を付けることは出来る
もちろん2003でもね

自分でVBAコード組んでもいいし、確かそういうアドインもあるから自分で書けないなら探してきな

現在回答待ちは 0件

WindowsXP　Excel2002　VBAでの回答の可否→否

エクセルのヘッダフッタ領域にはワードアートやオートシェイプを入れることは不可能でしょうか。
ワードで社名ロゴをヘッダに入れていましたがエクセルでも同じようにしたいのです。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 無理
【4 VBAでの回答の可否】 お願いします！

すいません、教えてください。
３行目にあるセルが全て空白（空値）の時、という
条件分岐を使いたいのですが、こんなんでいいのでしょうか？


If resultsh.Row("A3") = vbNullString Then
処理
End If

>>480
ロゴを画像にして画像を入れればいい
上に入れるならワードアートやオートシェイプを入れた範囲を
行タイトルにしてもいいし

>>481
If WorksheetFunction.CountA(Rows(3)) = 0 Then

>>475
ファイル(F)→名前を付けて保存(A)→ツール(L)→全般オプション(G)→
バックアップファイルを作成する(B)にチェックを入れる

ではなくて？見当違いだったらごめんなさい。

ツールバーじゃなくてコモンダイアログの方だったってオチか?

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

すいません、>>409にある質問と一部似ているのですが
Ａの列に何行になるか毎回違う文章を貼り付ける時、
その文章の一番下のセル番地を表示するセルを作りたいのですが
式がどうもうまく作れません。

単純にCOUNTAを使うと、途中に改行しが入っていた場合に
その開いた行がカウントされないので、実際の一番下のセル番地より１つ少ない値になります。

>>417にある式を応用してみようと思ったのですが
Ａ列に入れるのが数字ではなく文字なので
#VALUE!が出てしまってうまくいきません。

どなたかわかるかた、よろしくお願いします。

>>485
過去ログ読むと文字列でも使える式が貼られてるよ
ログ持ってなければにくちゃんねるとかで見られる

既出の物をまた貼ってくれるピエロが居るかも知れないけど

過去ログを読むと
hoge ◆hoge//WRxY さんがいかにスゴイかわかるなぁ・・・
ロクに答えも用意できないのに質問者の上げ足ばっかりとってる人達を
尻目に淡々と丁寧に答えてる・・・。なんかもう別格って感じ。

『hogeの一問一答　　２ちゃんねるから生まれたExcel解説書　
　これが新時代のヘルプファイルだ』　とか書籍化したらそれなりに売れそう

>>476.478

エクセルを弄くっていたら、

名前をつけて保存の画面→右上隅ツール→全般オプション
バックアップファイルを作成

私が以前していたのはこれでした。

つまり>>484だったってわけか

>>483
上の方で私が探していたことを応えてくださっていたのですね。
気が付かずごめんなさい。
何とか事故解決しました。
ただ以前自分がやっていた時はパスワードをかけずに出来ていたのに
今はかけないと出来ないようになっていたので、頻繁に開ける作業をする時は
不便です。

|　何について調べますか？
| ┌────────────┐
|　|　お前を消す方法　　　　　　　｜
|　| 　　　　　　　　　　　　　 　　　　｜
| └────────────┘
|　[ オプション(O) ]　　　[ 検索(S) ]
|　
｀──────────┐ ┌───
　　　　　　　　　　　, '´l,　　..| ./
　　　　　　　, -─-'- 、i_　　|/
　　　 ＿_, '´　　　　　　　ヽ、
　　　',ー--　●　　　　　　　ヽ、
　　　 ｀"'ゝ、_　　　　　　　　　 ',
　　　　　　〈｀'ｰ;＝=ヽ、〈ｰ- 、 !
　　　　　　 ｀ｰ´　　　　ヽi｀ヽ iﾉ
　　　　　　　　　　　　　　　 ! /
　　　　　　　　　　　　　　r'´、ヽ
　　　　　　　　　　　　　　｀´ヽノ

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

フォーム、コントロール以外の普通のセル上で
TABキー押したときにイベントを起動する方法はありますでしょうか？
もしあれば、その記述を教えてください。

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】条件付　修飾
お世話になります。

２セルを１項目とした構成です。
キーワード”合”を入れると、そのセル＋右隣のセルに自動で罫線（太めの枠線）が引かれるようしたいんですが可能でしょうか？
修飾が目的なので罫線じゃなくても可能ですが、各々条件付書式はすでに３つ使ってます。

　　　Ａ　Ｂ　　　　Ｃ　Ｄ
　　　北海道　　　　東　北
　　　＿＿＿
３　　合　１　　　　　　３
　　　￣￣￣　　　　

初歩の初歩の初歩の質問ですみません。

英語の勉強時間をとりあえずExcelに記録したいと思うのですが、
（あの升目に時間を記入）あとで、その数字を足したりするように
できますか？最初からしないとだめですか？

一度もExcelつかった事がなくて、でも今、使い方を覚えてる時間もないので、
計算は、時間がある時にすることにして、とりあえず時間の記入だけしていきたいんですけど・・・
よろしくお願いします。

>>494
こっち。
★Word/Excel (MS-OFFICE) 初心者スレッド Part24★
http://pc7.2ch.net/test/read.cgi/pcqa/1123720358/

>>494
＞その数字を足したりするようにできますか？
出来る

＞最初からしないとだめですか？
大丈夫。
また、最初に式(＝ＳＵＭ)を入れておけば、自動で計算してくれちゃう。
ここまで準備しておけば電卓より早い。

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

>>492
Application.OnKeyで設定すれば出来ますよ。
　Application.OnKey "{TAB}", "KeyPress_TAB"
を実行すれば、以後TABキーを押すごとにKeyPress_TABプロシージャが呼び出されるので
　Sub KeyPress_TAB()
　End Sub
に処理を書けばいいだけです。
無効にするときは、第二引数を省略してOnKeyメソッドを実行してください。
　Application.OnKey "{TAB}"
ブック単位ではなくアプリ(Excel)単位の設定なので、特定ブックのみで有効にしたければ
呼び出すプロシージャの方で特定ブックがアクティブな場合にしか動かないようにするか、
イベントで有効無効を切り替えるかしてください。


>>493
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Count = 1 Then
　　If Target.Value = "合" Then
　　　Range(Target, Target.Offset(0, 1)).BorderAround xlContinuous, xlMedium
　　End If
　End If
End Sub

をシートオブジェクトに貼ってください。( >>11参照
4行目が線を引く処理で、｢xlContinuous, xlMedium｣が線の種類を指定する引数(オプション)です。
線の種類については下記サイトの下の方にある表が参考になると思います。
ttp://www.eastwest-net.co.jp/vba/sample2.htm
枠線とのことなので、周囲四辺に線を引くようにしましたが、(その方が簡単だし
>>493の例のように上下のみの線が良ければ書き直しますよ。

＞498
ありがとうございます。
無理だと思ってたのでめちゃくちゃ嬉しいです。

>>482
おぉーありがとう。図を入れるボタン全然見てなかったよ。こりゃすごい。

500の続き。
ヘッダに大きい画像を入れたら背景ができるんだね。こりゃすごい。

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



　　　　　　Ａ　　　　　　　　　　Ｂ　　
１　　カラーテレビ４月　　１１００
２　　カラーテレビ５月　　　５４０
３　　カラーテレビ６月　　　６５０
　　　　（以下続く）


いままでこういうやつを

http://www.excel.studio-kazu.jp/lib/e3c/e3c.html

ここの(１)のようなやつにいちいち入力しなおして作成していたのですが
じかんがかかるし手間がかかります
なるべく少ない手順でさっと作成できないでしょうか？
カラーテレビ以外にもエアコンなど何十種類もあります
よろしくおねがいします。

>>502
Const TitleCol As Byte = 3 'タイトル列の番号 (C列なら3、D列なら4)
Dim strTemp As String, strMonth As String, strName As String
Dim i As Long, j As Long, bytLen As Byte
Application.ScreenUpdating = False
Cells(1, TitleCol + 1).Value = "1月"
Cells(1, TitleCol + 1).AutoFill Range(Cells(1, TitleCol + 1), Cells(1, TitleCol + 12))
For i = 1 To Cells(65536, 1).End(xlUp).Row
　strTemp = Cells(i, 1).Value
　bytLen = Len(strTemp)
　strMonth = Mid(strTemp, bytLen - 2, 2)
　Select Case True
　　Case IsNumeric(strMonth)
　　　strName = Left(strTemp, bytLen - 3)
　　Case IsNumeric(Right(strMonth, 1))
　　　strName = Left(strTemp, bytLen - 2)
　　　strMonth = Right(strMonth, 1)
　　Case Else
　　　MsgBox "データ形式が不正です" & vbCrLf & vbCrLf & i & "行目" & vbCrLf & strTemp
　　　Exit For
　End Select
　If i = 1 Then Cells(2, TitleCol).Value = strName
　For j = 1 To Cells(65536, TitleCol).End(xlUp).Row
　　If Cells(j, TitleCol).Value = strName Then Exit For
　Next j
　If Cells(j, TitleCol).Value = "" Then Cells(j, TitleCol).Value = strName
　Cells(j, CLng(strMonth) + TitleCol).Value = Cells(i, 2).Value
Next i
Application.ScreenUpdating = True
こんな感じかな。同一データが重複することは考慮してません。
不都合があれば報告して貰えれば出来る範囲で対応します。
VBA解るとのことなので、ご自分で書き換えてもいいですけど。

【1 OSの種類 　 　 　 　 .】 XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 はい
【5 検索キーワード 　 　 】vba　オプションボタン　　設定　記憶

ユーザーフォーム上に設置されたオプションボタンの選択状況を
次回のフォーム呼び出し時にも同様の選択で呼び出したい、という方法で詰まってます。
sheetに選択状況を書き込んでおくという方法以外で検討していますが
エクセルのみで完結できる方法あるでしょうか？
（もしないのであればtextへの書き出しを予定しています）

携帯から失礼します。
1 XP
2 XP
3 はい
4 はい
5 A1セルの数値が500以上なら自作マクロ1を、200以下ならマクロ2を実行させたいのですが、可能でしょうか？
可能ならどう記述すればいいのでしょうか？

>505
if range("a1").value >=500
　　　マクロ1
　else if range("a1") <= 200
　　　マクロ2
endif

>>504
以前も同様の質問があったけど
ユーザーフォームのプロパティは保持出来ないから
シートなり外部ファイルなりに書き出して
次回それを読むしかない

>>505
if range("a1").value>=500 Then
　マクロ1
elseif range("a1").value<=200 then
　マクロ2
end if

別にselect case使ってもいいし、callするかは以後の処理に合わせてお好きなように

>>498 ：hoge ◆hoge//WRxYさん
ＶＢＡ自体の貼り付けに手こずりましたが、動きました！ありがとうございます。
これで楽になります。解説も付いてて今後のヒントにもなりそうです。

ついでで申し訳ありませんが、>>493：上下線のバージョンもお願いしたいのですが・・・。

>>508
Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Count = 1 Then
　　If Target.Value = "合" Then
　　　With Range(Target, Target.Offset(0, 1))
　　　　.Borders(xlEdgeTop).LineStyle = xlContinuous
　　　　.Borders(xlEdgeTop).Weight = xlMedium
　　　　.Borders(xlEdgeBottom).LineStyle = xlContinuous
　　　　.Borders(xlEdgeBottom).Weight = xlMedium
　　　End With
　　End If
　End If
End Sub

>>504
他人の仕様をとやかく言うのもなんだが、
外部に保存するより、シートに書き出した方が便利だと思う。

見えるのがいやなら非表示にすればいいし。

509 ：hoge ◆hoge//WRxYさん
感謝です。お世話になりました。

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

ComboBoxのstyleプロパティをfmStyleDropDownListに設定して
Private Sub ComboBox氏名_KeyDown(ByVal vbKeyReturn As MSForms.ReturnInteger, ByVal Shift As Integer)
　　　・・・・
　　　・・・・
End Sub
というkeyDownイベントを書いているのですが、
Enterキー以外のキー（バックスペースキー他）を押下したときも
このイベントが発生してしまいます。
これはこういう仕様なのでしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 ･いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ＶＢＡ　　マクロ


マクロの記録でやったらこうなったんですが短くできませんか？
あとこのマクロを他ブックでも使いたかったらＰＥＲＳＯＮＡＬ . ＸＬＳに保存しておけばいいんですよね？

Range("E1").Select
ActiveCell.FormulaR1C1 = "1"
Range("F1").Select
ActiveCell.FormulaR1C1 = "2"
Range("G1").Select
ActiveCell.FormulaR1C1 = "3"
Range("H1").Select
ActiveCell.FormulaR1C1 = "4"
Range("I1").Select
ActiveCell.FormulaR1C1 = "5"
Range("J1").Select
ActiveCell.FormulaR1C1 = "6"

>>512
はい、そういう仕様です。というか引数の名前自体を変えても何の意味もありません。
KeyDownイベントでは第一引数に押されたキーの種別を表すコード番号が格納されますが、
そのコード番号がKeyCodeに格納されるかvbKeyReturnに格納されるかの違いだけです。
逆に組込定数名を使うとその定数を潰すだけですし、イベントの引数名を変えるとコードに汎用性が無くなります。

Enterキーを押下したときのみ処理を行いたければ
Private Sub ComboBox氏名_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
　If KeyCode = vbKeyReturn Then
　　処理
　End If
End Sub
としてください。Enterキー以外でもイベントは発生しますが、Enterキー以外では処理が行われなくなります。


>>513
Range("E1:J1").Value = Array(1, 2, 3, 4, 5, 6)
又は
Range("E1").Value = "1"
Range("E1").AutoFill Range("E1:J1"), xlFillSeries

前者は1行で済みますが、入力セルが多ければそれだけArray関数の引数を書かなくてはなりません。
後者は入力セルがいくつでも、範囲("E1:J1")を("E1:Z1")等と書き換えるだけです。
状況に応じてお好きな方をどうぞ。保存はPersonal.xlsで問題ないと思いますよ。

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel２００３
【3 VBAが使えるか　 　 .】 ･いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 日付 Excel　入力　認識

Excelに"10/1"と入力すると，日付と認識されますが，これを文字列と
して認識させる方法はありますか？"'"を前につけるといいとかは検索し
て見つかったのですが，この"'"が邪魔なのです。。

>>515
セルの書式設定→文字列　とかいう話?

ありがとうございます
できました！


しかし
Range("E1:E6").Value = Array(1, 2, 3, 4, 5, 6)
とやるとぜんぶ1が入力されてしまいます
どのようにすればうまくいくのでしょうか？

>>516
おおっあなた天才。ありがとう。

下のでやったらできました
ありがとうございました

>512
おもろい。そういう解釈して修正する人もあるのか

入門書とかって関数の使い方は書いてても意味は書かないもんな
全てはSendMessageにたどり着くことをしっかり説明すべきだな

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

これ短くなりませんか？

Range("N2").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1-01*"",R1C2:R1000C2)"
Range("N3").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1-02*"",R1C2:R1000C2)"
Range("N4").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1-03*"",R1C2:R1000C2)"
Range("N5").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1-04*"",R1C2:R1000C2)"
Range("N6").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1-05*"",R1C2:R1000C2)"
Range("N7").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1-06*"",R1C2:R1000C2)"
Range("N8").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R1C1:R1000C1,""*Z1*"",R1C2:R1000C2)"

キーボードマクロ?

>>521
Dim i As Long
For i = 2 To 8
　Cells(i, 14).Formula = "=SUMIF($A$1:$A$1000,""*Z1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
Next i

ついにＩＤチェッカーが完成しました。２ちゃんの書き込み時のＩＤからアクセスポイントを特定するツールです。
昨日ビリヤード板にて実験に成功し東北と福岡からの書き込みである事を証明しました。

証拠
http://sports9.2ch.net/test/read.cgi/billiards/1124849366/153
http://sports9.2ch.net/test/read.cgi/billiards/1124849366/159

この便利なツールを欲しい方は上記スレにて、『タダヲさんＩＤチェッカー下さい』　とレスして下さい。
ダウンロードパスが入手できます。

１０行１０列のマスに１〜１００の数字を重複することなく
ランダムに入力したいのですが、どうすればよいのでしょうか？

ありがとうございます
できました
最後にもう一度聞いてもよろしいでしょうか
こういう場合はどうやって短くしたらいいんでしょうか？


Dim i As Long
For i = 2 To 8
　Cells(i, 14).Formula = "=SUMIF($A$1:$A$1000,""*Z1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　Cells(i, 15).Formula = "=SUMIF($A$1:$A$1000,""*V1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　Cells(i, 16).Formula = "=SUMIF($A$1:$A$1000,""*S1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　Cells(i, 17).Formula = "=SUMIF($A$1:$A$1000,""*E1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　Cells(i, 18).Formula = "=SUMIF($A$1:$A$1000,""*Y1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　Cells(i, 19).Formula = "=SUMIF($A$1:$A$1000,""*J1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
Next i

>>526
>>523の応用でしょ。
もう一つ変数宣言してそれを14〜19にすればいい。

>>525
テンプレ読もうね

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

いつのまにかエクセルのいちばん上の青い棒が
なくなりました

どーすればいいですか？

エクセル2003です

５２３がわからなかったのにそれの応用といわれても・・・
わかりません

【1 OSの種類 　 　 　 　 .】 Windows XP　　　　　　　【2 Excelのバージョン 　 】 Excel 2003
【3 VBAが使えるか　 　 .】 はい　　　　　　　　　　　　【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 [for, On Error GoTo, エラー処理, excel]
Sheet1に貼ってある図をSheet2に一回はりつけて、
その後Sheet3に貼り付けるという操作を複数の図に対して行いたいです。
グラフの数字部分(i)はとんでいる部分もあります。
そこで、グラフが存在しない場合にOn Error Goto で次ぎの図へ移るように、処理しているつもりです。
しかし、一回目に図画存在しない場合はうまくOn Error 処理ができるのですが、
2回目の図不存在エラーはなぜか回避できません。
On Error resume Next で指定した場合は、何回でもエラー処理はうまくいきました。
ぜひご教授をお願いします。

Sub aaaaa()
Dim i As Integer
j = 1
For i = 30 To 1 Step -1
On Error GoTo eskip
Sheets("Sheet1").Shapes("AAAAA " & i).Select
Selection.Cut
Sheets("Sheet2").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Selection.Cut
Sheets("Sheet3").Select
Cells(j, "B").Select
ActiveSheet.Paste
Sheets("Sheet1").Activate
j = j + 1
eskip:
Next i
On Error GoTo 0
End Sub

>>531
【3 VBAが使えるか　 　 .】 はい

>>531
教えてもらった内容を、自分で理解しようとするくらいの努力は
してみてもいいと思うよ。
どうしてもわからなければ、「ここの部分がわからない」という形で
聞けば、また答えてくれる人もいるだろうけど。

>>525
VBAでやるのと、作業セルを使って数式で出すのとどっちが良いですか?
一応OSとExcelのバージョンも書いてくださいね。

>>526
Const LIST As String = "1234567890123ZVSEYJ"
Dim i As Long, j As Long
For i = 2 To 8
　For j = 14 To 19
　　Cells(i, j).Formula = "SUMIF($A$1:$A$1000,""*" & Mid(LIST, j, 1) & IIf(i = 8, "1", "1-0" & i - 1) & "*"",$B$1:$B$1000)"
　Next j
Next i
Choose使っても良いのですが、可変部が1文字のみならMidで処理した方が楽だし速いと思います。

>>529
｢いちばん上の青い棒｣というのはタイトルバーのことかな?
それなら全画面表示モードになっていませんか?
メニューバーの｢表示 > 全画面表示｣をクリックしてみてください。

>>532
On Error Resume Next
For i = 30 To 1 Step -1
　Err.Clear
　Sheets("Sheet1").Shapes("AAAAA " & i).Select
　If Err.Number = 0 Then
　　Selection.Cut
　　　：
　　j = j + 1
　End If
Next i
こんな感じでどうでしょうか?

>>526
Dim i As Long, j As Long
Const k As String = "ZVSEYJ"

For i = 2 To 8
　　For j = 14 To 19
　　　　Cells(i, j).Formula = "=SUMIF($A$1:$A$1000,""*" & Mid$(k, j - 13, 1) & _
　　　　"1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　　Next j
Next i

または、

Dim i As Long, j As Long, k As Variant

k = Array("Z", "V", "S", "E", "Y", "J")

For i = 2 To 8
　　For j = 14 To 19
　　　　Cells(i, j).Formula = "=SUMIF($A$1:$A$1000,""*" & k(j - 14) & _
　　　　"1" & IIf(i = 8, "", "-0" & i - 1) & "*"",$B$1:$B$1000)"
　　Next j
Next i

でどうでしょうか。

>>535

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2002 SP-2
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 エクセル　TIPS　１００　乱数　ランダム　等をいろいろと試しました。

１０行１０列のマスに１〜１００の数字を重複することなく
ランダムに入力したいのですが、どうすればよいのでしょうか？

VBAでOKですが、今後の勉強のために
作業セルを使って数式で出す方が
希望です。

>>537
K1=INT(RAND()*10000)+ROW()/100
L1=RANK(K1,K$1:K$100)
A1=INDEX($L$1:$L$100,(ROW()-1)*10+COLUMN(),1)

K1、L1の式は100行目までフィルコピー。
A1の式はJ列まで、及び10行目までフィルコピー。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可 。でも出来ればVBAなしで
すみません教えてください。
ある複数のセルの範囲を入力者に変えられたくないのですが、特定のセル範囲を保護するにはどうするのでしょうか？
シート保護をすると全部のセルが保護されてしまうようですが、特定の、飛び飛びの範囲だけを保護したいのです。
よろしくご教示ください。
またこれが大切なのですがVBAで保護する予定のセルの値を取得する処理があるのですが、問題なく取得できるのでしょうか。
あわせてご教示いただけたら大変助かります。お願いいたします。

>>539
保護したくないセルのロックを外してシートの保護を行ってください。
外し方は任意のセルを選択し、｢セルの書式設定 > 保護 > ロック｣の
チェックを外すだけです。

また、ロックの有無や保護内容に関わらず、VBAでのセルの値の取得は可能です。

【1 OSの種類 　 　 　 】 Windows2000
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか　 】 勉強はじめたばかり
【4 VBAでの回答　　　】 可
VBAの独学を始めました。本を買ってVBAエディタでプログラムを書き出しましたが、
コード作成の途中で実行してみるにはどうすればいいでしょうか。
VBAエディタには実行ボタンが見当たりません。エンターキーを押したら改行されるだけです。

>>541
･ツールバーの右向き三角アイコン (表示されてなければ｢標準｣ツールバーを表示させる)
･メニューバー > 実行 > Sub/ユーザーフォームの実行
･F5キー

どれでもお好きなものをどうぞ。

>>542
サンクス
右向き三角アイコンで実行しました。
構文エラーがでた (++ ); ;

>>543
実行前に、メニューのデバッグ→VBAProjectのコンパイルを
やっとくといいよ。

>>540
出来ました、ありがとうございました。
助かりました。

>>544
おお、Nextがありません　とか　End if がありませんとかたくさんでてきた。
サンクス。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ（勉強中）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 アマゾンで評判の基礎の本は買いました。

　 　１　　　２　　　３　　４　　　　５　　　　　　　６・・・
A　名前　性　　所属　年月　　労働時間　他のデータ
B 佐藤　男　　１課　05/08　　158
C 鈴木　男　　２課　05/08　　170
D　田中　女　　３課　05/08　　163
E　山田　女　　２課　05/09　　200
F　木村　男　　１課　05/09　　167　

こんなリストをシートで作っておいて、
条件を指定するフォームを作って
その条件に従った統計を出力するという
ことをやりたいのですが、

VBAでやろうとするとどの程度の難易度になるでしょうか？

ちなみにピボットテーブルは、配布先の管理職が
いじり方がわからないので却下です・・・。

イメージとしては、オートフィルタの条件設定を
誰でもわかるようなひとつのフォームに
まとめてリストの再構築をするって感じです。

マクロVBAの勉強始めたばっかなんですが、難易度のイメージが
つかめないのでどういった方向で勉強していけばいいのかが
分からないでいます。

>>547
もう少し具体的に条件を書かないと、エスパー以外は応えられないと思う。

>>548
すみません・・・そうですよね。
やりたいことは、
上の表でいうと（行と列の数字と英字逆でした）

１．エクセル起動
２．フォームがある
３．フォームには
　　�@性
　　�A部署
　　�B労働時間（x時間以上のみ抽出）
　などの条件を指定するチェックボタン、リストがある。
　（ホントはもっとすごい数の項目があります）
４．条件設定してボタン押す。
５．条件に従って抽出したリストが表示される。

てことをやりたいです。
取り急ぎコードを教えてくれってわけではありませんので、
素人がどの程度勉強すればできるようになるかということだけで
結構ですので教えてください。

>>549
> 素人がどの程度勉強すればできるようになるか
デキるやつなら丸1日費やせば勉強時間も含めて完成までいけるだろ
ヘボい奴なら一生掛かっても無理
他の言語経験者なら数時間程度で出来るかな

お前の程度なんて知らないので、お前がどれがけ勉強すれば
出来るようになるかはわからない

>>537
これ考えてみたけど、作業セル使ってでは無理なのではないだろうか？

>>551
>>538でできてますやん。

K列の+ROW()/100が最初意味わからなかったけど実行してみたらわかった。
頭ええなあ。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可(出来ればVBAでやりたいです)

▼やりたいこと
ランダムな時刻を表示させたい

▼現在やってる方法(RANDBETWEEN関数にて)
A1:A2000までの縦の列に08〜23までのランダムな数値を表示させ、同じように
B1:B2000までの縦の列に01〜59までのランダムな数値を表示する。
C1=A1&":"&B2としてC2000までコピペし2000通りのランダム(08時〜23時)までの時刻を表記させています。

▼質問
これをリスト内で行いたいのですが、リスト内で行なうと並び替え等をする度に
RANDBETWEEN関数が働いてしまい、いたちごっこになってしまいます。
今は別のシートで一度RANDBETWEEN関数を使いそれをメモ帳などにコピーしてから
リスト内に貼り付けて凌いでいます。
RANDBETWEEN関数を使わずにVBAでスマートにやりたいのですがご教授いただけませんか？

すみません、訂正です
誤：C1=A1&":"&B2としてC2000まで
正：C1=A1&":"&B1としてC2000まで

> リスト内で行いたいのですが
リスト内って何よ?
"リスト内"って言葉はいろんな解釈ができるんだが
それと時と分をA列とB列に分ける必要ってあるの?

単に08:01〜23時:59まで(00分は無し)のランダムな時刻を2000行用意したいってだけなら
TimeSerial(Int(Rnd() * 16) + 8, Int(Rnd() * 58) + 1, 0)
とかをループで回せばいいじゃん

TimeSerial関数、大変勉強になりました｡

＞"リスト内"って言葉はいろんな解釈ができるんだが

昇順、降順で並び替えの出来るリストです。
A1:A2000に人名　B1:B2000にランダムな時間　C1:C2000に行動を明記し
A列の人がB列の時間にC列をする表を作り、それをリスト化してB列の時間で昇順で並び替えをして上から順に誰(A)が何(C)をするか見やすくしたかったのです。

＞それと時と分をA列とB列に分ける必要ってあるの?

必要はないですね、VBAを自分で記述するのは今回が初めてだったので
[エクセル,ランダム,関数]で検索してHITしたRANDBETWEEN関数を使い、列を分けて
パズルみたいな感覚でむりやり時間表示を作っていました。
[改行が多すぎると言われたので>>557へ]

[続き]
TimeSerial関数を使い簡単に以下のB1からB20までランダムに時間を表示させるスプリクトを
作ってみたのですが、20行を1行1行、20回繰り返すだけでも結構時間がかかってしまって
本来の2000行を実行するには時間がかかりすぎてしまいます…
繰り返しではなくて1行目から2000行目まで一気にパッと表示させることは出来るのでしょうか？

TimeSerial関数を使って作ってみたものです↓

Sub 時間表記()


Dim aaa As Long

For aaa = 1 To 20'←20回繰り返す

'↓B1のセルから表示を開始させる
Cells(aaa, 2) = TimeSerial(Int(Rnd() * 16) + 8, Int(Rnd() * 58) + 1, 0)

Next aaa

End Sub

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


もしA2のセルにAAを含むなら次の処理をし
AAを含まずBBを含むなら次の処理をする
AAもBBも含まないときは次の処理をする

は

If 条件式1 Then
条件式1が満たされたときの処理
　　　　　　・
　　　　　　・
ElseIf 条件式2 Then
条件式1は満たされないけれど､条件式2は満たされるとの処理
　　　　　　　・
　　　　　　　・
Else
条件式1も､条件式2も満たされないときの処理

End Sub



でいいんでしょうか？
またAAを含む場合はどうあらわしたらいいんでしょうか？

>>538 様

おぉ！すげ〜！
ホントに出来てる！それも超短時間で！

仕組みはどうなってるんだ！？後で勉強しよっと。


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

A2にAAAAを含む場合B1+C1
A2にBBBBを含む場合B1-C1

はこれでいいんですか？


　　Select Case Range("A2")

　　　　Case "AAAA"
　　　　　　Range("D1") = Range("B1") + Range("C1")

　　　　Case "BBBB"
　　　　　　Range("D1") = Range("B1") - Range("C1")

End Select

>>560
What?

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード 　 　 】 検索して一応理解したつもりだった

グラフで、近似曲線を作成して
y = -9E-05x^5 + 0.0543x^4　という式が得られました。
Eが指数表現ということは調べて分かったのですが、
xの値を代入して計算してもどうしてもyの値になりません。
符号から桁から数値までまるでとんちんかんな値が出ます。
Eを少数に設定しても(0....9などにしても)やはり
yの値はおかしいです。

何か理由があるのでしょうか。
よろしくおねがいします。

実際にどう組んで、どういう値が返ったのかくらい書けよ

通貨型変数で小数点第三位がうまく表示されません
とりあえず以下の用にやると
小数点第三位で自動的に丸められてしまう
数字をそのまま表示したい場合はどうすればよいでしょうか？

Private Sub CommandButton1_Click()
Dim a As Currency
Range("a1").Select
Selection.NumberFormatLocal = "#,##0.000_ ;[赤]-#,##0.000 "
a = 12.123
Range("a1").Value = a
End Sub

winXP
Excel2003


A-1からA-20,B-1からB-20,C-1からC-20,D-1からD-20まで席があって
すでに埋まっている席がA列に
　　　　　A
1　　　A-1
2　　　A-3
3　　　A-4
4　　　B-1
5　　　B-7
6　　　C-2
7　　　C-7

こういう感じであるんですけど
空いている席をC列に書き出したいんですよ
関数使ってできないでしょうか？

>>557
Dim i As Long, hoge(1 To 2000, 0) As Date
Randomize
For i = 1 To 2000
　hoge(i, 0) = TimeSerial(Int(Rnd() * 16) + 8, Int(Rnd() * 58) + 1, 0)
Next i
Range("B1:B2000").Value = hoge

これでも遅いですか?


>>558
> でいいんでしょうか？
はい。

> またAAを含む場合はどうあらわしたらいいんでしょうか？
　If Range("A2").Value Like "*AA*" Then
　If InStr(1, Range("A2").Value, "AA") > 0 Then

InStr関数を使う方法では、第一引数の｢1｣と比較演算の｢ > 0 ｣は無くても動きます。

>>560
> はこれでいいんですか？
｢含む｣ではなく｢一致｣でいいならそれでOKですが、
｢含む｣をSelect Caseで処理するならこんな感じかな。

Select Case True
　Case (InStr(1, Range("A2").Value, "AAAA") > 0)

　Case (InStr(1, Range("A2").Value, "BBBB") > 0)

End Select


>>564
うろ覚えですが、Currency型の値をセルに直接代入すると
ロケールに合わせて丸められる仕様だったような気がします。(他のソフトだったかも

とりあえずFormat関数通して代入すれば丸められませんよ。
　Range("a1").Value = Format(a, "#,##0.000")
というか、Currency型じゃなくても良いのでは?


>>565
C1=IF(COUNTBLANK(D$1:D$80)+ROW()<=80,INDEX(E$1:E$80,SMALL(D$1:D$80,ROW()),1),"")
D1=IF(COUNTIF(A$1:A$80,E1),"",ROW())
E1=INDEX({"A";"B";"C";"D"},INT((ROW()+19)/20),1)&"-"&MOD(ROW()-1,20)+1

上記3つの式を入力したら、C1:E1を選択して80行目までフィルコピーしてください。
D,E列は参照を書き換えれば別の列でもいいですし、非表示にしても構いません。

>>567
ありがとうございます。
Format関数を使用してやってみます。

Win2000+Excel2000でVBAチャレンジしてます。
DとGは整数です。
D2とG2、D3とG3、D4とG4、D5とG5・・・・・D12とG12を比較してD>GならD-GをEに入れようと考えて
　　 Dim i As Integer
For i = 2 To 12
If Range("Di") > Range("Gi") Then
Range("Ei") = Range("Di") - Range("Gi")
End If
Next
としましたが、うまくいきません。ほかのところは問題ないようなのでここがとらぶっていると思います。
上のコードはどこがダメですか?

Range("Di") →　Range("D" & i)

>>556 hogeさん
本当にありがとう御座います。
見事一瞬で2000行の表示が出来ました。

>>570
ぁぁあああー、そうなんですか。わかりました。ありがとうございます。

【1 OSの種類 　 　 　 　 .】 XP
【3 VBAが使えるか　 　 .】 はい（勉強中）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 Byref 参照渡し ByVal

ByValは普段FunctionとかSubにデータを渡すのに使ってるんでまぁ判る
んですが、ByRefについてネットで見たりしてもいまいち感じがつかめま
せん。どういう時にどういう風に使えばいいのか、具体例とかを交えつ
つ教えていただけないでしょうか。

参照渡し 値渡し@Google
で理解できない奴にこれ以上何を解説しろと?
それにこれはExcelの仕様に関するものではなく
VBを含むプログラミング言語全般の仕様なので、
聞きたければプログラム技術板に行きな

>>550
暇でつねｗ

>>56７様ありがとうございます！
あともしよかったら
マクロをつかったやり方も教えていただけないでしょうか
後からで非常に申し訳ないですが・・・

すみません、教えてください。

頂いたデータを印刷してみると、
罫線を含めて、すべてが二重に印刷されてしまいます。

他のデータは普通に印刷できるのに、困ってしまいました。
どこか二重印刷のような設定がなされているのでしょうか？
教えていただけると助かります。

印刷部数を１に汁

>>578
二部印刷されるわけではなくて、
文字や罫線にシャドウが付いたようになってしまうのです。

> 頂いたデータ
そのデータ(ブック?)をくれた人に問い合わせ汁

問い合わせ出来ない状況or相手も解らないなら
> ･ バグ･動作上の不都合などはマイクロソフトのサポートを受けましょう。ここは技術的な質問のみで。

2003を使ってます。
印刷プレビューでお聞きしたのですが、
画面上、セルのなかに打ち込んだ文章がセルなのかで自動的に
折り返されていますが、印刷プレビューでは折り返されず、
きちんと1行で表示されています。

これではプレビューの意味がないのですが、これは仕様ですか？

>>581
yes

セル中のIF式でマクロを呼び出し実行って可能なのでしょうか？

１．A1を変えるとB1も同時が変化する
２．B1を変えるとA1も同時に変化する

参照するだけだと１か２のどちらかだけは可能になるんですが
１，２が両方が可能になる方法とかありますか？

>>584
意味分からん

>>584
A1=B1+3
B1=A1+3
これを循環エラー出さずに入力する方法ということ?
わしは知らん。

A列に何百個もこういう風に1000個くらい並んでるんです
でB列にA列の中から800個ぐらい抜き取ったのがかかれてるんです
でA列にあるけどB列に書かれなかったやつをC列に書き並べたいんですよ
関数使ってどうやればいいんですか？


　　　A　　　　　　　　B
18765DFE　　　　12456JJHF
47839AWE　　　　9977JJUY
76664HH　　　　　　0977KIUNH
44566GTY　　　　　KIUH8 7
98755NHH
JjJJtde44
44544FF

>>584=587？
同じ人なら２回目以降の書込みには名前欄に最初の発言番号を入れてください。
ここはIDが出ないので誰の発言かまったくわからない。

もし別人だとしたら二人ともテンプレ読んで最低限の情報は提出してください。
力になってあげたくても答えるほうにも限界があります。

>>584
VBAでイベントプロシージャ使うとか
シート名右クリック→コードの表示で以下みたいな
Private Sub Worksheet_Change(ByVal Target As Range)
　Application.EnableEvents = False
　If Target.Column = 1 Then Target.Offset(0, 1).Value = "A変えた"
　If Target.Column = 2 Then Target.Offset(0, -1).Value = "B変えた"
　Application.EnableEvents = True
End Sub

>>587
C列に
=ISERROR(MATCH(A1,$B$1:$B$800,FALSE))
でA列と同じだけコピーして、C列の値を「FALSE」で抽出とか？
一発でもできるんだろうけど考えるのがめんどくさい

>>584
ツール→オプション→計算→反復計算→最大反復回数

最初は反復回数を1にしておき、F9キーを押しつつ動作確認。

>>583
>>584
>>587

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

回答者の方もルール守ってない質問者には答えないように

すいませんでした
環境は以下です


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

>>593
>>590はどうなの?
つーかVBA可ならVBAでやった方がいいよな

Excel2000で以下の記述はコンパイルエラーが出ませんが、実行しても
アイスやホットになりません。なんでですか?
Dim i As Integer

For i = 7 To 37
Select Case Range("D" & i)
Case Is = "アイスコーヒー"
Range("D" & i).Value = "アイス"
Case Is = "ホットコーヒー"
Range("D" & i).Value = "ホット"
・
・
・
　　　　　　End Select
Next

質問させてください。
【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ある程度は・・・
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】countif　sumif　dcount　など

塾の成績処理をしています。

　 　A　　　B　　　C　　　D
１　名前　性　　点数　成績
２　佐藤　男　　９０　　　５
３　鈴木　男　　８０　　　４　
４　木村　女　　７０　　　３
５　田中　女　　４０　　　２
６　加藤　男　　８０　　　４　

countifでは、男女合計の中から、
成績をカウントするだけで、男子・女子がそれぞれ何人いるかわからず・・。

男女別に、１〜５の成績を集めたものが欲しいのです。
オートフィルタを使わずに、
それぞれの成績ごと、男女それぞれ何人いるか
数えたいのですが、どうしたらよいでしょうか。

>>595
当方WindowsXp Excel2002だけど、
ちゃんとアイスやホットにかわるよ。

D7からD37のデータがおかしくないか？
たとえば、前後に空白が入ってるとか。

Excel2002

セルの結合をさせた部分に、文字を直接入力することはできますが、
コピー&ペーストで貼り付けようとすると、「結合されたセルの一部を
変更することはできません」となりますよね？

これを、セルの結合を解除しないまま、コピー&ペーストで貼り付ける手段はないでしょうか？

宜しくお願いします。

>598
貼り付け先も同じ形にセルを連結させとくとか。

>>599
いえ、貼り付け元は結合もなにもされていませんよ。単なるテキストデータをコピーしたものです。

試しに、ExcelのセルをA1〜D1までを結合させてみてください。
そして、私のレスの一部でもいいので、コピーして、その結合した貼り付けてみてください。
貼り付けられないと思いますよ。

>>600
セルをダブルクリックしてからペースト

条件付き書式で、そのセルになんらかの文字もしくは数字もしくは記号が入っていれば
そのセルを水色に塗りつぶす、という設定をしたいのですが、それは実現可能でしょうか？

例えば、あるセルに 10/26 と入力したら、そのセルは水色に塗りつぶされるという感じ
したのですが。

>>601
か、感動しました！！！！！
ものすごく感動しました。
そんな単純なことだったのですね。今までずっと不便に思っていました。
どうもありがとうございました！！！！！

>>596
具体的にどうしたいの?
要望が脳内完結していて、意味不明
例えば｢１〜５の成績｣って何よ?
1〜5行目とか、上位1〜5位とか、
オマエ理論で脳内補完出来ない俺等にも伝わるように書けよ

【1 OSの種類 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 鋭意勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】日付表示　置換　セルの結合（？）など

こんばんは。現在エクセルの表に以下のようなデータがあります。
（実際には行1から行20まで同様形式のデータが入っています）

セルＡ１　　セルＢ１　　セルＣ１　　　セルＤ１
　2005　　　0712 　　　18:00　　　　19:30

（列Ａが年、列Ｂが月日、列ＣとＤは時刻を意味するとします）
このとき、同じ行の列Ｅと列Ｆのセルにそれぞれ

　セルＥ１　　　　　　　　　　　　　セルＦ１
2005/07/12 18:00:00　　　　2005/07/12/ 19:30:00


のように各セルの情報を組み合わせ秒数に00を付け足したような
データを入力させるマクロは組めますでしょうか？
セル中の数字、スラッシュ、スペースは全て半角です。

どうぞよろしくお願いいたします。

>>605
できるんじゃない？

>>604
わかりづらくて、すみません。

えーと、カウントする条件が二つ、という意味です。
上の例で言えば、女子の中で、”１”の成績を取ったものは何人か。
男子の中で、”５”の成績を取ったものは何人か、といったことなのです。

わかりますでしょうか。。。
今、配列数式を調べていましたが、なかなか方法が見つかりせん。

>>605
マクロ使わないでも、関数で出来ると思う。

　 　A　　　B　　　C　　　D 　　Ｅ
１　名前　性　　点数　成績
２　佐藤　男　　９０　　　５　　男５(=B2&D2)
３　鈴木　男　　８０　　　４　　男４(=B2&D2)
４　木村　女　　７０　　　３　　女３(=B2&D2)
５　田中　女　　４０　　　２　　女２(=B2&D2)
６　加藤　男　　８０　　　４　　男４(=B2&D2)
７　男５　　=countif(e$2:e$6,a7)
８　女５　　=countif(e$2:e$6,a8)

うわ、一番右の数式みすった。まあいいや、判るだろう

>605
=DATEVALUE($A1&"/"&MID($B1,1,2)&"/"&MID($B1,3,2))+TIMEVALUE(C1&":00")
=DATEVALUE($A1&"/"&MID($B1,1,2)&"/"&MID($B1,3,2))+TIMEVALUE(d1&":00")
書式 yyyy/mm/dd hh:mm:ss

これは、やっぱり無理でしょうか？
どなたか分かる方いませんか？

>>610
わざわざDATEVALUE関数なんて使わずDATE関数使えば?
｢&"/"&｣なんてので区切らず、｢,｣ひとつで区切って書ける
TIMEVALUEの方も｢&":00"｣は要らないし

>>611
無理っつーか、逆にテンプレに載ってるような簡単な内容だから
レス付かないだけだと思うが
とりあえず>>6の例５の条件式を否定条件として条件付き書式で使えば良いだけ

>>610

できました！ありがとうございます。
なるほどこうやって値を統合するんですね。
とてもためになりました。
この方法だと日付が　5月7日　のような表示になってても
同様に変換できそうですね。

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

>>612
これまたできました！
非常に勉強になりました。どうもありがとうございます。

>>609
ありがとうございます。できました。
このような方法、思いつきもしませんでした。

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

>>588
まったく別人です。聞いてる内容も全く違います。

>>589>>591
参考にして上手く良くか試してみたいと思います。
ありがとうございました。

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

住所を書き込んだ物があります。
それから郵便番号を出すアドインありますよね

同様にしてマピオン（地図サイト）へのへのリンクを生成してくれる
アドインはありませんでしょうか？
あるいは地図サイトへのリンクを自動生成する方法はありませんか？

>>617
http://www.mapion.co.jp/c/f?grp=all&find=住所&uc=7
で、指定住所の検索結果が表示される
複数ヒットする場合もあるから、そこから該当するものを選択すればいい

リンクにしたければ
=HYPERLINK("http://www.mapion.co.jp/c/f?grp=all&find="&A1&"&uc=7")
アドインなんて使わずとも関数ひとつで事足りる

>>597
ありがとうございます。
ご指摘のとおり、前後に空白が2個ずつ入っていました。
"と"のあいだにいれたらここも動き出しました。
感謝 ! !

>>612
やっぱりよくわかりません・・・
条件付き書式に>>6の例5のようなif関数って使えないですよね？

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

エクセルを最大化で使用しているときに、
タスクバークリックで他のアプリ（エクスプローラなど）に
切り替えようとしてもクリックがキャンセルされて
画面が切り替わらないことが多々あります。
他のアプリやWord2003などからの切り替えではその現象がおきません。
Excel2003から他のアプリに切り替えるときにだけ発生します。
（Excelが複数起動していた場合、ExcelからExcelでも発生します）

説明がわかりづらいかもしれませんが・・・
なおしかたなどわかれば教えてください。

それはExcelっつーよりWinXPの問題かな

【OSの種類 　 　 　 　 .】 WindowsXP (Home)
【Excelのバージョン 　 】 Excel2002
【検索キーワード 　 　 】 Excel TEXT関数 参照

TEXT関数に関する質問です。

　　　　　A　│　B　│　C
　　　───────────
１　│　あ　│　1　│　あ-0001

A列とB列は変動して２つを組み合わせてC列にコードを作ります。
現在C１に書いている数式は
=A1&TEXT(B1,"-0000")　なのですが
TEXT関数の表示形式指定だけで　A1&"-0000" のようにする事は可能ですか？

>>620
条件付き書式→「セルの値が」「次の値に等しくない」「=COUNTIF(A1,"*" )」

>>622
XPの問題ですかぁ。
ありがとうございました。

XPで、Excel2002を使用しています。
セルにメアドやURLを書き込むと、
自動的に青文字になり、リンクが張られてしまうのが不便です。
単なるテキストとして認識して欲しいのですが、
これはどこかで設定が可能なのでしょうか？
アドバイスお願い致します。

>>626
一番最初に　' を付けるか、
右クリック→ハイパーリンクの削除で出来ます。

>>627
どうもありがとうございます！

度々すみません。
ヘルプで「複数のハイパーリンクを同時に無効にする」
というものを見つけて実践しているのですが、
全くうまくいきません。

内容としては、空白セルに「1」を入力し、そのセルをコピー。
Ctrlキーを押しながら、無効にする各ハイパーリンクをクリック。

ということなのですが、、、何かコツがあるのでしょうか。
ご存じの方、お願い致します。

>>629
1　を入力したセルをコピーしたら、リンクの入っているセルを選択します。
この時、普通にクリックしただけではリンク先にジャンプしてしまうので
Ctrlを押したままクリックしないと、セル選択は出来ません。
複数あるのなら、Ctrlを押しっぱなしにして、次々セルを選択します。

セル選択が完了したら、選択セル上で右クリック
形式を選択して貼付けを実行する。

と書かれていますね。

>>630
できました！ありがとうございます。

2002のヘルプだと、「各ハイパーリンクをクリックします」と
書いてあるんです。
630さんのように、「選択します」と書いてくれれば一発で分かったのに。

助かりました！

>>623
不可能、って言うか実際書いてみたらわかるだろ。

>>632
返答有難うございます。

昨日同じ事をしようとしたら、書式の中に参照を用いるのがはずみで出来たんですよ。
その時のデータを消してしまったので比べる事が出来ず
今日になって色々書いても出来なかったので質問を書かせて頂きました。
昨日出来た、と思ったのも何処か勘違いかもしれませんね。
有難うございました。（＆レス消費すいません）

【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】多少
【4 VBAでの回答の可否】 可
【検索キーワード 　 　 】 　行列関数　　INDEX関数　MATCH関数


A列に全品目（1000個）が書かれているんですよ
でB列に全商品の中から今ある品目が書かれているんです
こんな感じです

　　　　A　　　　　　　　　　　　B
HHU-767-009　　　　NMJ-871-135
KJA-998-876　　　　MKA-678-986
NMJ-871-135　　　　BHN-123-453
MKA-678-986
　（以下1000まで続きます）

で
C列にいま手元にない品目をずらーっと表示させたいんですよ
どうしたらいいんでしょうか？

>>634
>>587→>>590

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

シート1　A列・B列・C列の３行目以降にそれぞれ日付・取引先名・請求額
シート2　A列・B列・C列の３行目以降にそれぞれ日付・取引先名・入金額
シート3　A列・B列・C列の３行目以降にそれぞれ日付・取引先名・売掛金残高

という風に表を作成したいと思っています。
シート1は請求書を書いた時点で記入します。
シート2は入金があった時点で記入します。

シート3には、シート1とシート2を監視して
シート1の取引先の請求額からシート2の入金額を差し引いた上で
シート3のそれぞれの項目へ表示します。
シート1に取引先があり、シート2にはない場合は、
新たにシート3の取引先名へ追加します。

つまり。
シート1　　　　　　　　　　シート2　　　　　　　　　　 シート3
9/1　A社　50000　　　　10/1　A社　30000　　　　10/4　A社　10000
9/1　B社　50000　　　　10/1　B社　50000　　　　10/1　B社　　　　0
9/1　C社　50000　　　　10/4　A社　10000　　　　　9/1　C社　50000

と表示させるためにはシート3の関数はどのように指定すればいいですか？
日付は入金最新の入金月日を表示させたいです。

連投ごめんなさい。
【4 VBAでの回答の可否】 否　としましたが、
もし関数では難しくなり、VBAで可能ならVBAを教えて頂けませんか。
宜しくお願いします。

>636
ひとつのシートに全部まとめてはだめですか？
その方が一覧性があって見やすいと思うのですが。

例えば、項目名はA列から
請求日、取引先、請求額、入金額、手数料（振込手数料を引かれた場合）、入金日、残高
残高は「請求額−入金額−手数料」

ある企業から入金があったとすると、
取引先を探した上で入金額を記入しないとダメですよね？

取引先が結構大量にありますので、
その場合だとかなりの手間がかるかとおもうのですが。

取引先を探すというのは目で上から下まで探しているのですか
Ctrl+F　で検索してるのですか

自分の経験で申し訳ないのだが、自分はCtrl+Ｆで検索して全く問題なかったです。
因みに1か月2000件の請求書発行でした。
その後1年後ぐらいに、システム化になりましたけど。

それにその方式だとシート2に取引先を入力する時に、一言一句間違わずに入力しなければ
シート３には正しい取引先ごとの残高がでないですよね。
検索して入金額のみ入力するのと
別シートに取引先、入金額を入力するのとでは、
自分としては、前者の方が労力が少ないと思います。
あくまでも自分としてはですよ。

VBAプロジェクトのデジタル署名で登録したデジタル証明書の登録を

削除する方法を教えてください。

>>636 (&その他多数)
いきなり複数シートをまとめる結果を出そうとしないで、やりたいことをひとつひとつ片づけていきな

使う関数は最終取引日はIF、MAXだけ、差し引き額はSUMIFのみで出せる
取引先なんて決まってるんだろうから、この分は手入力してもいいし
自動で出したければ過去ログで散々既出の｢重複しないように値を抽出｣する式を使ってもいい

例えば取引先ごとの最終取引日の場合、いきなり｢複数シートに渡る取引先ごとの最終取引日｣ではなく
シートごとに｢取引先ごとの日付｣を出して、その中で最終日を出し、更にシート1とシート2のどちらが大きいかを出せばいい
数式にすると=IF(B1="A社",C1,"")を必要数オートフィルでコピーすることで、｢取引先ごとの日付｣が出せる
そして出た結果をMAX関数に掛ければ｢シート1のA社の最終取引日｣だ
更に｢シート1のA社の最終取引日｣と｢シート2のA社の最終取引日｣をMAX関数に掛ければ目的の結果がでる

これをひとつの式にするとこんな風になるわけだ
　　　┌　　　┌IF(B1="A社",C1,"")
　　　│MAX│IF(B2="A社",C2,"")　シート1
MAX│　　　└IF(B3="A社",C3,"")
　　　│　　　┌IF(B1="A社",C1,"")
　　　│MAX│IF(B2="A社",C2,"")　シート2
　　　└　　　└IF(B3="A社",C3,"")
脳内でこういう構想を作り配列数式に直すだけの能が無いのに、いきなり結果を出せる式を組もうとするから
MAXやIFなどの使うべき関数が解っていても結果に繋がらないという状態に陥ってしまう

まずは｢結果を出すには何処でどういう計算をすれば良いか｣というのを考えろ、この部分はExcel以前の問題だ
そして、その計算をするにはどの関数が必要か、結果をまとめるにはどういう数式を組めばいいかと順を追え
大抵の奴は｢計算構想、関数式化、まとめ｣を一発でやろうとするから、ひとつひとつを解く知識は合っても躓いてしまう
関数式化で躓いてここに来るなら話は分かるが、今回使う関数は｢最大｣とか｢条件｣とかで検索すれば簡単に出てくる関数だからな


と、順を追えば自己解決出来るはずの内容で質問に来る奴があまりにも多いので熱く語ってみました

>>642さんの言葉で解決する事ができました。

>>636さんの言うとおりで、自分の浅はかさを痛感する事もできました。
ご迷惑おかけしました。
また、自分の浅はかさを教えて下さったことに、感謝致します。

>>638さん
回答を下さってありがとうございました。
今後の作表の参考にさせて頂きます。

>>590のやり方だとうまくいかないんですよ
マクロを使ったやりかたはないですかね？

マクロがいいなんて>>634には一言も書いてないし
逆に検索ワードにはワークシート関数が書いてある始末

それに>>590で結果は出せるはずだ
ただ、B列に同じ値が有るか否かしか返さないから、結果に応じた抽出が必要
そのくらいは自分で書けるだろう

ってことで終了

おまえは相談にのれるようなレベルじゃねーな
結局わからねーってことね
自分がわからねーからって勝手に終わらすなよ
テメーみてーのみてるとマジむかつくんだよ


おやまのたいしょうさんよ