Excel総合相談所 73

[表示 : 全て最新50 1-99 101- 2chのread.cgiへ]
Update time : 05/09 13:53 / Filesize : 79 KB / Number-of Response : 190
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

Excel総合相談所 73

1 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 18:54:44 ]: Excelに関する質問は、ここで！

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

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

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

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

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

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

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

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

★VBAについて
　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。
4 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 18:59:04 ]: 上記｢Excelで出来ないこと、仕様上の制限｣は､一般的に出来ないとされていること､出来ないと思われるものです。
間違いがある可能性もあるので､上記に挙がってるもので｢コレはこうすれば出来るよ｣というものがあったらご指摘ください。
Excel2007についても未確認な項目が多いので変更点が有ればご指摘下さい。

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

＞▼環境･書式
＞･セルのサイズ(幅､高さ)を､長さの単位(ミリメートルなど)で指定する
補足
2007ではページレイアウトビューの表示時に限り、幅・高さともｃｍ単位で表示され、
指定も同じくcm単位でできる。
ただし大元がインチ系なのでなかなかピタリの値は出ない。1cm→0.98cmのように
近い値に勝手に丸められる。
5 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 18:59:50 ]: ★ Excelで出来ないこと、仕様上の制限 (括弧内は代用法)

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

　▼操作
　･ファイラーの右クリックメニューからの新規作成で、Excelで設定したシート数のブックを作る (任意のシート数のテンプレートを作成)
　･複数シートを選択して入力規則やシートの保護を設定する (VBA)
　･オートコンプリート機能を、別列や離れたセルで動作させる (VBA)
　･選択範囲から一部を除く､Ctrlを押しながらの複数選択で一部を取り消す (VBA)
　･優先キーを3つ以上指定しての並べ替え (優先度の低い方から順に並べ替える)
　･ 1セルを分割 (分割したいセル以外を結合)
6 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 19:00:20 ]: >>3と>>4は順番が逆です！
ごめんなさい！
7 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 19:01:35 ]: >>4と>>5の間違い…
8 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 19:02:22 ]: 　　　||
　　　||　━ 質問のしかた ━
　　　||
　　　||　★1 質問するときは、環境や条件をキチンと書くこと。情報後出しはダメ。
　　　||　★2 要望は具体例や図を使って明確かつ具体的にしる。
　　　||　★3 質問前に>>2-20あたりの注意書きやQ&Aを必ず読むこと。
　　　||　★4 質問テンプレ(雛形)は必須ではないが、
　　　||　　　　OSやExcelのバージョン､VBAの可否などは必須情報。
　　　||
　　　||　　　　　　　　　∧ ∧ 　。
　　　||　　　　　　　　　　( ,,ﾟДﾟ)／　ｼﾞｭｳﾖｳ!!　　　　　　Ｅ[]ヨ
　　　￣￣￣￣￣￣￣ﾉ　　つ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　 / ￣￣￣ ./| ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　 |￣￣￣￣| | |
￣￣￣￣￣￣￣￣|＿＿＿＿|/｜
　　　　　　　　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　＼　　　　は～～～～い　　　　　　／
　　　　∧ ∧　　　　∧,,∧　　　∧ ∧
　　　 ( ,,　∧▲　　ﾐ　 ∧ ∧　(　　∧ ∧
　　～（＿(　　∧ ∧＿(　∧ ∧＿ﾐ･д･∧ ∧
　　　　＠（＿(,,・∀・)＠ (　　 *)～ミ＿ ( 　　,,)
　　　　　　＠（＿__ﾉ　～（＿__ﾉ　　～（＿__ﾉ

エクセルの技術的な質問と関係ない議論・雑談は下記スレッドで。

【質問不可】Excel総合相談所スレの雑談・議論スレ2
pc11.2ch.net/test/read.cgi/bsoft/1151651536
9 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 19:08:00 ]: 【このスレの登場人物】
┌─質問者───────────
どこにでもいるごく普通の初心者だったり
会社で上司に無理難題を押しつけられて困っている人だったりする。
たまに学生が宿題を持ち込んでくることも。
┌─回答者───────────
テンプレを使わないと無視したり、質問を小出しにするとキレたりするくせに
自分は回答を小出しにして優越感に浸りニヤニヤしている嫌なヤツ。
┌─自称回答者─────────
質問者を煽ったり、回答者を煽ったり、とにかくスレを引っかき回すだけで
何の役にも立たない賑やかし。単なるヒマ潰しでこのスレを見ている。
┌─VBA厨 ───────────
VBAは万能と信じ、どんな単純な問題もついVBAで解いてしまう。
Module1がデフォルトで挿入されている世界を夢見るが、いまだ実現していない。
その実態はほとんどが理系の(元)学生。ピボット厨に目の敵にされている。
┌─ピボット厨──────────
ピボットテーブルの機能が強力すぎるため、なんでもできると錯覚している。
口癖は「データを正規化して出直せ」「ピボッと参上ピボッと解決」など。
弱点は大嫌いなVBAを使わないとテーブルのリアルタイム更新ができないこと。
┌─啓蒙先生──────────
ピボット厨一派の過激派。Excelはピボットテーブルだけのためにあり、
それ以外の機能はワークシート関数すら不要と言い切る。ピボットテーブルで
解決できない質問からは威嚇しながら逃げる。最初から出てこなきゃいいのに。
┌─そのほか──────────
ワークシート関数厨……何重にも入れ子になった複雑怪奇な数式を作り出し、
関数だけでどんな問題も解いてしまう。たまに自分でも何をやっているか
わからなくなる。悩みは数式バーが1行しかないこと、頭が薄くなってきたこと。

配列数式厨……意外と使えるやつだが滅多に出てこない、というか出番がない。
極めてマイナーな存在。見かけたらその日はいいことがあるかも。

ナレーター……誰か知らない人。
10 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/27(水) 19:09:22 ]: テンプレの終了。
11 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/27(水) 20:05:41 ]: 激しく乙～～～（・з・）
12 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/27(水) 20:35:02 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】セル　単位　保護　パスワード

エクセルの2002以降は、セル単位でのパスワード保護が可能なのは
知っていたのですが、
Exsel2000で同じような処理をできないでしょうか？

例えば、A1の横のB1にマクロボタンを作り、A1を変更する場合には、
B1に置いたマクロボタンを押してパスワードを入力して保護を外し変更。
他の領域、A1やB1以外のセルはパスワードの入力の必要がない状態。
やり方を知ってる方がいましたら、助言お願い致します。
13 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 22:20:09 ]: 【1 OSの種類　　　　 .】 Win Xp
【2 Excelのバージョン　】 Excel 2003 2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】クロス　マトリックス

元シートに　　name　　rank　　point
　　　　　　　　　あ　　　　A　　　　２
　　　　　　　　　い　　　　B　　　　１
　　　　　　　　　う　　　　A　　　　２
　　　　　　　　　え　　　　Ａ　　　　３　　　　のようなデータ４００行程。
　　　　　　　　　　　　　　　　　　　　　　　　　rankは８種類（確定）、pointは３０種類くらい（不定）になります。

これを別シートに
rank を縦軸、pointを横軸にマトリックスを作り、対応する枠の中にnameを入れたいのです。
　　　　point
rank　　1　　2　　3
A　　　　　　あ　　え
　　　　　　　い
B　　　う　　　　　　　　　　　　　何も入らない枠もありますし、同じ枠に１０個のnameが入るときもあります。
　　　　　　　　　　　　　　　　　それぞれの枠に入る個数を求めるのは出来たのですが、そのままnameを並べることができません。
　　　　　　　　　　　　　　　　　複数のnameが入るところは、同一セルに改行でもセルが縦に（横に）並んでもどちらでもｏｋです。

例で言うと、”あ・い”は同一セルでも、別セルでも構いません。
どうかよろしくお願いします。
14 名前：名無しさん＠そうだ選挙にいこう [2008/08/27(水) 23:48:09 ]: Option Explicit
Sub Macro6()
Dim MyRange As Range: Dim cl As Range
Dim ShMatrix As Worksheet: Dim EndRw As Long
Dim MyCol As Integer: Dim MyRw As Long
Dim lc As Long: Dim MyMax As Long
Dim MyStr As String: Dim MyArray() As String
Dim MyArray2() As Long
Set MyRange = Selection
EndRw = Selection.Rows.Count
MyMax = WorksheetFunction.Max(MyRange.Columns(3))
ReDim MyArray(1 To 8, 1 To MyMax)
ReDim MyArray2(1 To MyMax)
For lc = 2 To EndRw
MyStr = MyRange.Cells(lc, 1).Value
MyCol = MyRange.Cells(lc, 3).Value
MyRw = Asc(StrConv(MyRange.Cells(lc, 2).Value, vbNarrow)) - 64
If MyArray(MyRw, MyCol) <> "" Then
MyArray(MyRw, MyCol) = MyArray(MyRw, MyCol) & Chr(10) & MyStr
Else
MyArray(MyRw, MyCol) = MyStr
End If
Next
Set ShMatrix = Sheets.Add
For lc = 1 To MyMax
MyArray2(lc) = lc
Next
ShMatrix.Range("B2").Resize(8, MyMax).Value = MyArray
ShMatrix.Range("B1").Resize(1, MyMax).Value = MyArray2
ShMatrix.Range("A2").Resize(8, 1).Value = WorksheetFunction.Transpose(Array("A", "B", "C", "D", "E", "F", "G", "H"))
End Sub
15 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 00:35:38 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】関数　連番
最近独学でExcelを使用し、パチンコの予想期待収支計算などを集計しているのですが、
２点質問させて頂きたいのでよろしくおねがいします。

①関数の一部を連番にしたい
A3=A1/(A2/J10)からS3=S1/(S2/J10)まで連番（というのでしょうか）で関数をつけたい。
この場合、関数セルはA3,B3,C3・・・S3になる。
但し、J10の部分は列に依存せず固定値のままにする。

②言葉に二つの数値を意味づけ、関数で計算させたい。
B1,C1に関数を記述する。
B1=(aa*D1) C1=(bb/D1)
A1に海と記入すると、aa=400 bb=100と指定される。
A1に海、D1に10と記述した場合、
B1=4000 C1=10となる。
川と記入した場合はaa=1000,bb=500となる。
故にB1=10000 C1=50となる。
このように、一つのセルにある日本語を入力することで、aaとbbの二つの値が指定されるようにしたい。

以上になります、非常に分かりづらい文章になってしまいました。申し訳ございません。
このような少し複雑な指定の関数の表記法があれば教えて頂きたいです。
16 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 01:10:05 ]: １　オートフィル・絶対参照
２　if関数

無駄に時間かかるから最初は何でもいいから入門書読んだほうがいいよ
17 名前：15 mailto:sage [2008/08/28(木) 01:26:34 ]: >>16
レスありがとうございます。
単語が分かっただけでも十分です、今まではどんなキーワードで検索すればいいかすら分からなかったので・・・。。
色々勉強してきます、ありがとうございました。
18 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 02:13:03 ]: 【1 OSの種類　　　　 .】 WindowsVista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】ﾄﾗﾌﾞﾙ

さっきエクセルの本見ながらスロットの収支を作ってた超初心者です。
２時間くらい奮闘して作成してたのですが、空白部分を指定してテーブルとして書式設定というところで表スタイルを青っぽいのを指定したところ
画面が青くなり上の方にあるボタンがほとんど灰色になって押せなくなってしまいました。
インターネットでしばらく検索してみたのですが、わかりませんでした。
とても初歩的な質問で申し訳ないのですが、元に戻す方法がわかる方、教えてください。よろしくおねがいいたします。
19 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/28(木) 13:32:58 ]: A列にある数列、B列にある数列で共通のもののみ
抽出するにはどのようにしたらいいでしょうか？アドバイスお願いします
20 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/28(木) 14:03:09 ]: >>19
C1にif(a1=b1,1,"")
で下にオートフィル、後はC列で1をオートフィルタとか
21 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/28(木) 14:23:18 ]: >>20
レスありがとうございます
ｉｆ関数の項目調べながらしてみます
22 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 15:10:30 ]: ActiveXコントロールを殺してくれ
23 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 17:00:31 ]: >>18
テーブルツール　　デザイン
っていうタブがメニューに出来てるはずなので、そこをクリックして、
ツールの　「範囲に変換」をクリック
24 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 19:58:02 ]: 今まで碌にパソコンを触ったことがなかったんですが今度入社した会社で
Excelとwordが必要になりました。
理解しやすく、必要十分な書籍などありましたらピックアップして教えていただけないでしょうか？
25 名前：13 [2008/08/28(木) 21:21:51 ]: >>14
ありがとうございます。本当に助かりました。

point列が数字じゃなく、文字の時は
対応表のようなものを作って数値にしてしまうしかないんでしょうか？
26 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/28(木) 21:27:17 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】多少
【4 VBAでの回答の可否】可
【5 検索キーワード　　】シート作成　ファイル名　付与

原本となるブックがあり
それを元に
Book1
Book2
Book3
Book4
・・・

と任意の数だけブックを任意のフォルダに作成し
かつブック名に日付（8月1日、8月2日・・）と付けて作成する方法を
教えてください。　
参考になりそうなサイトでも構わないです。
よろしくお願いします。
27 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 21:28:12 ]: >>24
自宅にワード、エクセルがあるなら
FOM
これで十分。
28 名前：名無しさん＠そうだ選挙にいこう [2008/08/28(木) 22:07:59 ]: 【1 OSの種類　　　　 .】 WindowsVISTA
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】 ×
【4 VBAでの回答の可否】 ×
【5 検索キーワード　　】テキストボックス　方向キー　左右

お願いします。
テキストボックス内で、方向（矢印）キーを使って
カーソルを移動させる際に、
左右のキーの時のみ逆に移動してしまいます。
よい修正法があったらお教えください。
29 名前：名無しさん＠そうだ選挙にいこう [2008/08/29(金) 10:54:34 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

置換をする時に例えば01や02に置き換えたいのですが、
どうしても1や2となってしまって0が消えてしまうのですが
どうすれば01や02で置き換えられるでしょうか？
30 名前：名無しさん＠そうだ選挙にいこう [2008/08/29(金) 11:02:04 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】 OK

特定の行（たとえば50行まで　50行以降はOKにしたい）
行の削除・追加を禁止することはできますか？
31 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/29(金) 11:47:11 ]: >>29
'01や'02と入力
もしくは書式設定で文字列に設定しておくか
>>24
テキトーな本を買って一通り書いてある通りにやってみればいいよ
文字入力・罫線がどうこうなレベルならどの本も大差ない
ちなみにダイソーでも売ってるが内容は他とほぼ同じ
32 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/29(金) 14:12:44 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】否
【4 VBAでの回答の可否】 OK

1　a　あ　カ
2　b　い　キ
3　c　う　ク
4　d　え　ケ

↓

4　d　え　ケ
3　c　う　ク
2　b　い　キ
1　a　あ　カ

のようにデータを完全に上下逆に並べ替えたいのです。
何百行もあるし、これからもデータが追加されるので手作業だと大変です。
よろしくお願いします。
33 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/29(金) 14:28:57 ]: カの右に1から連番を振ってその列を基準に降順で並び替え
追加する時は挿入か、移動辺りか
34 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/29(金) 15:10:34 ]: >>31
ありがとうございます
書式設定で文字列にしていてもなぜか置換するときだけ
0が省略されて困ってたのですが'01と入力したらクリアできました
助かりました
35 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/29(金) 16:33:51 ]: 【1 OSの種類　　　　 .】 Windows2000以降
【2 Excelのバージョン　】 Excel2000以降
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

折れ線グラフを作成したいのですが、
プロットするための元データは、必ず一旦セルに書き出してRangeで範囲指定しなければならないでしょうか。

VBAの変数配列で保持している横軸縦軸のデータを、直接グラフに読み込ませたいのです。
36 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/29(金) 18:00:36 ]: >>33
ワォ、その方法は思いつきませんでした。ありがとうございました。
37 名前：名無しさん＠そうだ選挙にいこう [2008/08/29(金) 21:37:43 ]: >>26ですが
VBAスレに移動します。
38 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 05:52:55 ]: 【1 OSの種類　　　　 .】 Windows　ｘｐ
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可

　こんなグラフを作りたいのですが良い方法ありますか？

　5　　■■■■■
10　　　　　　　　　■■■■■■■■■■
　5　　　　　　　　　　　　　　　　　　　　　　　■■■■■
　3　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　■■■
　
　数値だけを入力し、積み上げグラフを自動で作成したい。
　
39 名前：名無しさん＠そうだ選挙にいこう [2008/08/30(土) 07:41:07 ]: >>38
あらかじめ列の幅をそろえておいて
a2=if(a1=>column()-1,"■","")
オートフィルとか
40 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 08:29:26 ]: 質問よろしくお願いします。

１－１
と入力すると
１月１日
と表示されてしまいます。

１－１
と入力したらそのまま
１－１
と表示させるにはどうすれば良いでしょうか？
41 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 08:44:36 ]: 「’１－１」と入力する
あらかじめ当該セルの表示形式を文字列に変更する
42 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 09:07:13 ]: できました。ありがとうございました！！
43 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 14:16:56 ]: ＞39できませんでした。もうすこし詳しくおねがいします。
44 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 14:41:56 ]: タブ文字を含んだ文字列をセルに貼り付けて、
「=code(1)」のように、タブ文字の文字コードを取得しようとすると、32(半角スペース)が取得されてしまいます。

「=char(9)」のように書けばタブ文字を表現できることは知っているのですが、
文字列に含まれるタブ文字を、スペースとは区別して処理したいのですが、
どうしたらいいのでしょうか？
45 名前：44 mailto:sage [2008/08/30(土) 14:55:46 ]: あ、詳細を書き忘れました。
44の質問は、Excelの関数だけで解決したいのです。
マクロや、手動で検索するのではない方法はありますでしょうか？
46 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 18:45:49 ]: 一つのセルにsum関数の結果と件を表示したい
=fixed(sum(範囲),,) & "件"　
ではうまくいきませんでした。
よろしく。xp 2003
47 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 18:53:30 ]: 貼り付けた時点で半角スペースに置き換えられるみたいだから
貼り付ける前に処理しないと区別は出来ないのではアルマイカ。
48 名前：46 mailto:sage [2008/08/30(土) 18:59:05 ]: すまんです。範囲のデータを文字型にしていたのを忘れていたorz
久しぶりだったモンでとんだ勘違いでした。逝ってきます。
49 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 21:47:53 ]: 1 XP
2 2000
3 いいえ
4 否
5 If 空白セル

セルAとセルBの数字が等しい場合はセルCに 1
セルAとセルBが空白の場合はセルCに 0

お願いします
50 名前：名無しさん＠そうだ選挙にいこう [2008/08/30(土) 21:49:23 ]: すいません質問させてください
いま
請求先請求金額
CC工業 256
CC工業 33250
CC工業 48660
CC工業 225
DD商事 746
DD商事　　　 445
LL産業　　　　1125
LL産業　　　　 998
LL産業　　 444
ZZスクール 1258
ZZスクール 19450
株式会社QQ 33804

のような表があって
会社毎に効率よくセルの網掛けをしていきたいんですが
（１こずつフィルターをかけてちまちまやるんじゃなくて）
どうしたらよろしいでしょうか。
おねがいします
51 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 22:40:10 ]: 【1 OSの種類　　　　 .】 WindowsXPsp3
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 excel vba find

sheet1をCtrl+Fで検索する時、sheet2のA1セルの内容で検索させるにはどうすればいいですか?
教えてください
52 名前：名無しさん＠そうだ選挙にいこう [2008/08/30(土) 22:50:34 ]: >>49

>>20参照
53 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 22:54:15 ]: >>50
フィルタでやるのが早そうだが

>>51
作業グループでできない？
54 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/30(土) 23:14:35 ]: >>49
=IF(AND(ISBLANK(A1),ISBLANK(B1)),0,IF(A1=B1,1,""))

>>50
100件くらいなら手動でやったほうが早いだろうが、データが多いか頻繁に行うならVBA使えば良い
VBAに関しては｢自分でコード書いて｣(>>3★2)

>>51
Sub Find2()
　　If ActiveSheet.Name = "Sheet1" Then
　　　　Cells(1).Find Worksheets("Sheet2").Range("A1").Value
　　End If
　　CommandBars.FindControl(, 1849).Execute
End Sub

をCtrl+Fに登録
シート名の頭が小文字なら書き換えて
55 名前：名無しさん＠そうだ選挙にいこう [2008/08/30(土) 23:46:34 ]: Excel2007ってユーザー登録しないと使えなくなんの？
56 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/31(日) 00:24:51 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 if 異なるセルに　

やりたいこと：
例えば、B2は式が入っていないで、ユーザが色々書き込めるとします。
A1にはチェックボックスを作って、B1にリンクさせてあります。
A2に以下の式を書きたいのですが、VBAじゃないとできないのでしょうか？

＝IF(B1=TRUE,『Ｂ２に空白文字列』,『なにもしない』)

B2には自由に入力出来るように式を入れたくないのです。
要はチェックのON/OFFで指定のセルのクリア(上書きによる)をしたいのです
チェックOFFで値が再現される必要はありません。
方法ありましたら教えて下さい。
57 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 00:31:16 ]: 4行目の件が良く分からないけど、
式・値のクリアは関数では無理。VBAや置換などじゃないと
あとそういう場合はコマンドボタンがいいと思う
58 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/31(日) 00:41:24 ]: あるデータを散布図でプロットして近似曲線の「累乗近似」を出したいんだけど選択できません。
どうすれば累乗近似で出すことができるんですか？
ちなみにそのデータは系列が3つでそれぞれの系列で35個ほどのプロット数です。
59 名前：58 mailto:sage [2008/08/31(日) 00:50:00 ]: 解決した
0の値があるとだめなんだな
60 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 09:54:25 ]: 俺も旧バージョンのを2007でひらくと２８のような症状になるのだが…。
61 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 11:00:47 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003sp3
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 excel　列　文字列　リスト　抽出

1本の列に入力されている内容を確認するために
重複を除いて一覧として書き出す方法ありますか
62 名前：６１ mailto:sage [2008/08/31(日) 11:18:12 ]: フィルタオプションの設定ですね
質問取り下げます
63 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/31(日) 11:32:59 ]: >>61
調べたいのがA列として、作業列の2行目以降に=ISERROR(VLOOKUP(A2,A$1:A1,1,FALSE))と入れてから
オートフィルタでTRUEの行をコピペ
64 名前：６１ mailto:sage [2008/08/31(日) 12:21:41 ]: >>63
ありがとうございます。
断然こちらの方法が利用価値高いです。
65 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 15:29:48 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可･否
【5 検索キーワード　　】マクロの初歩を一通り眼を通しましたが理解不能

　１　　２　　３　　４
A 3/5 5/5 6/1 7/21　
B 5/2 6/1 6/22 6/27
C 5/3 5/7 5/21 6/1

１．２．３・・・手順
ABC・・・サンプル
日付

このシートを

　　3/5 5/2 5/3 5/5・・・
１　A　　B　　C　　
２　　　　　　　　　　A
３
４

といった具合に並び替えていく方法をどなたか教えてください(｀･ω･´)
66 名前：前半 [2008/08/31(日) 18:15:42 ]: >>65　
Option Explicit
Sub test()
Dim MyArray() As String: Dim MyRange As Range: Dim MyRange2 As Range
Dim MaxCol As Integer: Dim MyCol As Integer
Dim MaxRw As Long: Dim MyRw As Long: Dim lc As Long: Dim CntCells As Long
Dim Mysh As Worksheet
Set MyRange = Selection
With MyRange
MaxCol = .Columns.Count: MaxRw = .Rows.Count: CntCells = (MaxCol - 1) * (MaxRw - 1)
ReDim MyArray(CntCells - 1, 2)
lc = 0
For MyCol = 2 To MaxCol: For MyRw = 2 To MaxRw
MyArray(lc, 0) = .Cells(MyRw, MyCol).Value
MyArray(lc, 1) = .Cells(MyRw, 1).Value
MyArray(lc, 2) = .Cells(1, MyCol).Value
lc = lc + 1
Next: Next
End With
67 名前：後半 [2008/08/31(日) 18:24:53 ]: Set Mysh = Sheets.Add
Set MyRange2 = Mysh.Range("A1").Resize(CntCells, 3)
With MyRange2
.Value = MyArray
.Sort Key1:=MyRange2.Range("A1"), Order1:=xlAscending, _
Header:=xlYes, Orientation:=xlTopToBottom, OrderCustom:=1
ReDim MyArray(MaxCol - 1, CntCells)
For lc = 1 To MaxCol - 1
MyArray(lc, 0) = lc
Next
lc = 0
For MyRw = 2 To CntCells
If .Cells(MyRw, 1).Value <> .Cells(MyRw - 1, 1).Value Then
lc = lc + 1
MyArray(0, lc) = .Cells(MyRw, 1).Value
End If
MyArray(Val(.Cells(MyRw, 3).Value), lc) = .Cells(MyRw, 2).Value
Next
.Clear
End With
Mysh.Range("A1").Resize(MaxCol, CntCells + 1).Value = MyArray
End Sub

1 日付サンプル手順の形式にして変数に格納
2 新規シートに書き出し・ソート
3 日付の重複を確認しながら変数に格納
4 一時的に書きだしてたデータを削除・最終的なデータ書き出し
の手順で処理してます。
68 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 19:30:01 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】マクロ　矢印　色の変更

ドラッグしてマクロを実行すると描画するが、これの色を黒い変更したいです。
69 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 19:32:27 ]: Sub test()
Dim target As Range
Dim arrowLeft As Double
Dim arrowTop As Double
Dim arrowWidth As Double
Dim shp As Shape
Dim myCell As Range

If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Rows.Count > 1 Then Exit Sub
Set target = Selection
For Each myCell In target.Cells
arrowWidth = arrowWidth + myCell.Width
Next
arrowLeft = target.Cells(1).Left
arrowTop = target.Cells(1).Top + target.Cells(1).Height / 2
Set shp = ActiveSheet.Shapes.AddLine(arrowLeft, arrowTop, arrowLeft + arrowWidth, arrowTop)
With shp.Line
.EndArrowheadStyle = msoArrowheadNone
.EndArrowheadLength = msoArrowheadShort
.EndArrowheadWidth = msoArrowheadWidthMedium
End With
End Sub

どなたかご教授ください。
また、現状水平線しか引けないのでかのうなら、斜めもひけたらと思っています。
よろしくお願いします。
70 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 20:34:53 ]: >>68
デバック中にset shp 以降でshp のウォッチ式を見ればわかりますよ

Sub test()
If TypeName(Selection) <> "Range" Then Exit Sub
Set target = Selection
arrowleft = target.Left
arrowright = arrowleft + target.Width
arrowtop = target.Top
arrowbottom = arrowtop + target.Height
If Selection.Rows.Count = 1 Then
arrowtop = (arrowtop + arrowbottom) / 2
arrowbottom = arrowtop
End If
Set shp = ActiveSheet.Shapes.AddLine(arrowleft, arrowtop, arrowright, arrowbottom)
With shp.Line
.EndArrowheadStyle = msoArrowheadNone
.EndArrowheadLength = msoArrowheadShort
.EndArrowheadWidth = msoArrowheadWidthMedium
.ForeColor.RGB = 0
End With
End Sub
71 名前：名無しさん＠そうだ選挙にいこう [2008/08/31(日) 20:36:35 ]: Sub Macro1()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
With Selection.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Sub Macro2()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
72 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/31(日) 20:47:43 ]: >>68
線を引くだけならこれでいいはず

Sub aaa()
　With Selection
　　ActiveSheet.Shapes.AddLine(.Left, .Top, .Left + .Width, .Top + .Height).Select
　End With
　Selection.ShapeRange.Line.ForeColor.SchemeColor = 0
End Sub

>>70
ユニコードを使うとVBEにそのままコピペできなくなるぞ
73 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/08/31(日) 21:14:16 ]: ユニコードっつうか文字参照な
74 名前：65 [2008/08/31(日) 21:36:05 ]: >>66
>>67
ご回答ありがとうございます
さっそく試してみます(｀･ω･´)
75 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 11:34:57 ]: 【1 OSの種類　　　　 .】 Windows2000以降
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

シートの保護について質問です。
Excel2000で、2002以降と同じように「セルデータの書式の変更のみを許可する」、というオプションを選ぶ方法はあるでしょうか。

2000で保護対象から「データ」を外すと、書式変更が出来ますが変更したくないセルのデータも触れるようになってしまいます。

2000環境で作成した後、2002環境のマシンにコピーしてシートを保護、という事も出来ますが、出来れば複数マシンを移動したくはないのです。
よろしくお願いします。
76 名前：名無しさん＠そうだ選挙にいこう [2008/09/01(月) 14:19:50 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

住所が例えば「渋谷１－２－３」となってるとすると
これを２つのセルに「渋谷」「１－２－３」と
一発できれいに分ける方法はありますでしょうか
ちなみに当然ながら「豪徳寺」のように文字数がバラバラ
だったり「○○１２９７」のようにハイフンがなかったり色々な住所があります
数字は全角です
77 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 14:28:26 ]: 補足です
共通するのは漢字やひらがなの文字から数字に変わることと
数字で終わることです
文字から数字に変わるところで切れたらと思うのですが
良い方法ありましたら教えてください
78 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 14:28:53 ]: >>65
Sub hoge()　 '日付データ（タイトル以外）を範囲選択して実行する
　 Dim ary(), mx, num, i, j, k, tmp
　 mx = Selection.Cells.Count - 1
　 num = Selection.Columns.Count
　 ReDim ary(mx, 2)
　 i = 0　 '配列に読み込み
　 For Each r In Selection
　　 ary(i, 0) = r.Value
　　 ary(i, 1) = Cells(r.Row, 1).Value
　　 ary(i, 2) = Cells(1, r.Column).Value
　　 i = i + 1
　 Next
　 For i = 0 To mx - 1　 '並び替え（重複データは無視）
　　 For j = i + 1 To mx
　　　 If ary(i, 0) > ary(j, 0) Then
　　　　 For k = 0 To 2
　　　　　 tmp = ary(i, k)
　　　　　 ary(i, k) = ary(j, k)
　　　　　 ary(j, k) = tmp
　　　　 Next k
　　　 End If
　　 Next j
　 Next i
　 For i = 1 To num　 'セルへ書き出し（50行目とする）
　　 Cells(50 + i, 1) = i
　 Next
　 For i = 0 To mx
　　 Cells(50, i + 2) = ary(i, 0)
　　 Cells(50 + ary(i, 2), i + 2) = ary(i, 1)
　 Next
End Sub
79 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 15:02:40 ]: 【1 OSの種類】 Windows XP
【2 Excelのバージョン】 Excel2000
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード】エクセル　MM/DD/YYYY hh:mm:ss
エクセル　書式設定 etc

MM/DD/YYYY hh:mm:ss.nnnのような日時のデータがあります。
具体的には「09/01/2008 15:05:30.676」のような形です。
これをセルの書式設定の変更のみで「hh:mm:ss」で表示できますか？
「15:05:30」と表示できれば良いのですが。
どなたかご教示ください。
80 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 15:47:35 ]: 【1 OSの種類　　　　 .】 WindowsVista64
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

初心者ですが宜しくお願いします。
表を作っていたのですが、いつもどおりセルを選択しようとすると、
複数のセルが同時に選択されてしまいます。
（たとえば目的のセルの下に続けて縦に4コマとか）
新しいドキュメントを作ると今まで通り選択できるのですが、
作業中のドキュメントではどのシートでも同じ症状がでてしまいます。
これはそのような設定があるのでしょうか？
81 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 17:59:31 ]: セルを結合しちまったかな。
82 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 18:53:03 ]: >>69
Sub hoge()
　 If TypeName(Selection) <> "Range" Then Exit Sub
　 Dim x0, x1, y0, y1
　 With Selection
　　 If .Rows.Count <= 2 Then　 '横線
　　　 x0 = .Columns.Left: x1 = x0 + .Columns.Width
　　　 y0 = .Rows.Top + .Rows.Height / 2: y1 = y0
　　 ElseIf .Columns.Count <= 2 Then　 '縦線
　　　 x0 = .Columns.Left + .Columns.Width / 2: x1 = x0
　　　 y0 = .Rows.Top: y1 = y0 + .Rows.Height
　　 Else　 '斜線（選択範囲をドラッグした向きの対角線）
　　　 x0 = .Columns.Left: x1 = x0 + .Columns.Width
　　　 If .Column = ActiveCell.Column Then
　　　　 If .Row = ActiveCell.Row Then
　　　　　 y0 = .Rows.Top: y1 = y0 + .Rows.Height
　　　　 Else
　　　　　 y1 = .Rows.Top: y0 = y1 + .Rows.Height
　　　　 End If
　　　 ElseIf .Row = ActiveCell.Row Then
　　　　 y1 = .Rows.Top: y0 = y1 + .Rows.Height
　　　 Else
　　　　 y0 = .Rows.Top: y1 = y0 + .Rows.Height
　　　 End If
　　 End If
　 End With
　 ActiveSheet.Shapes.AddLine(x0, y0, x1, y1).Select
End Sub
83 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 21:28:49 ]: >>79
hh:mmのような日時書式定義が適用されるのはシリアル値(数値)のみ

「09/01/2008 15:05:30.676」ってのが
シリアル値「39692.6288272685…」を「MM/DD/YYYY hh:mm:ss.000」という形式で表したものなら
表示形式を普通に「hh:mm:ss」にするだけでいいが、文字列として入力されてるなら
当然ながら日時書式定義を適用するにはシリアル値(数値)への変換が必要であり、
表示形式は文字通り表示に関する設定で値そのものの変換機能は無いので表示形式だけでは無理

まあ単にVBAで一括置換するなり、関数で別セルにシリアル値変換して、それを値のコピーするなりすれば済む話だがな
84 名前：名無しさん＠そうだ選挙にいこう [2008/09/01(月) 23:01:09 ]: 【1 OSの種類　　　　 .】 WindowsVISTA
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】 ×
【4 VBAでの回答の可否】 ×

間違ってセルの文字を消してしまって、Ｃｔｒｌ＋Ｚで戻り過ぎたときには
どう操作すればよいのでしょうか？
85 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 23:05:18 ]: Ctrl+Y
86 名前：名無しさん＠そうだ選挙にいこう [2008/09/01(月) 23:26:28 ]: >>76
find、chooseかindexあたりの関数、rightかleftを組み合わせて使えばいいのはわかるんだが酔っ払っててわからない
87 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/01(月) 23:31:10 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2002
【3 VBAが使えるか　　 .】ほんの少し
【4 VBAでの回答の可否】可
【5 検索キーワード　　】名前をつけて保存　ワークブックを開く

元となるエクセルファイル(home.xls)にデータを入力します。
C1セルに通し番号(001～)を入力し、【Save】を実行すると「..\Data\通し番号.xls」という風に保存される。
(このときhome.xlsが表示されたまま)
002,003…と次々に入力と【Save】を繰り返し、修正の必要があればC1セルに通し番号を入力し【OpenData】を実行すると「通し番号.xls」が開かれる。
必要なデータを修正した後に【Save】を実行すると「..\Data\通し番号.xls」に上書きで保存される。
…というものを作りたいのですが、【Save】【OpenData】ともにうまくいきません。
参考までに、現在のものを貼り付けてみます。よろしくお願いします。

Public Sub Save()
Dim path As String
Dim name As String
path = ActiveWorkbook.path
name = Range("C2").Value
ActiveWorkbook.SaveAs Filename:=path & "\Data\" & name & ".xls"
ActiveWorkbook.Close
End Sub

Sub OpenData()
Dim path As String
Dim name As String
path = ActiveWorkbook.path
name = Range("C2").Value
Workbooks.Open Filename:=path & "\Data\" & name & ".xls"
End Sub
88 名前：名無しさん＠そうだ選挙にいこう [2008/09/02(火) 03:07:43 ]: 【1 OSの種類　　　　 .】 Windows vista
【2 Excelのバージョン　】 Excel2007
【3 VBAが使えるか　　 .】あまり使えない。for、if程度。只今勉強中。
【4 VBAでの回答の可否】可
【5 検索キーワード　　】ユーザーフォーム　はい　いいえ　名前を付けて保存

やりたいことを簡単に書くと、
実行したマクロを起動させ、マクロの処理が終わると、Userformで作ったダイアログが出てくる。

そこには「はい」「いいえ」のコマンドボタンがあり、
「はい」を押すと、「名前を付けて保存」の画面が出るようにしたい。

説明が下手なので、詳細は、アップロードしたエクセルファイルをご覧ください。
よろしくお願いいたします。

【場所】
ttp://applis.servehttp.com/index.htm

【ファイル名】
00024326.rar
89 名前：名無しさん＠そうだ選挙にいこう [2008/09/02(火) 03:08:44 ]: >>88

追記：パスは1984です
90 名前：名無しさん＠そうだ選挙にいこう [2008/09/02(火) 08:38:55 ]: >>38
アクセス禁止のあおりを食って遅くなったけど、自己解決しちゃったカナ？
最近見ないけど、むかしバーチャートでよく使われてた
Ａ列に数値があるとして
１行目：　=REPT("■",A1)
２行目：　=REPT("　",SUM($A$1:A1))&REPT("■",A2)
３行目：　=REPT("　",SUM($A$1:A2))&REPT("■",A3)　以下２行目の式をコピー
フォントはＭＳゴシックなどの等幅フォントに設定
91 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 09:38:31 ]: >>87
> name = Range("C2").Value
C2じゃなくてC1じゃねーの？

> (このときhome.xlsが表示されたまま)
だったらSaveAsではなくSaveCopyAsでCloseは無しだな

Openの方は、
> 「通し番号.xls」が開かれる。
でいいなら、C2の部分と例外処理が取れてない以外は問題無さそうだけど
通し番号.xlsの内容をhome.xlsに反映させたいというのなら話は別だが

というか、こういう場合はデータをExcelブックとして保存するのではなくxmlなどに保存した方がいいと思うけどな

>>88
対象マクロの最後でUserForm1.Show

ユーザーフォームに
Private Sub CommandButton1_Click()
　　Application.Dialogs(xlDialogSaveWorkbook).Show
End Sub

ただ、単に「はい/いいえ」の入力を求めて、「はい」の場合に保存ダイアログ出すだけなら
わざわざユーザーフォーム使わずに、MsgBox使った方がいいと思うけどな
If MsgBox("ログと～保存しますか？", vbYesNo) = vbYes Then
　　Application.Dialogs(xlDialogSaveWorkbook).Show
End If
92 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 09:56:51 ]: マクロの名前が Save() とか
変数が name とか path とか
やめた方がいいよ
93 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 10:28:27 ]: ABC DEF
GHI JKL
MNO PQR
TUV WXY

って感じの表を作り
ABCの縦の列を全て名前→定義で英語1という名前をつけたとします
それからデータの入力規則、リストで元の値に =英語1 とします

ABCを選択したら別の枠に DEF 、GHIを選択すれば JKL
って感じに出力したいのですがどうすればよいのでしょうか？
94 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 11:25:04 ]: VLOOKUP
95 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 11:32:39 ]: 【OSの種類】 WindowsXP Home SP3
【Excelのバージョン】 Excel2007
【VBAが使えるか】少々
【VBAでの回答の可否】可
【検索キーワード】セルの塗りつぶし

エクセル2007でセルを、「塗りつぶし」ボタンの「標準の色」から任意の色（例RGB 255,255,0)に
塗りつぶしました。
一旦ファイルを保存して再度開いた時にこの色が（RGB 255,255,13）のように
微妙に変わる事があります。
ネットで調べてみましたが該当するトラブルは見つけられませんでした。原因や対処法を
ご存知の方がいられましたら教えて頂けないでしょうか？
96 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 12:40:28 ]: エクセル2003で
突然キーボードの矢印キーがセルの移動ではなくて
スクロールさせるキーになってしまったんですが
元に戻すのは何処の設定でしょうか？

ヒントだけでも頂けませんか＞＜
よろしくお願いいたします。
97 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 12:59:06 ]: >>95
2007で変わったかもしれないが
2003までの仕様では、Excel上ではフルカラー全色が制限無く使えるのではなく
フルカラーの中からパレット上に選択された色しか使えないので、それ以外の色を指定すると
パレット上に存在する近似色に置き換わる

>>96
ScrollLockキーを押せ
98 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 15:04:25 ]: アンケート結果のデータをいつも手作業でやっていたので自動で処理させようかと思い順調にできていたのですが思わぬところでつまづきました

はい A ああ
いいえ C いい
いいえ B かか
どっちでも B ささ
どちらでも B たた
はい C なな

こんな感じの表を
まずいいえ、どちらでも、はいの順番に並び変えて012のアンケートは大きい数字ほど下にしたいのですがどうすればいいのでしょうか？

いいえ 1 かか
いいえ 2 いい
どっちでも 2 ささ
どちらでも 2 たた
はい 1 ああ
はい 3 なな
99 名前：95 mailto:sage [2008/09/02(火) 15:21:41 ]: >>97
回答ありがとうございます。
塗りつぶしの色は、パレット上に最初から配置されている色を選んでも時折このような症状が
出ます。
赤や黄色のように前のバージョンのパレットにもある色は大丈夫なようなのですが、
仕様なのでしょうか・・・。
100 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 20:18:09 ]: >>98
エスパーですが、
データ(D)→並び替え(S)でＡ列を昇順、Ｂ列も昇順にしたらいいのではないか？
101 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 22:18:24 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】リスト　関数

リストに計と入れ、それを選択すると決められた範囲内の合計が、
決められた場所に表示されるようにしたいです。
できるだけ優しく説明していただければ嬉しいです。
よろしくお願いします。
102 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 22:19:10 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】リスト　関数

リストに計と入れ、それを選択すると決められた範囲内の合計が、
決められた場所に表示されるようにしたいです。
できるだけ優しく説明していただければ嬉しいです。
よろしくお願いします。
103 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 22:20:51 ]: 連投ごめんなさい
104 名前：87 mailto:sage [2008/09/02(火) 22:35:21 ]: >>91
すみません。C2→C1でした。
SaveAsをSaveCopyAsに変えたら思ったとおりの【OpenData】になりました。
ありがとうございました。
ただ、name.xlsを呼び出した後に【Save】すると「..\Data\Data\通し番号.xls」に保存しようとして上手くいきません。

>>92
メソッド名等と被るからでしょうか？
とりあえず、name→FNameとか変更してみました。
105 名前：87 mailto:sage [2008/09/02(火) 22:37:04 ]: >>SaveAsをSaveCopyAsに変えたら思ったとおりの【OpenData】になりました。
SaveAsをSaveCopyAsに変えたら思ったとおりの【Save】になりました。
の間違いです。すみません。
106 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 22:53:09 ]: セクロスの質問所はここですか？
107 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/02(火) 23:19:26 ]: ちがいます
108 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 06:19:09 ]: 並び替えってABCやCBAのやり方は知ってるけどBCAの順番に並び替えできる？
ABC以外の文字はないです
109 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 06:36:03 ]: BCAてどんな基準で並んでるのよｗｗ
110 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 08:40:07 ]: >>108
ユーザー設定リストを登録して並べ替えオプションでそれを選択
だと思う
111 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 09:24:28 ]: ピボットテーブルで、年や月毎にグループ分けする方法は
すぐ出るのでわかるのですが
年齢を20代、30代、、、ごとにグループ分けするには
どうすればいいんでしょうか？
よろしくお願いします。
112 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 10:42:56 ]: ＞38　回答ありがとうございました。
113 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 16:34:46 ]: セルA1 B1 にそれぞれ
A A
A B
A C
A D
B A
B B
B C
B D
に文字を入力したらC3に

A A　あ
A B　い
A C　う
A D　え
B A　お
B B　か
B C　き
B D　く
という文字を表示したいのですがどうしたらいいのでしょうか？
A+A=あ
114 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 17:18:20 ]: >>113
AA　　あ
AB　　い
という一覧表を作って
=VLOOKUP(A1&B1,一覧表,2,FALSE)
115 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 18:08:38 ]: 一覧表っていう部分だけどそんなやり方でも出来るんですね
B1:G9って感じにいつもしてた
116 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 18:50:15 ]: >>97
ありがと！
なおった！
117 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 19:10:06 ]: 私の会社では入社前にクレペリン検査をしてるんだけど検査結果で
af って文字を丸で囲ってる記号があるんだけど
私は af と入力しその上に円を書いている
例えばその文字を A1 に書いてるとし A2 に =A1 と書いても反映されず
どうするのがベストなのかな？
118 名前：番組の途中ですが名無しです mailto:sage [2008/09/03(水) 19:16:54 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
【5 検索キーワード　　】行番号　数式　オートフィル　

あるセルにいれた数式を=A1として、→方向にオートフィルでドラッグしたとき
それぞれのセルに入る数式の変化が通常なら=A1、=B1、=C1、=D1となるところを
数式の1の部分だけを＋70ずつ増やしていくということはできるでしょうか？
セルに入る数式は=A1、=A71、=A141、=A211、という感じです
119 名前：名無しさん＠そうだ選挙にいこう [2008/09/03(水) 20:00:54 ]: >>117
カメラ機能
>>118
=indirect("A" & column()*70+1)
120 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 20:17:37 ]: >>113
C1に↓これを入れて下へコピー
=CHAR(CODE(JIS(CHAR(CODE(A1)*4+CODE(B1)-44948)))-256)
121 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 20:25:01 ]: 　↑
これはＡＢが全角用だから、半角の時は 44948 を 148 に汁
122 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 22:02:04 ]: xp,2002
複数セルの数式の頭に一気に=を付けたいのですが
どのような方法があるでしょうか？
置換ではできませんでした
123 名前：名無しさん＠そうだ選挙にいこう [2008/09/03(水) 22:51:41 ]: xp2003
マウスポインタと連動して動く、エクセルをみやすくするため？の横棒って
どうやって表示するんでしょうか、、、教えてください。。。
124 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 22:59:51 ]: ロータス１・２・３の質問スレはここですか？
125 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 23:26:20 ]: >>122
vbaで値の頭に=をつける
126 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/03(水) 23:27:45 ]: >>124
違う
127 名前：sage [2008/09/03(水) 23:55:11 ]: >>77
こんなのはどうでしょう？

A1セルに住所が入力されているとして、
漢字部分
=LEFT(A1,LEN(A1)-LENB(A1)+LENB(ASC(A1)))
数字部分
=RIGHT(A1,LENB(A1)-LENB(ASC(A1)))

※住所中の全角カナは事前に半角カナへ置換しておく
128 名前：88 [2008/09/04(木) 03:06:05 ]: >>91

ありがとう。
解決しました。
msgboxの方がよさそうですね。
129 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 04:50:19 ]: 厨な質問恐れ入ります。
My親父殿がExcel2000を愛用しているのですが、

・この使用期限はいつまででしょうか？
・来年前半あたりには2007を買わせたほうが良いのでしょうか？
130 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 07:39:52 ]: カメラ機能に限らず写真とかをA1に貼ったとする
A2に =A1 にしても画像が表示されないんだが表示する方法はないのでしょうか？
131 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 09:38:36 ]: >>130
だからそれがカメラ機能
>>129
使用期限はない
2007は今のところ買わないほうが良い
個人的にはタダでも使わない(他にエクセル・openofficeがない場合の最終手段)
132 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 09:50:11 ]: >>77
>>127 こんなのも有るよ
「エクセル技道場」ttp://www2.odn.ne.jp/excel/index.html
これを改造すれば出来るよ(ちなみに式は配列式だよ)
＞　数字＋文字列から数字のみを取り出す
＞　○数字＋文字列から数字のみを取り出す
＞　=LEFT(A1,LEN(A1)*10-SUM(LEN(SUBSTITUTE(A1,{0,1,2,3,4,5,6,7,8,9},))))
133 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 12:20:23 ]: 社長　　山田太郎　　東京都
副社長　山田花子　　東京都
取締役　山田次郎　　東京等
・
・
×10000人分
みたいな文字列のエクセルデータを、３列にして

社長　山田太郎　東京都　　副社長　山田花子　東京都　　取締役　山田次郎　　東京等

として、名簿を横に並べて、印刷したいのですが、どうやったら並べ替えて印刷できますのでしょうか。
134 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 12:54:52 ]: AC　山田A
AB　山田D
AA　山田C
AC　山田B
AA　山田E
を、

AC　山田A
AC　山田B
AA　山田C
AB　山田D
AA　山田E

って感じにしたいのですがどうしたらいいのでしょうか？
AC　山田A
AB　山田B
AA　山田C
AC　山田D
AA　山田E

自分でいろいろすると上のような感じになってしまいます
135 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 13:09:19 ]: AA　山田A
AB　山田D
AA　山田C
AC　山田B
AA　山田E

こんな感じの表があれば左にAAと書いてる横一列のみ出力べーじに
出力するにはデのでしよえたな、
136 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 13:33:23 ]: >>133
汚いけど、A1から社長が始まり、F1に社長、I1に副社長、L1に取締役
だとすると、
F1: =INDIRECT("A"&((ROW()-1)*2+ROW()))
I1: =INDIRECT("A"&((ROW()-1)*2+ROW()+1))
L1: =INDIRECT("A"&((ROW()-1)*2+ROW()+2))
じゃだめかな。もう一ひねりできそうな気がするが。

ちなみに
G1: =INDIRECT("B"&((ROW()-1)*2+ROW())) (山田太郎を表示)
H1: =INDIRECT("C"&((ROW()-1)*2+ROW())) (東京都を表示)
あとは同。

>>134
意味不明だな。

AC 山田A
(略)
AA 山田E
を選択(反転)してデータ、山田A優先で並べ替えとどこが違うの?
137 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 13:34:34 ]: >134
二列を選択して並び替えるんだ
138 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 13:43:14 ]: >>136

ありがとうございます。
汚いとはどういう意味でしょうか。

あとそれは、ページ設定→シート→印刷範囲で設定するとそうなるのですか？
それとも他の設定でそのように印刷出来るのでしょうか。
再度質問ですいません。
139 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 13:55:10 ]: >>138
こんなことじゃエクセルは君には無理だ、
入門書を読んでから、またおいで
140 名前：136 mailto:sage [2008/09/04(木) 13:58:08 ]: >>138
汚いってのは、自分が書いた数式のことね。

> ページ設定→シート→印刷範囲で設定するとそうなるのですか？
これじゃ無理。

3列に並べた表を新たにつくって、そっちを印刷しろってことさ。
まず、シートに
>>136 で書いた数式入れてみなよ。
話はそれからだ。
141 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 14:36:21 ]: これ初心者の質問か迷ったんですけど

表をプリントアウトした場合に
2枚目以降も、1枚ごとに先頭に項目名を表示するにはどういう設定をするのか
教えて下さい！
142 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 14:40:06 ]: A1とA2に入力した文字が同じであればA2に〃を入力。違うならA2の文字はそのままにする方法ありませんか？
143 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 15:54:10 ]: >>141
ttp://pc.nikkeibp.co.jp/article/NPC/20060712/243055/

>>142
Excelちゃん泣いちゃうだろ。それ。
A1ちゃんとA2ちゃんは同じだから、A2ちゃんを〃にしてと。
あれ？、これしちゃうと。A1ちゃんとA2ちゃんは違うから、
元のA2ちゃんなんだっけ、Excelわかんな～いっ。
ってならんか？

　A　　　　B
1 笑う　　=A1
2 泣く　　=IF(A1=A2,"〃",A2)
3 泣く　　=IF(A2=A3,"〃",A3)

空白とか全角半角には気をつけるように。
144 名前：129 [2008/09/04(木) 15:59:57 ]: >131
>使用期限はない
>2007は今のところ買わないほうが良い

ご教示ありがとうございました。助かりました。
145 名前：141 mailto:sage [2008/09/04(木) 16:37:15 ]: >>143
ありがとうございます！
しかしせっかくですが、自分はエクセル2007なので
ちょっとやり方が違うようでした。。。

同じ項目を探して辿ったのですが
表示された、印刷のタイトル行に入力ができませんでした。
またよろしくです。。
146 名前：141 mailto:sage [2008/09/04(木) 16:43:36 ]: 突然ですが、自己解決しました！！
ありがとうございました。
147 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 17:00:34 ]: >>140

ありがとうございます。
兎に角やってみます！
148 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 18:18:24 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】エクセル　マクロ　シート　文字列　選択　状態

1年1組　1年2組　1年3組　…　1年10組　2年1組　2年2組　等の

複数のシートがあります。
その中で1年という文字列を含むシート全てを選択状態にしたいのですが、

マクロで出来たと思ったのですが、すみませんがコードをお願いできないでしょうか？
149 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 18:31:51 ]: VBAのMod演算子について質問ですが、10.5 Mod 3.5　は何で2になるの？
0になりそうなものだが。
150 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 18:33:52 ]: >>148
> マクロで出来たと思ったのですが、すみませんがコードをお願いできないでしょうか？
ttp://www.moug.net/tech/exvba/0040032.htm

"売上表*" -> "1年*"
151 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 18:41:01 ]: >>149
左の10.5が銀行型丸めで10になり、右の3.5が同じく銀行型丸めで4になる。
すなわち10 Mod 4として計算されるから答えは2で合ってる。
152 名前：149 [2008/09/04(木) 18:53:35 ]: >>151
サンクス、そのように計算されるんですか。
だとするとヘルプはちょっとおかしくないですか？
そのように計算されるなら、resultが少数になることはありえないんじゃ？？？
153 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 18:58:31 ]: >>152
ヘルプの間違いは探せばいくらでもある。
あまり鵜呑みにするな。
154 名前：149 [2008/09/04(木) 19:06:15 ]: >>153
そうなんですか。困ったものですね。
155 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 19:38:18 ]: まあresultが小数になることは無いから、resultの少数は切り捨てられるってのは
別に書く必要は無いけど、計算時に
> このとき浮動小数点数は整数に丸められます。
と書いてあるんだから、動作としては解説通りで間違ってはいないだろ。
156 名前：名無しさん＠そうだ選挙にいこう [2008/09/04(木) 19:48:51 ]: >>150
ありです
157 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 20:25:48 ]: A1に AA
A2に AB
があり

B1 DAA
B2 DBB
と表示させたくて
B1に=ﾞDﾞA1
B2に=ﾞDﾞA2
を入力しましたがエラーになりました
どうすれば良いのでしょうか？
158 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 20:35:50 ]: B1に=ﾞDﾞ & A1
B2に=ﾞDﾞ & A2
159 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 20:39:48 ]: A1
B1
にそれぞれ1という文字が入ってるとします
=IF(A1+A2,ﾞgoodﾞ,ﾞbadﾞ)
だとちゃんと動作してくれるのですが
1の代わりに日本語入れると動作してくれないです
どこをどうすれば改良してくれるのでしょうか？
160 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 20:46:38 ]: ここをこうして改良してみました
=IF(A1&A2<>"",ﾞgoodﾞ,ﾞbadﾞ)
161 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 20:52:27 ]: =IF(A1+A2,ﾞgoodﾞ,ﾞbadﾞ)って何を求めているの？
動作してくれたの？
漏れのは無理みたいｗ
162 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 21:05:47 ]: >>155 他
そうなんだよね。悩ましい。
話題からそれるけれど、
ttp://msdn.microsoft.com/ja-jp/library/se0w9esz(VS.80).aspx
VBから操作しようと思ったら、
例題を実行するVBA以下ソースとまったく違うんだ。こまったもんだ。

Sub main()
Dim testResult As Double
testResult = 10 Mod 5
Debug.Print "Ans1:" & testResult
testResult = 10 Mod 3
Debug.Print "Ans2:" & testResult
testResult = 12 Mod 4.3
Debug.Print "Ans3:" & testResult
testResult = 12.6 Mod 5
Debug.Print "Ans4:" & testResult
testResult = 47.9 Mod 9.35
Debug.Print "Ans5:" & testResult
End Sub
163 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 22:14:01 ]: 俺の場合、VBでもVBAでもVBSでも
MODは算術計算というよりほとんど条件分けに使ってるから
全然困らないな

算術計算するときは自分でMod関数作れば良いだけだし
164 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 22:17:57 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい(ちょっとだけ）
【4 VBAでの回答の可否】可
【5 検索キーワード　　】ｅｘｃｅｌ　コマンドボタン　固定

ｖｂａでコマンドボタンを押す事によりデータ抽出をしているのですが、その過程で
押す前の位置は当然、問題ないんですが押してデータ抽出をすると、行削除をしているからなのかコマンドボタンの位置があらぬ所に変更されてしまいます。
セルＫ１にコマンドボタンを置くとして、どのようなアクションが起こってもコマンドボタンの位置を固定（K1）にする事などできないでしょうか？

よろしくお願いします。
165 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 23:51:40 ]: >>164
俺の感覚からいくと、処理のためのシートとデータのシートは一緒にしない。
よくわからないから、マクロ記録してみたよ。

質問不明瞭だけど次のようなコードでいけるんでないの?
ボタンは、B3:C4あたりに配置した。(CommandButton1)

Sub Macro()
Dim cLeft, cTop As Double
ActiveSheet.Shapes("CommandButton1").Select
cLeft = Selection.ShapeRange.Left
cTop = Selection.ShapeRange.Top
Debug.Print "削除前左:" & cLeft
Debug.Print "削除前上:" & cTop

’削除処理とかここだし。
Rows("1:6").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Shapes("CommandButton1").Select
Debug.Print "削除後左:" & Selection.ShapeRange.Left
Debug.Print "削除後上:" & Selection.ShapeRange.Top

Selection.ShapeRange.Left = cLeft
Selection.ShapeRange.Top = cTop
Debug.Print "移動後左:" & Selection.ShapeRange.Left
Debug.Print "移動後上:" & Selection.ShapeRange.Top
End Sub
166 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/04(木) 23:53:41 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
【5 検索キーワード　　】パワーポイント　文字数　カウント

スレ違いで大変申し訳ありませんが、
パワーポイントのノート画面部分の文字数のみをカウントするマクロって
ないでしょうか？PPTファイル内の文字数をカウントするマクロは見つけたのですが。
ご存知の方いらっしゃいましたら、よろしくお願いします。
167 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 01:03:37 ]: >>166
ttp://oshiete1.goo.ne.jp/kotaeru.php3?q=1582124&rev=1
と、どう違うか教えて。

おやすみ。
168 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 01:15:06 ]: >>164

プロパティで位置とサイズ固定できなかったっけ？
あれはオートシェイプのみだっけ
169 名前：名無しさん＠そうだ選挙にいこう [2008/09/05(金) 06:16:24 ]: 【1 OSの種類　　　　 .】 WindowsXP
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

Ａ１に「１」と入力すると、Ｃ１～Ｅ１までが赤くなる（３マス）
Ａ２に「２」と入力すると、Ｄ２～Ｇ２までが赤くなる（４マス）
Ａ３に「３」と入力すると、Ｃ３～Ｅ３までが黄色くなる（色違い）
Ａ４に「４」と入力すると、Ｃ４～Ｅ４までが赤くなる。＆１マスごとに「Ａ」と記入される（文字と色）

というのはできますでしょうか？
欲張りすぎていて、難しいでしょうか？ご教授のほどよろしくお願い致します。
170 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 07:29:33 ]: >>169
教授じゃないので難しいことは分からん。

・色を変えたいセルに条件付き書式を設定
・文字を表示したいセルはIF文
171 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 09:45:09 ]: EXCEL2002、厳密にはスレ違いとわかっていて質問

(Excelで)NumLockで数値を入力していくときに、
= を出すにはどうすれバインダー

NumLock状態だと Shift + "‐"では出ないのぜ
毎度解除して = を入力して戻すのは非効率なので
なにか方法があるのだとおもうのぜ
172 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 09:49:19 ]: >>159
( ´,_ゝ`)ﾌﾟｯ
あんた、足し算の意味もわからないのか？
173 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 10:06:33 ]: >>171
ノートパソコンのこと?
俺のは「わ」キーのところに*があるためにShift + "‐"で"="が出る
PCを買い換えるかテンキーを買うべし

・・嘘です
ベクターにキーの配置を変えるソフトがあるよ
こういうの何ていうか知らないけど
ttp://search.vector.co.jp/search?query=%83L%81%5B%81%40%94z%92u
174 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 10:14:27 ]: >168
固定できる。
>171
普通は介助しなくても入力できる。
そういう仕様のノートならメーカーを恨め。
175 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 10:15:37 ]: >>155
ヘルプの解説にnumber1とnumber2が丸められるとは書かれてないのは不親切な解説だな。
resultが丸められると勘違いする人が多いと思う。
>通常、演算結果 result のデータ型は、result の値が整数であるかどうかに関係なく
これなんか演算結果が整数意外ありえないんだから書かないほうがいいだろう。
moug.net/faq/viewtopic.php?t=32011&sid=a120d9adbac2fe14897054e792ecf5bf
ここにも分かってない人いるしね。
176 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 10:55:00 ]: >>173 ためになるコメントありがとう。
リンク先で検索ワードがわかったので窓の杜でも探してみたけど
よくわからなかったのぜ
会社のノートなのでいろいろ入れるのはこわいのぜ
NumLock状態でまわりのキーをShiiftとかでいろいろためしてみたけど
だめだったのぜ、おっけーあきらめた

>>175 ためになるコメントありがとう。不治通め・・・
177 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 14:05:35 ]: >>175
>>162のリンク読んでみると、VBのMod演算子とVBAのMod演算子と仕様が違うらしいから、間違ってVBのヘルプをそのまま載せたんじゃない？
178 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 15:41:06 ]: =E2
と入力したセルをコピーしたら値が増えるのをなんとかしたい
上記のセルが複数欲しい時は手動で直すのがかなり面倒
なんとかならない？
179 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 15:46:30 ]: フィルコピーなら絶対参照
コピー%ペーストならINDIRECT
180 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 15:47:00 ]: >>178
言いたい事は分かるし解決法も分かるが
お前の態度が気に入らない
181 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 16:14:57 ]: >>177
そうでもないみたい。
解説がいまいちなのは確かだね。
182 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 17:14:09 ]: すみません

　　　月　　日　　時　　　分
　　　A1　　A2　　A3　　A4
B1　８　　 1 　　 7 　　 52

これを一つのセルに1:7:52（月は必要なし）という感じに抜き出して日付にしたいのですが
ググってもわからなかったのでここで・・・。
分かる人がいましたらお願いします・・・
183 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 17:19:51 ]: >>178 絶対参照でググるのぜ
184 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 17:22:31 ]: >>182
行列逆にするなよ気色悪いな
=A2+TIME(A3,A4,0)
書式設定は
d:h:mm
だが変わった記述だな
185 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 17:35:01 ]: >>184
ありがとうございます！行と列は普通に書き間違えました・・。
ゆくゆくはこの形式から例えば
1日10時10分が
1日7時52分～2日3時25分の間なら正、じゃなければ負といったように
時間で範囲指定をするつもりです。問題がなければ・・・
186 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 21:47:10 ]: 【1 OSの種類　　　　 .】 WindowsXp
【2 Excelのバージョン　】 Excel2003
【3 VBAが使えるか　　 .】若干
【4 VBAでの回答の可否】可
教えてください。
20080101
20081005
といったデータ（値）を
2008/1/1
2008/10/5
として表示形式で好きな表示に変える、ということがしたかったのですが、
煮詰まってしまいました。
yyyymmddという形式は決まっているので、ためしに
CONCATENATE(LEFT(A1,4),C1,MID(A1,5,2),C1,RIGHT(A1,2))
（A1＝"20081010"、C1＝"/"　）
として見かけ上2008/10/10　となっても表示形式で（例えば）10月10日
とはなってくれませんでした。
一連のVBAでの中でつかうので出来ればVBAで解決したいと思っております。
なんかすごく簡単に出来そうなのに出来なくて混乱しております。
なにとぞご教示お願いします。
187 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 22:00:20 ]: =year(right(a1,4),mid(a1,5,2),right(a1,2))
188 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 22:01:36 ]: =date(right(a1,4),mid(a1,5,2),right(a1,2))
189 名前：名無しさん＠そうだ選挙にいこう mailto:sage [2008/09/05(金) 22:01:46 ]: Google DocumentのスプレッドシートにDCount()がなくて対処法を知りたいんですが、
どこで質問したらいいでしょう？

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef