Excel総合相談所 96

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

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

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

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

前スレ
Excel総合相談所 95
http://hibari.2ch.net/test/read.cgi/bsoft/1293162589/

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

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

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

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

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


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

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

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

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

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

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

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

以上でテンプレ終わり （Excel総合相談所 94からコピペ、一部改定）。

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

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

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

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

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

スレッド変わってみてないかもだから、
989の方、981です。ありがとございました。

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

お願いします。

・Sheet1のJ列の値がゼロまたは空白ではない場合
　Sheet1のJ列の値をSheet2のA1にコピー。
　Sheet1のA列の値をSheet2のB1」にコピー。　
　Sheet1のB列の値をSheet2のC1にコピー。
・Sheet2を別の新規ブックで保存。 （自パスに）
　ファイル名は「Sheet1のB列の値＋Sheet2のシート名.xls」
※上記をSheet1の2行目からB列に値がある最終行まで繰り返します。

前>>993様
ありがとうございます。
頂いた画像を見ながら考えています。


前>>996様
貰った表がこんな感じで、そこから項目名をくっ付けて
下の表に横並びで書かなければいけないのでこうなってしまってるのです。



上図の様な表が、個別にあと300個くらいあってそこからも一致する値を見つけ出して、下図の横に配置すると言う感じです。
関数で無理ならVBAしか無いと思ってるんですが、上の図の形を崩さずに抽出する方法はありませんか？

>9
＞上図の様な表が、個別にあと300個くらいあって〜

ちょっとおたずねします
シートが３００くらいあるの？　それとも前スレ>992でアップされた表でいうと　B3:F10　のような表の
行数が３００くらいあって、その下に　B15:B65　の１次元の表が続くような感じですか？

>9
こんなのでいいのかな？　このマクロはシートに書いてください。
Option Explicit
Dim c_i As Range, find_area As Range, c As Variant
Dim m As Integer, x As Integer, y As Long, w As Variant, z(4) As String
Sub 前スレ992()
　Set c_i = Range("B3")　　'←上の表の左上隅のセル位置
　Set find_area = Range("B16:B65")　'←下の表の範囲
　find_area.Cells(1, 1).Offset(0, -1).Resize(find_area.Rows.Count, 1).ClearContents
　z(1) = "(" & c_i.Offset(0, 1).Value & "、" & c_i.Offset(1, 1).Value & ")"
　z(2) = "(" & c_i.Offset(0, 1).Value & "、" & c_i.Offset(1, 2).Value & ")"
　z(3) = "(" & c_i.Offset(0, 3).Value & "、" & c_i.Offset(1, 3).Value & ")"
　z(4) = "(" & c_i.Offset(0, 3).Value & "、" & c_i.Offset(1, 4).Value & ")"
　y = 0
　Do
　　For x = 1 To 4
　　　w = c_i.Offset(y + 2, x).Value
　　　 If IsNumeric(w) And w > 0 Then
　　　　Set c = find_area.Find(What:=w)
　　　　If Not (c Is Nothing) Then
　　　　　c.Offset(0, -1).Value = c.Offset(0, -1).Value + 1
　　　　　m = c.Offset(0, -1).Value
　　　　　c.Offset(0, m).Value = c_i.Offset(y + 2, 0).Value & z(x)
　　　　End If
　　　End If
　　Next x
　　y = y + 1
　Loop Until (c_i.Offset(y + 2, 0).Value = "")
End Sub

処理対象セルは横方向に4列移動してから次行に移るので、前スレ992の例と出力順が異なります。
上の表にある数字が下の1次元の表にないときは出力しません。（前スレ992の表だと250のこと）

補足
ClearContents　の行は、下の表の左隣を作業用として使っている（出力列の相対位置を記録）ので、
毎回クリアするためのものです。なので、下の表がＡ列にあるとまずいです。
あと、Excel2003までは最大列数が２５６なので、特定の値にデータが集中するとオーバーフローするかも。

>>8
文通りだとA1B1C1を何回も変えることになるからエスパーした
Sub aaa()
Dim a, b, c, d, e, f, g
Application.ScreenUpdating = False '描画更新ストップ
a = ThisWorkbook.Path & "\Sheet1のB列の値＋Sheet2のシート名.xls"
If Dir(a) <> "" Then
MsgBox "すでにあるよ"
Exit Sub 'すでに存在してたら終了
End If
Set b = Workbooks.Add '新規ブック作成
b.SaveAs Filename:=a
b.Activate
Set e = Sheet1
Set f = b.Sheets("Sheet1")
Set g = b.Sheets("Sheet2")
c = Sheet1.Columns(2).End(xlDown).Row
'〜続く〜

'〜続き〜
For d = 2 To c
If e.Cells(d, 10) <> 0 Then
f.Cells(d, 10) = e.Cells(d, 10)
g.Cells(d, 1) = e.Cells(d, 10)
f.Cells(d, 1) = e.Cells(d, 1)
g.Cells(d, 2) = e.Cells(d, 1)
f.Cells(d, 2) = e.Cells(d, 2)
g.Cells(d, 3) = e.Cells(d, 2)
End If
Next
Application.EnableEvents = False '警告メッセージを出させない
b.Save '新規ブック保存
b.Close '新規ブック閉じる
Application.EnableEvents = True
Set e = Nothing
Set f = Nothing
Set g = Nothing
Application.ScreenUpdating = True
End Sub

違ったらすまんこ

初心者です。A 列に最大4桁の数字が入っています。
この数字を 例えば 12とあれば、国語12点 1356とあれば、国語1365点
9とあれば、国語9点
となるように 数字の頭と尻尾に文字を入れたいのですが
教えてくれませんか？

>>15
右クリック→書式設定→ユーザー設定→"国語"0"点"

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

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

初めまして皆さんのお知恵をお貸し下さい。
ttp://www1.ttcn.ne.jp/yh006/YH006.files/musen/rp.files/kako.files/GCI/GCI.htm
↑のページ（真ん中辺り)にある
周波数を入力すると、該当周波数を使用者&その他
で出力させたいのですが
どんな風にすればいいでしょうか？

>>18
VLOOKUPとかで

>>18
出来るとしても俺は手を貸さない。

はじめまして、失礼します。
今現在以下のような表を作っています

　A　　　B　　　　　 C　　 D　 E　F　 G… W
1名前　可不可　　 数　 �@　�A �B　�C… �S
2Ａｻﾝ　　0(不可)　
3Ｂｻﾝ　　1(可)　　 　6　　○
4Ｃｻﾝ　　0　　　　
5Ｄｻﾝ　　1　　　　　 0
6Ｅｻﾝ　　1　　　　　 4　　　　　　×
7Ｆｻﾝ　　2(×のみ可) 2
･
･

この様な感じで横は�@〜�Sくらいまで
縦は30人くらいまで作っています。
この表を改良していき、次のことをしたいのです

ごめんなさい･･･上のテンプレが切れてました；
【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

1,D列(�@)でRAND関数を使い乱数を求め、その数値の最大･最小が誰かを出す
2,最大を○･最小を×として、D列のその人の行にそれぞれ○、×を表示
(*1.この時にB列(可不可)が0になってる人はとばす、3になってる人は最小の時のみ表示)
(*2.先にD列〜に○、×を入力している人はそこは○、×にする)
3,○か×がついたらC列(数)に入力した数から-1する。この数が0になったらそれ以上その人に○、×をつけない
4,それをE列(�A)、F列(�B)…と繰り返していき、それぞれに○、×を表示する
(*3.C列(数)はあらかじめ合計が40になるように入力します)
(*4.A列には上から名前を入力しますが、後半は空欄が出ます。そこは乱数を求めなくていいです)

最終的にD~W列(�@〜�S)に○、×がそれぞれ一つずつ、
それぞれの人にC列(数)で入力した数だけの○+×が
出ているようにしたいです。
これをボタンを押すことによって計算させるようにしたいのですが…

ここ数日色々と試行錯誤したのですが、どうにもうまくいきませんでした。
もちろん、表の形は変わってしまって構いませんし、RAND関数なども使わなくて大丈夫です。
もしこれが可能そうな方がいましたら、どうか教えてください。
よろしくお願いします。

>>21
RAND関数はワークシートを表示するたびに数値が変わるので、ハードディスクに保存した物を
呼び出すごとに、完全に結果が変わってしまいますが、それでいいのでしょうか？

また、RAND関数と判定結果(○×)は同じセルに入れることが出来ないので、
別の列か別のシートを用意して、そこに数字を入れておく必要があります

RAND関数を使わない場合、○の人と×の人はどうやって決めるのでしょうか？

>>21-22
VBAの方が楽だろうな

とりあえずブックうpして
暇なときにコード組み込んでうpし直してあげるから

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007（ではあるが、2003形式で作成）
【3 VBAが使えるか　 　 .】 うーん
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel　偶数　抽出

賞状作りをしています。番号と名前、その他情報が振られた表を作成し、
以下のようにマクロで呼び出されるTextBox1〜2に番号を入力すれば
自動で賞状の枠に名前等がリンクされ一気に印刷できるというものを作りました。
しかし、これだと一回の印刷で1枚しか印刷できず、時間もかかり紙も勿体ないので
1回の印刷で一度に2枚分を出したいと考えました。
仮に、A5サイズの賞状枠を二枚並べ、A4として出します。
片方1とするならば2、次の印刷では3と4の番号が入力されるようにしたいのです。
Mod関数を利用すれば偶数奇数に表を分離することが出来そうですが、
それをこの関数に絡ませる知識が全くありません。良い知恵があればよろしくお願いします。

Private Sub CommandButton1_Click()
Dim BAN As Long, 開始 As Long, 終了 As Long

Unload Me

開始 = CLng(Me.TextBox1)
終了 = CLng(Me.TextBox2)

For BAN = 開始 To 終了
[Y1] = BAN

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Next

Selection.Select

>>23 俺も文面通りRNDの値を入れたいのかと思ったがおそらく○×だけだとおも
×のみ可が>>21で2で>>22で3になってるけど2で作った
×のみ可が複数いなければもっと簡単になる（×のみ可だけ残ると詰むから）
Sub aaa()
Dim a, b, c(4 To 23), d(100), e, f(), g, h(100), i, j
a = Columns(1).End(xlDown).Row
ReDim f(a)
Range(Cells(2, 4), Cells(a, 23)).Clear
For b = 2 To a
If Cells(b, 2) = 2 And Cells(b, 3) <> 0 Then 'aaa
g = 0
For e = 0 To 19
If d(e) <> 1 Then
h(g) = e
g = g + 1
End If
Next
For e = 1 To Cells(b, 3)
i = Int(Rnd * g)
Cells(b, h(i) + 4) = "×"
d(h(i)) = 1
'〜続く〜

'〜続き〜
For j = i To 18
h(j) = h(j + 1)
Next
Next
ElseIf Cells(b, 2) = 1 And Cells(b, 3) <> 0 Then
f(b) = Cells(b, 3)
End If
Next
For b = 4 To 23
g = 0
For e = 2 To a
If f(e) > 0 Then
h(g) = e
g = g + 1
End If
Next
i = Int(Rnd * g)
Cells(h(i), b) = "○"
f(h(i)) = f(h(i)) - 1
If d(b - 4) <> 1 Then
'〜続く〜

>>25
For BAN = 開始 To 終了 Step 2

1回目のループでは､BAN=1なので

　1：= BAN
　2：= BAN + 1

2回目のループでは､BAN=3なので

　3：= BAN
　4：= BAN + 1

3回目のループでは､BAN=5なので

　5：= BAN
　6：= BAN + 1

'〜続き〜
For j = i To a - 1
h(j) = h(j + 1)
Next
i = Int(Rnd * (g - 1))
f(h(i)) = f(h(i)) - 1
Cells(h(i), b) = "×"
End If
Next
End Sub

'B列の（可）とかは文字になっちゃうから消してね

>>20
どうして？

>>23
>RAND関数はワークシートを表示するたびに数値が変わるので、ハードディスクに保存した物を
呼び出すごとに、完全に結果が変わってしまいますが、それでいいのでしょうか？
やっぱり変わってしまうんですよね＞＜マクロとか使えば何とか…と思って頑張ったのですが；；

>RAND関数を使わない場合、○の人と×の人はどうやって決めるのでしょうか？
RANDから最大と最小で○、×を出したのは他に方法が思い浮かばなかったからで、○･×を出せればどのような方法でも大丈夫です

>>24
ありがとうございます
うｐしてみましたので、見てくださるとありがたいです
ttp://www.dotup.org/uploda/www.dotup.org1413695.rar.html

>>26
×のみ可は2です。失礼しました；
それと早速VBAありがとうございます
試してみたいと思います

すみません！すっかり大事な条件を忘れてました･･･
○か×が来たら、その後ろ３マスは○も×も入れないようにしたいです＞＜
今更になってしまい申し訳ないです；；

> ○か×が来たら、その後ろ３マスは○も×も入れないようにしたいです

その条件だと明らかに詰みますよ
例えば

1 Aｻﾝ　　0　　　　
2 Bｻﾝ　　1　2　　 　○
3 Cｻﾝ　　1　5　○　×
4 Dｻﾝ　　2　3　×


2回目まで終わって､さて次に何処に○入れる？
Aｻﾝは「0 不可」だから除外､Bｻﾝは一つ前に○来たから除外
Cｻﾝは一つ前に×来たから除外､Dｻﾝは「2 ×のみ可」な上に二つ前に×来たから除外

ほら､○どころか×も､どこにも入れられない

序盤は良いけど､終盤はこうやって何処にも何も入れられずに詰み
詰んだ場合はどうする？そこで処理終了？詰んだ場合のみ「その後ろ３マスは」の条件外して続行？

やっぱり詰んでしまいますか･･･
15人くらいはいるから最初の方は大丈夫だと思うのですが、終わりになるにつれ詰んでしまいますよね
３マス条件は外せないので少し前からやり直しに…は出来ないですよね

おそらくシフトの作成でしょ
大方､○×は夜勤で､○が夜勤のリーダーさん
夜勤入り始めの新人さんはリーダー役出来ないから×のみとかそんな感じ

はっきり言って詰んだ場合は､途中からじゃあまり意味無いので
最初からやりなおすしか無いけど､それを繰り返すことはVBAならいくらでも可能

ただし､詰まずに結果が出るまでどのくらい掛かるか解らないし
うpしてくれたブックの条件なら､確実に「詰まない結果」は存在するけど
条件によっては「詰まない結果」がそもそも存在し得ず､
無限ループに陥る可能性もあるけど､それでも良いの？

シフト作成ならソルバーつかえばいいのに

>>35
素晴らしいです、お察しのとおりシフトを作りたいです
まさか夜勤まで当てられるとは･･･

無限ループは怖いですね…
途中でとめられるようなら何とか＞＜

>>37
なるほど、だから直後の3つは絶対に空白にしたいわけね

こういうのって勝手に決めるんじゃなくて、みんなの都合を聞いて作るんじゃないの？
あと、ランダムに決めるんじゃなくて一定の決まったパターンにしないと間違いが起こりそう

ちなみにこちらが自分で作っている勤務表です
ttp://www.dotup.org/uploda/www.dotup.org1413942.rar.html

勤務回数は休み10前後、夜勤5前後、早番3前後、２番2前後であとは適当に
夜勤、明け、休みをセットにしてその後にはなるべく夜勤が来ないようにする
一日のシフトは日曜は早番、２番、３番、４番。月〜金曜は６番〜８くらいまで
となるよう考えています

基本を教えていただいて後は自分で頑張ろうかと思ったのですが…
VBA見てると自分ではとても出来そうにない；；

>>37
途中で止められるようにも出来るけど､処理速度が落ちるんで
とりあえず数百回ループ回してダメなら一旦終了させ､任意で再度実行としようか？

適当に組んでみたけど､うpしてくれたブックの条件で結果が出るまでのループ回数は､
数十回試した上で､最大380､平均すると100回前後
500回のループ回すのに､数年前のPenM2GHzのPCで1秒掛からない程度だから
とりあえず使えないことはないだろう

ただ休暇の希望とかも出るだろうけど､そういうの一切無い条件で組んじゃったし
21がVBA使えないとなると､そういう細かい調整出来ないだろうから､実用可能かは
解らないけど､それで良いならうpするけど

>40
それで構いません！
ＶＢＡはほとんど使えないけどこれを機会に少しずつ勉強して…

>>41

ほれ
http://www.dotup.org/uploda/www.dotup.org1414006.xls.html

DLパス：up_hyou


あと､このやり方だと､回数が少ない奴(最大6､平均4.6に対して3回)は
夜勤が前半に集中する｡乱数で平等に割り振る以上､
回数の少ない奴ほど早く回数が尽きる=尽きる前(前半)に夜勤が集中し､尽きた後(後半)には一切無い
ってことになるが､この辺も必要なら勉強して変えてみな

>>42
ありがとうございます
前半に偏ってしまうのは悲しいですね…ちょっとそこも考えてみます
ちらっと見ましたが軽く眩暈がしました＞＜エクセル自体ほとんどいじったことなかったので；
かなり大変なことになりそうです＾＾；

まあ前半に集中するのは傾向であって､必ずしも前半のみになるわけじゃなく
3回の奴でも29､30あたりに夜勤が出てくることもあるけどね

あと､コードを移植する場合､クラスモジュールにもコードがあるので注意してね
これもちゃんとクラスモジュール作って移植しないと動かないから

驚いた。

>>39
夜勤のあとは明けと休みを自動で入れるんだよな？てことは前の月の夜勤の続きの明けと休みは手書きで書いておくのか？
あと早番とか日勤も夜勤と同じように当てはめていくのか？かなり難しい気がするが…出来ないんじゃないか、詰んで

二点質問です。

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】ソルバー　使い方、エクセル　複利計算

�@ソルバーについて
以下のように記入しています
a1~d1に12.3、34.5、56.7、78.9
a2~d2に0.9、0.8、0.7、0.6
a3~d3に0、0、0、0
a4~d4にroundup(a3,-1)、roundup(b3,-1)、roundup(c3,-1)、roundup(d3,-1)
a5~d5に=a1*a2*a4、=b1*b2*b4、=c1*c2*c4、=d1*d2*d4
d6に=sum(a5:d5)
（数字の変化を10刻みにしたいと思っています。）

ソルバーの設定は
【変化させるセル】a3:d3
【目的セル】d6
【制約条件】なし
【目標値】値　10000

これで実行すると、仮の解が見つかりません、と出ます。
どこがおかしいのでしょうか？

�A複利計算について
a1に10000（初期値）、a2に5%（増加率）、a3に500（増加数）、a4に20（経過日数）
として、((((10000+500)*1.05)+500)*1.05)...
みたいな感じで20日分、1セル内の計算でやりきるには、
どうすればよいのでしょうか？

複利については自己解決しました。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】保護　移動　カーソル ロック　出来ない

VBAのスレで質問したんですが、こちらだったみたいなので
こちらで質問させてもらいます。

保護について教えて下さい。
シートを保護する時にロックをしてるセルを選択出来なくなる
する奴あるじゃないですか？
あれをやると時々エクセルの挙動がおかしくなります。

矢印キーが効かなくなったり
アクティブセルの周りに普段なら出る黒い枠線が出なかったりとか。
スクロールロックが掛かってるとかそんなんじゃないです。

前から時々なってて、ぐぐって調べたんですが
特にこれと言って解決策が見つかりません。
これだという絶対的な発生条件も不明です。なったりならなかったりします。

おう、マルチになっとる…。知恵袋とかで聴くか

>>46
出来れば夜勤が出たらその後ろに明け休みも自動で表示されるようにしたいです
前の月からの夜勤の続き(明け、休み)は希望勤務に先に入力するようにします
夜勤が全部出たらそれをふまえたうえで早番、２番〜も同じように？出すつもりです

ただ教えてもらったり、途中まで作っていただいたものを見ながら色々調べて勉強してますが
正直自分で作れる気がなくなってきましたね…

>>28
よもや「step 2」をお尻に入れるだけで出来るようになるなんて……
どうもありがとうございました。とてつもなく助かりました。

>>51
> 出来れば夜勤が出たらその後ろに明け休みも自動で表示されるようにしたいです
どういう文字や記号を入れるのか教えてくれれば簡単に出来ます

> 前の月からの夜勤の続き(明け、休み)
これも情報があれば簡単に対応可能です
情報というのは､例えばC列の後ろに列を挿入し､前の月が31日までなら､
31日に夜勤だった奴は1
30日に夜勤だった奴は2
29日に夜勤だった奴は3
というように､1日時点で前回の夜勤から何日経っているかとか､(4日以上なら不要)
前月の末3日分のシフトをコピペする欄を用意するとか(但しこの場合は
人が減ったり増えたり入れ替わったりした場合にズレるので注意)

このくらいなら時間くれれば作ってやってもいい

但し条件が一つ
今回の地震の募金が始まったら､1000円以上寄付すること
1日も経たないうちに>>51みたいな書き込み出来るってことは被害の大きい地域では無いようだし
上記だけで1000円は高いけど､前回>>42分も合わせればそんなに高くは無いだろ

EXCEL2007,Windows7です。

循環参照のエラーメッセージで出ているのを無視して作業していたら
データが消えてしまいました。
データを復元する方法があれば教えて下さい。

<現象>

(1)マイドキュメント内の
　問題ファイルABC.xls(97-2003形式；サイズ709KB)を
ダブルクリックして開く
　→「循環参照の警告〜」メッセージ表示
→[ＯＫ]→グレーの画面が表示される(Sheet非表示、タイトルはABC)。

(2)EXCEL起動→[Officeボタン]→右側に表示されるファイル名ABCを選択
　→「循環参照の警告〜」メッセージ表示
→[ＯＫ]→タイトルがBook1になり、白紙のSheet1(Sheet2,Sheet3タブ)が
　　表示される。

　※循環参照の説明画面表示と閉じる操作は省略

よろしくお願いします。

白紙になってから上書きしてないなら､今開いてるのを 別名保存でもしてABC.xlsを開き直す

既に上書き済みかつ自動保存もしてないなら無理､諦めろ､そして
今回の授業料：無くなったデータ
今回の教訓：バックアップはこまめに
ということで

>>53
"夜勤1"と"夜勤2"の後ろに"明け"で"休みです

それでは別欄に先月最終日前が夜勤だった人と最終日が夜勤だった人を
入力する欄をあらかじめ作っておいてそこに入力する形で

募金の件は了解しました
こういう機会でもないとあまり募金はしないのでよい機会だと、させていただきます

>>54
googleが１秒以内に検索結果を出してくる今時後出しで「俺も初めから知ってた」か…
ここまでの馬鹿は初めて見た

>>53
わがままを言うようで申し訳ないですが、これに入れてもらっても大丈夫ですか？；
http://www.dotup.org/uploda/www.dotup.org1417260.xls.html
ＶＢＡ見ててもどこがB,C列を指定しているのか全然分からなくて…

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

>>54
ウィンドウズ７ならファイルの復元でもどるよ

>>53
パソコンからの募金の方が早いと思い最初に目に付いたハンゲームさんで赤十字社に募金しました
http://www.dotup.org/uploda/www.dotup.org1417614.bmp.html
http://www.dotup.org/uploda/www.dotup.org1417615.bmp.html

作っていただいたものの様子を見てまた募金したいと思います

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 EXCEL コンテキストメニュー onaction

コンテキストメニューからマクロを実行させたいんですが
なぜか実行できません原因が分かる方がいたら教えてください。

ソースは下のような感じで
sample1を実行して、コンテキストメニューにコマンド1を追加して
コンテキストメニューからコマンド1を選ぶと

マクロ"Book1.xls'!myMacro1' を実行できません。このブックでマクロが使用できないか、
すべてのマクロが無効になっている可能性があります。

とエラーが出てしまいます。
しかし[開発]-[マクロ]からmyMacroを実行させるときちんと動きます。
これって何が原因なんでしょうか？

Sub Sample1()
With Application.CommandBars("Cell").Controls.Add()
.Caption = "コマンド1"
.OnAction = "myMacro1"
End With
End Sub

Sub myMacro1()
MsgBox "印刷を実行します"
End Sub

>>62
シートモジュールではなく標準モジュールに
Public Sub myMacro1()

重複のリストを作ろうとしてるのですが
例えば
　　A　　　　　B　　　　　C　　　　D
山田　　　　山本　　　　山本 2
中村　　　　世路塚　　中村　 2
瀬戸　　　　古山
山本　　　　坂村
長川　　　　中村

このように　C　に重複したものを　D　には
重複した数を表記したいのですどのようにすれば
よいのでしょうか？　よろしくおねがいします。

>>64
D1=COUNTIF(A:A,B1)
下にオートふいる。これでB列の名前で重複してるものが1以上になる
後はBをCにコピーなりしてＤ列を値で貼り付け、並べ替え

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

マクロで計算してるとき、数字と文字だと計算できないのでエラー13になります。
このときだけ、その計算式を飛ばして続行させるには、どう書けばいいですか？

Sub Macro1()

　a = 2
　b = "b"
　c = a * b　←ここでエラーになる

End Sub

IfでIsNumeric検査するのが基本だが
On Error Resume Nextで強引に通す方法もある

>>66
if文でbが数字か判断してはじくか＜On　Errorで処理続行。

今、単語帖を作ろうと思ってます。
英語の文章から単語を収集したいのですが、
例えば
I love you. Do you like car.
とあるとき
I
love
you
.
DO
you
like
car
.
というように自動的に変えるにはどうすればよいのでしょうか？
Excelは2003を使っております。

>>69
VB使用ならsplit使って配列化＆セル書き込み。

>>69
区切り位置でスペースで区切る。
そのあと行と列を入れ替える。

↑この工程をマクロで記録しておく。

>>70
>>71
ありがとうございました。やってみます。

ご回答ありがとうございます。

>>67
On Error Resume Nextは、できれば使いたくないです。
でも、計算する前に設定して、計算が終わったら解除が簡単かも。

>>68
前者は数字か否かの法方を調べてみます。
後者は、どういうことでしょうか？

Iｆ　Error = エラー13 Then　みたいな分岐はできないでしょうか？

>>73
＞Iｆ　Error = エラー13 Then　みたいな分岐はできないでしょうか

可能。On Error Resume NextとErr.Numberを使用する。つまり

If　Err.Number = 13 Then

みたいにすればいい。

>>74
ご回答ありがとうございます。
明日の早朝から停電なので、もう寝ます。
すみません。

>>53
ニュース見てまだ想像以上に酷いと知った
早いほうがいいと思い期待値ということで5000円義援金募金しました

>>76
募金ありがとうございます

とりあえず形になったので「[email protected]」にメール下さい
募金の交換条件をお願いしておきながら､関係ない人にまでばらまいたら
筋が通らないので､返信メールにファイル添付します

ただし､仕事と停電の関係で､返信は遅れるかもしれません

お約束の
･「○」「×」の替わりに「夜1」「夜2」を入力し､その後に「明」「休」を自動入力
･前月末の夜勤状況を入力することで､繰越の「明」「休」入力の自動化と､そこに夜勤割り振りの禁止
と
･夜勤回数が少ない者の夜勤が前半に偏らないように修正
　但し「偏る傾向」を修正しただけで､必ず満遍なく入るようにした訳ではなく完全ランダムなので､
　乱数の出方によっては､前半あるいは後半はたまた中頃に集中することもある
などを含め､
勝手にいくつかの機能を追加をしました

何、この腐ったやりとり

被災状況を鑑み､知識と労働力の提供の替わりに募金を促す奴

その意図を酌み取り､募金を承諾する奴

それを腐ったやりとりを茶化す奴

最初からメールでやれボケってことじゃ

最初は地震の前な件

確かにw

それもそうなだ

むしろ､「俺にくれ」じゃなくて「募金して」なのは､腐ってるどころか美徳を感じる
更には1000円って言われてるのに5000円募金する彼にも美徳を感じる

つーか、そんなの交換条件じゃなく言われるまでもなく募金しろと。

スレ違いだ。そろそろやめよヴぜ

つーか､チャリティー活動みたいなものだろ

windows vista のexcel2007で質問なのですが，テーブル機能とフィルタ機能の
２つの使い分けみたいな基準ってなんなのか簡単に教えてください。どちらも，同じような
機能のように思えてどう使い分ければいいのかよくわかりません。
よろしくお願いします。エクセルはあまりつかっていない初心者です。

フィルタはテーブル機能の一部です

フィルタは，テーブル機能の一部なのに（どちらもよく使うので）タブ内ににどちらも表示されていると
いうことでいいですか？
どうもありがとうございました。

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

お世話になります。
エンターキーを押すと横に移動する方法を教えてください。

>>91
オプション > 編集 > 入力後にセルを移動する方向
を「下」から「右」に

byExcel2003


ただ､一時的にやるなら範囲選択という手もあるけど

>>91
ご存じでしたらすいませんが、Tabキー押せば右に移動しますよ。

>>91
2010の場合、
ファイル→オプション→詳細設定→編集設定→”□Enterキーを押した後にセルを移動する（M）”にチェックを入れ、方向（Ｉ）で”右”を選択。

【Excelのバージョン】 Excel2010

B列に入力した項目がA列に無い場合に、入力したセルの色を変えるにはどうすれば良いでしょうか？

>>95
ホーム→条件付き書式→新しいルール　で設定してください。

【1 OSの種類 　 　 　 　 .】 Windows7 or Mac10.6
【2 Excelのバージョン 　 】 Excel2010 or 2011
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可

VBAのユーザーフォーム上で他のExcelファイルを選択し、開けるようにしたいです（ハイパーリンクなどで）
その際にフォーム上にチェックボックスを配置し、そのオンオフによって読み取り専用/書き込み可を選択したいと思ってます
チェックボックスを使い、ファイルを読み取り専用で開くにはどうしたら良いでしょうか

>>97
ReadOnly:=True

これで理解できなければ君には無理

>>98
サンクス！

就活しています。
自宅のPCはExcel2002（OfficeXP）ですが、
中小企業さんではExcel2003が一般的でしょうか？

>>100
むしろ大きいところのほうが可能性は高いかもね。
なんせ、用意しなくちゃならないPCおよびソフトの量が半端じゃないもの。

>>100
大企業勤務だけど、大企業ほどまだ２００３
中小はそろそろ変わってきてるんじゃね？
どっちかをしっかり勉強しておけば、他のバージョンにも対応できるよ

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

R1 SUBTOTAL(109,OFFSET(R3,,,COUNTA($C:$C)-1,1))
現在上記の用に表示中のR列の合計を表示させています。

これに手を加えて、Q列が空の場合には無視してQ列に数字が入っている場合のみ合計する
という感じにするにはどうしたらいいでしょうか？

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

ある複数のセルに、0を含む任意の数が入っています。
その最小値をvbaで求めたいのですが、min関数だと0を返してしまいます。
求めたいのは、0以外の最小値です。
vbaを使わない方法はいくつか分かったのですが、vbaで処理したいと思います。
何か良い方法があれば教えていただけないでしょうか？

>>103
IF

>>103
IF関数使用。

>>104
worksheet.function

質問がおかしかったorz

　　　P　　Q　　R　
01　　　　　　　　■
02　ー　　ー　　ー　
03　111　555　300
04　300　　　　500
05　　
06　　　　　　　100
07　　　　　　　999
08　　　　　　　1000　(非表示列)
・
99(可変)

A3-R99までデータが入っており、A2-R99までフィルタをかけています。
現在はR1に　SUBTOTAL(109,OFFSET(R3,,,COUNTA($C:$C)-1,1))　が入っており、
R1には R3からR99の合計1,899 が表示されます

これに手を加えて、非表示列は無視しP行かQ行にデータがある場合のみ合計するという風にしたいのです。
この場合出力したい値は、800となります。

よろしくお願いします。

>>108
VBAで (>>3★2参照)

エクセルで出力した結果で複数ある中の任意のランプを光らせたい。
そういった質問はここでいいのかしら？

そういった用途のランプがあるかないか？
パソコンとランプの接続方法。
それらのプログラムというかそういった諸々へアプローチするためのウェブサイト。
以上の事を教えて欲しいの。

>>110
プログラム板のほうがいいんじゃないか？　
つか、その回路はできているのか。

>110
原始的な方法としては、画面上の複数のセルの背景を計算結果でそれぞれ黒と
白（塗りつぶしなし）にして、画面に密着させたフォトダイオードやＣＤＳで光を
検知させる→トランジスタとリレーでランプを制御する　というところかな。
（フォトダイオードなどは上記「複数のセル」に対応するように配置しておく）
ＰＣと電気的に接続しないのでＰＣを壊すリスクはありません。

インターフェース・ボードを使う方法だとエクセルだけの知識ではムリ。

>110
参考まで、インターフェース・ボードの説明書（ｐｄｆ）です。
http://www2.contec.co.jp/dl_data/LYLK59/LYLK59_100728.pdf

これを見て理解できそうなら　学問・理系/電気・電子　板　へどうぞ。自分にはムリでした。

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 sumif 複数条件　SUMPRODUCT　範囲

日付が混在しているリストで、３種類の個数合計を月毎に出力する
にはどうすれば良いですか？

[リスト]
　　日付　　　　項目　　個数
2011/01/02　りんご　　3
2011/01/03　ぶどう　　2
2011/01/04　いちご　　4
2011/01/10　いちご　　3
2011/01/20　りんご　　4
2011/02/10　いちご　　1
2011/02/04　ぶどう　　5
2011/02/15　いちご　　3
2011/03/02　りんご　　4
2011/03/10　いちご　　3
2011/03/04　ぶどう　　2

[出力]
・１月
りんご：
いちご：
ぶどう：
・２月
りんご：
いちご：
ぶどう：

>>114
ピボットテーブル

>>114
数式だけでやりたければ、作業列を作って
日付からMONTH関数で取り出した数値と項目を合体
（「=MONTH(A3)&B3」として「1りんご」とする）
で、この値を使ってSUMIF

A　　B　　C
1 　100　 100
2 　110　 210
3 　120 　320
・
・
・


CにBの合計を表記したいです。
C1=SUM**:**)

教えてください。

A　　B　　C
1 　100　 100
2 　110　 210
3 　120 　330
・
・
・


です。

>>117
=SUM(B$1:B1)

>>117
SUMの必要なし
C1:　=B1
C2:　=C1+B2

無駄にSUM使わないことに拘って式を2種用意するのか
スマートじゃないな

>>121
何でSUMが無駄なの？

SUMが無駄なんじゃなくて
SUM使わないことに拘るのが無駄
その無駄の結果､>>199みたいに一つの式をフィルコピーすれば済むところを
>>120みたいにC1とC2に別々の式を入れなければならなくなってる

「SUMを使わない」という無駄な方法
という文章なのだと思う

SUMはプレミア

123はヴァカ？3万行くらいでB1を変えてみりゃすぐわかるだろうに
ちなみにSUMが無駄ってことはない
119みたいな使い方が無駄
普通は1行目に見出しがあるから=SUM(C1,B2)とすりゃよい

お前らしょーもないとこで論争するの好きだなw
どう見ても>119の方が早いし便利
>120でもこの量なら問題ないし、最初に思いついたのがこれならこれをさっさと採用すれば良いだけの話
こんなつまらん事で論争するのが一番の無駄

>>117は釣りで自作自演だろ？
=SUM(B$1:B1)がよくないって今時みんな知ってるもんな。

>>128
何で良くないんだよ

>>129
「SUMの必要なし」とか大口叩いて恥かいた120が
根拠もなくほざいてるだけだから気にするな

>>129
http://msdn.microsoft.com/ja-jp/library/aa730921%28v=office.12%29.aspx

図 6. 該当セルまでの合計を計算する SUM 数式の例

>>127
アンカー逆

>>132
必死だなw

>>133
落ち着け
少ない量で問題ないのは>>119

=SUM(B$1:B1)の無駄が分からないやつは少し頭が弱いな。
俺は無駄ってわかってても使うけどな。
行の削除でも#REF!にならん。

>>135
オツムが弱いのはオマエだw
自分だけは解ってる風に装っても
オマエより上手の奴にそんなハッタリは通用しない

>>135
天才の>>135様愚民共に示してやってください！
sum使いはどれだけ愚かか！さぁ！さぁ早く！
私には分かりませんwww

あんまり暴れるなよｗ

暴れすぎると後で余計に恥ずかしいからな
素直に自分の無知を認めるが良かろう

この累計の出し方って何年おきかに必ず論争がおきるよね。
ここはレベルが低いんだから正論吐いてもしょうがないよ。
一般的には>>119で十分だな。
行削除にも対応してるようだし。

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

ピボットで、元の単位が（円）のとき、（千円）や（百万円）の単位で
表記するにはどうすればいいですか？
値を別シートへコピペする以外に何かあれば教えてください。

>>141
セルの書式を「0, 」にすれば千円、「0,, 」にすれば100万円単位になるよ

超初心者なんですがお願いします
画面をいじってたら上の方の「A､B､C・・・」の横棒の部分が
全てオレンジ色になってしまい
一枚続きだった画面上の紙が途中で縦に切れ目が入ってしまいました
元の画面に戻すにはどうしたらいいのでしょうか？
よろしくお願いします。

>>141
四捨五入でいいの？
それでよければ>>142だな。

>>143
右下の表示ボタン（３つくらいならんでる）を適当に押す

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

A1にある文字列をB1のURLをクリックすることで標準ブラウザで検索したいです。

例えばYoutubeでは
「http://www.youtube.com/results?search_query=%s&aq=f」
の「%s」の部分を任意の文字列にすれば検索できるので、色々変えてみたのですがうまくいきません。

どのようにしたら可能でしょうか？
よろしくお願いします。

HYPERLINK関数で

>>146
=HYPERLINK(REPLACE("http://www.youtube.com/results?search_query=%s&aq=f",45,2,A1))

REPLACE関数は要らない

>>147-148
ご回答ありがとうございました。
助かりました。

>>142 >>144
ありがとうございます。
表記は四捨五入で構いません。
0,で確かに（千円）単位になりましたが、カンマも打てるでしょうか？
（例えば、元の数値が 1,234,567 なら、1,235 と表記したい）

>>151
#,##0,
だったかな

>>146,149
=HYPERLINK("http://www.youtube.com/results?search_query="&A1&"&aq=f")
ですね。

Excel2007で情報を表状に管理したいのですが
画像を単純に貼り付けるとセルとは関係なくワークシート上に浮かぶような感じになります。
画像をセルに固定して管理し、かつクリックしたときだけ表示されるようにできたりしますか？
Excelでできないとすると、やはりHTMLなどでWebページを作成した方がよろしいでしょうか？
よろしくお願いします。m(__)m

>>154
VBAで出来るから自分でコード書いてね (>>3★2参照)

まあHTML解るなら､そっちの方が楽だと思うが

>>155
早速ありがとうございます。
VBAでやる場合のヒントをもう少し頂けないでしょうか？

すみませんでした。あとは自分で調べます。
ありがとうございました。。

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

a1からd2のセル範囲に値がA,B,Cがあったとしてそれをe1に返すにはどうすればいいですか？
a1からd2のセル範囲でAが2つあるかもしれないし、白紙かもしれません。
白紙ならそのまま空白でいいです。ABCが同時にセル範囲にあったらAを優先する形にしたいです。
お願いします。

図形の曲線を書くのですが線の色が線なしでかかれる為、いちいち図形の書式設定で色を黒に選択しないといけません。既定の図形に設定後に書いてもまた線なしで書かれます。何ででしょうか？

【1 OSの種類 　 　 　 　 .】 WindowsVISTA
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ピボット　フィールド　小計

ピボットテーブルで、↓ファイルの部分です。
デフォルトで「なし」になるように設定することは可能でしょうか？

http://uproda11.2ch-library.com/290303RdB/11290303.jpg

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】エクセル　左矢印　修正

エクセルでセルに数式入力してる時間違いに気付いて左矢印で治しにいこうとした時
左矢印押したらその左のセルのアドレス？(D4で入力してたらC4)が表示されるので設定でなんとかする方法はないかと調べてみた結果F2キーを押せばその場で修正出来ることがわかったのですが
F2キーを押した状態をデフォルトに設定することは可能ですか？

>>159
IFで

>>160
うちでは一度既定に設定すれば曲線もその既定設定通りになる
君が何か間違えているんだろう

>>161
毎回設定するのが面倒ってことか？
VBAでも設定できるところだから､VBA使えばどうにでもなるので
あとは毎回手動で設定する手間と､自動化VBAコード書く手間のどっちが面倒か考えてお好きなように

>>162
その話は過去に何十度も出てきているが不可能です

因みに俺はAutoHotkeyというソフト使って､[かな/ローマ字]キー(スペースの2つ右)をF2に変えてる
F2はExcel以外でも何かと多用するキーだからね

そうでしたか・・・ありがとうございます

>>162
上の数式バーで編集することを習慣付け給え。

>>163
おっしゃる通り、毎回設定するのが面倒って事です。

VBAではどうコード書けばいいのでしょうか？

>>163
ありがとうございます。Excel97の方がストレスなく図形が書けます。2010はストレスばかりです。曲線に限らず矢印を書くのに先端を変えて既定設定しても変換されません。ですが直線を引くと既定設定の矢印になります。もう訳わからないです(ﾟωﾟ?)助けて下さい

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

Sub Macro1()
a = InputBox("")
Columns("A:O").Select
Range("O1").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:=a, Operator:=xlAnd
Selection.Copy

Sheets("シート2").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("シート1").Select
Selection.AutoFilter
Range("A1").Select
Sheets("シート2").Select
Selection.AutoFilter
Range("A1").Select
End Sub

上記6行目の【Criteria1:=】aの検索条件を部分一致（aという語句を含むもの）にしたいのですが、
上手く行きません。
マクロの記憶でオートフィルタを動作させて確認して見ましたが、
"*語句*"という形で処理されており、これを【語句】部分に変数を入れても
変数名を検索対象としてしまいます。

変数の値を部分一致で検索させることは可能でしょうか？

>>168
アンパサンド（＆）で結合。

"*" & 変数 & "*"

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

windows7 64bit　エクセル2010を使用。

セル内に文字を打ち込む時
文字入力して１回打ち込むたびに
日本語入力がキャンセルされて英語入力になるのですが
どうしたらいいですか？

エクセル以外のワードやテキストでは
そんなことならず普通に入力できました。

同じ環境だけどそんなことにはならんなあ
壊れてないとしたら、入力規則でIME入力モードを固定してるくらい？

>>172
具体的には
どこを　どうしたらいいですか？

具体的に「入力規則」の「IME入力モード」って書いてあるじゃん

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1358466873
知恵袋に質問してるのですが回答がなくて泣きそうです・・・・。
誰か助けてください！！！ＶＬＯＯＫＵＰを使おうとしても不便で死にそうです・・・

>>175
うちでは出てる
逆に消す設定がないか探してみたけど見当たらなかった

＞＞１７５
回答、どっちに書けばいい？
俺もその状態になったけど回避できた。

177様
こちらでお願いします！

オク！でOffice2010を購入しようと思うのですが
元々PCにバンドルされていたものの場合出品者がPCからそのオフィスを削除していないと
購入してもインストールできないということになるのでしょうか？
一応Office自体は未開封新品です

出品者がPCからそのオフィスを削除していても使えません｡
バンドル品は､セット購入したPC以外で使えない故に安いのです｡
そもそもバンドル版OfficeはPCとセットでなければ中古販売や譲渡が出来ないものなので
出品自体がライセンス違反です｡

>>178
177じゃないけど。
左上のボックスに出ているときはポップアップが出てこない、とかじゃないの？

>>180
そうなんですか？！
オク！では結構たくさん出品されているので使えるものと思ってましたが
使えないのであれば落札してる人たちは何が目的で・・・

騙されてるか､不正利用目的

でも不正利用のリスク覚悟の上なら
タダでの不正利用も可能なのに
半端に金払ってまで不正利用するのはバカバカしいと思うけど

最近はwinny辺りの取り締まりが厳しいからハンパに金払ってるんじゃないかな
まぁ、やめたほうが良いとは思う
たかだか数千円で人生棒にふることもないでしょう

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003 SP3
【3 VBAが使えるか　 　 .】 可
【4 VBAでの回答の可否】 否(配布予定があるので出来る限りVBAで実装したくないです)
【5 検索キーワード 　 　 】 Excel　文字列　検索

列に文字列を格納して指定された1つ上の行の文字を返す
関数を用意したいのですがどのように実装したらよいでしょうか

　　　A　　　
1　文字列
2　AAA
3　BBB
4　CCC
5　DDD
6　EEE
7　FFF

この場合にFFFを対象にした際にEEEが出力させるものです

申し訳ありませんが宜しくお願いします

>>185
「指定された・・・」ってどういうこと？　どっかのセルで「FFF」という文字列があったら他のセルに「EEE」を返すってこと？
それとも　「A7」って指定するってこと？

>>185
indexとｍａｔｃｈを使用。ｍａｔｃｈ-1で一行上になる。
エラー処理等は自分で考える。

>>185
B1=INDEX(A:A,MATCH($A$1,A:A,1)-1)
×関数を用意したい
○数式を用意したい
な。VBAで回答されまっせ

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

質問させていただきます
B1~B10に数値(0〜100、ダブりなし)を入力しておいて
実行すると最大値の入っていたところの横(C列)に"最大"と表示し数値を消す
というマクロを考えているのですがうまくいきません
どのようにすればよいのでしょうか？
例えばB5が一番大きな数値ならC5に"最大"と表示したいです

>>189
=IF(ROW(B1)=MATCH(MAX($B$1:$B$10),$B$1:$B$10,0),"最大","")

こんな感じ？

>>190
早速ありがとうございます
そうなるのですが、それをVBAで出来るようにしたいです＞＜

>>191
Range("B1:B10").Find(WorksheetFunction.Max(Range("B1:B10"))).Offset(, 1).Value = "最大"

>>192
早いですね＾＾；
出来ました！ありがとうございましたm(_ _)m

>>161です。
どなたか答えて頂けるかた、いらっしゃいませんか？

マルチｗ

答えは出てるじゃん
コードは自分で書ける(VBA使えるか=はい)って書いてるのに
丸投げでコードまで書けってのか？

VBAを使用できる環境だから「はい」と記載しています。
コードを書いてもらえたら助かります。

>>192
たまたま>>189はうまくいったらしいが、数式の戻り値だと初期状態じゃうまくいかない。
With Range("B1:B10")
　　With .Item(WorksheetFunction.Match(WorksheetFunction.Max(.Cells), .Cells, 0))
　　　　.Offset(, 1).Value = "最大"
　　　　.ClearContents
　　End With
End With

>>193
たまたまうまくいったようだが、もし数式の戻り値だと>>192は初期状態じゃうまくいかない。
With Range("B1:B10")
　　With .Item(WorksheetFunction.Match(WorksheetFunction.Max(.Cells), .Cells, 0))
　　　　.Offset(, 1).Value = "最大"
　　　　.ClearContents
　　End With
End With

無駄が多いな

>>198
そうなのですか？ちょっと難しいですが；
そちらで試してみます

続けて質問になってしまうのですが、
さっきの最大を求めるのでD1,E1,F1に(仮に)1と入力されていた場合
B1に入力されている数値を消して、そののち最大を求める
これをB1~B10まで同じようにしたいです
こちらの条件は自分で考えようと思っていたのですが、D1,E1,F1のどれか一箇所にでも
となると分からなくなってしまいます
すみませんがこちらもお願いいたします

ほれ。あとお前もうくるなよw
With Range("B1:F10")
　　With .Item(WorksheetFunction.Match(WorksheetFunction.Max(.Cells), .Cells, 0))
　　　　.Offset(, 1).Value = "最大"
　　　　.ClearContents
　　End With
End With

177しね

>>175
選択範囲が画面内に収まっていれば出ない。
画面内で収まらない場合に表示されるようですが。

ありがとうございました

177様
こちらでお願いします！

あなたは誰？？？？
あと、書き込むのなら回答を書いてくださいね！

初歩的な質問ですみません。
Sheet1のI列の一番下からL列の一番下までの値を、
Sheet2のD5からG5にコピペするマクロを自動記録しました。

Sub Macro1()
Range("I26").Select
Selection.End(xlUp).Select
Range("I8:L8").Select
Selection.Copy
Sheets("Sheet2").Select
Range("D5").Select
ActiveSheet.Paste
End Sub

これを手直しして次のように書きましたが、2行目で止まってしまいます。

Sub Macro2()
Range(Range("I65536").End(xlUp), Range("L65536").End(xlUp)).Copy
Sheets("Sheet2").Range("D5").Paste
End Sub

どう直せばいいでしょうか？

65536+5行が最大行を超えるからエラーになってんじゃないの

違う
カンマ取れ

俺の２０１０だと問題なく動く

>>208
Pasteの書き方が違う。
コピー先の先頭Range選択してからPaste。または引数で指定。
Range(Range("I65536").End(xlUp), Range("L65536").End(xlUp)).Copy
With Sheets("Sheet2")
.Paste .Range("D5")
End With

相対範囲がわかっているならもっと簡単に
Sheets("Sheet1").Range("I65536").End(xlUp).Resize(, 4).Copy
Sheets("Sheet2").Range("D5").PasteSpecial
または一行で
Sheets("Sheet1").Range("I65536").End(xlUp).Resize(, 4).Copy _
Sheets("Sheet2").Range("D5")

カンマじゃなくてピリオドじゃないの？

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

【テンプレ省略】

自治体などから放射線量が公表されてますが、累積被曝量の計算は
以下で間違ってませんか？

1日1行。放射性物質はすべてヨウ素（半減期8日）と仮定してます。

今日の放射線量（μSv/日）　　累積被曝量（μSv）
[A2]（測定値）　　　　　　　　　　　=[A2]
[A3]（測定値）　　　　　　　　　　　=[A3]+[A2]*2^(-1/8)
[A4]（測定値）　　　　　　　　　　　=[A4]+[A3]*2^(-1/8)
　：　　　　　　　　　　　　　　　　　　　：

よろしくお願いします。

すいません、訂正

今日の放射線量（μSv/日）　　累積被曝量（μSv）
[A2]（測定値）　　　　　　　　　　　=[A2]
[A3]（測定値）　　　　　　　　　　　=[A3]+[B2]*2^(-1/8)
[A4]（測定値）　　　　　　　　　　　=[A4]+[B3]*2^(-1/8)
　：　　　　　　　　　　　　　　　　　　　：

間違ってます

が､それはExcelの使い方が間違っているのではなく
計算理論が間違っているので､ここではなく
そっち系のスレで質問してください

>>217
ﾚｽﾄﾝです
他をあたります

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
ピボットテーブルで売り上げ金額を集計してますが、
該当するデータがないときセルが空白になります。
元データを修正せずに、0と表示することは出来ますか？

うん

ありがとうございます

いえいえ

あのーやり方を聞いてるんですがね。

半端にテンプレ端折る人は
可否だけ答えて貰ったら､後は自分でなんとかしろ

まともな回答もらえるのは､まともな質問した奴だけの特権

たしか右クリックのオプションかなんかから空白セルに表示する値設定できなかったっけかな？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007

【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否


エクセルで、下記のようなデータベースの元が作りたいです。
どなたか作り方をご教授願えませんでしょうか？


シート１、２、３に、それぞれＡ商店、Ｂ商店、Ｃ商店と名前を付ける。（データ入力用シート）
シートの中には商品の分類（「飲料」「果物」「野菜」など）が縦に並んだ表があり、
その項目の中に「りんご」「バナナ」のような商品名と、その商品の個数を入力できるようにする。

シート４には、商品分類の表があり、その分類の名前をクリックすると、シート１、２、３からその分類に入力した商品とその個数、引用元のシートが全て羅列される。（データ集計用シート）


↑こんな感じにしたいのですが、シート４にどういう処理を施せばこういった事ができるのかがわかりません。
もし分かる方がいらっしゃったらどうかお願いします。

> クリックすると
でやりたければ､VBA無しには不可能

>>226
> シート１、２、３に、それぞれ名前を付ける。

シート名の変更をパソコンにやらせようと思ったらVBA使わないと無理

ありがとうございます。
ＶＢＡというのを使った事がないのですが、それがなければできないのであれば、
それを使ったやり方でお願いします。

>>228
シート自体に名前をつけるのは自動でなくても大丈夫です。

>>229
自分でコード書けるならヒント教えるけど
書けないならまずはブックをうpだね
で､暇で優しい人が現れるのを気長に待つ

>>229
とりあえずシート名を変更するVBA

Sheets(1).Name = "A商店"
Sheets(2).Name = "B商店"
Sheets(3).Name = "C商店"

あとは、何をやりたいのか質問が大雑把すぎてよくわからん

用途だけ見ると３シートそれぞれに入力して４シート目に集計らしいけど、
ゼロからやるなら４シート目に商店フィールド持たせた伝票データみたいなのを入力してく方が、構成的にはらくそうだけどなあ。

何か調べたい場合はオートフィルタなりピボットで絞り込めばいいわけだし。
商店ごとのデータ別シートにまとめたいならフィルタしてコピーでもすりゃいいだろうし。

VBAはどうやってそれをやるのですか？

>>233
http://www.officepro.jp/excelvba/ini/index1.html
分からなかったら「VBA　初心者」か「VBA　入門」でぐぐれ

答えられる能力が乏しいバカが偉そうにｗｗｗ

エクセルの住所録からkmlファイルに変換してGoogleマイマップにインポートした時
画像入れることってできませんか？

できます。

>>237
サンプルでエクセルからkmlに変換できるファイル見つけたんですけど
それだとインポートした時、改行も画像も入れられないんです。
VBAもいじれないんですが教えていただけないでしょうか

>>238
君が､ここで教えて欲しいことがあるように､俺等もさ
君がどのOSと､どのバージョンのExcel使ってるかとか
VBAが使える人なのか､VBAでの回答でも構わないのかとか
いろいろ教えてほしいことがあるわけよ

でもね､君はそういう>>1にも書いてある
俺等の教えて欲しいことにちゃんと答えてないでしょ
>>3★2には､それらに答えないとまともな回答はもらえないと
注意書きまでしてあるのに

だからそういう奴にはお引き取り戴くのがここの習わし
いまさらテンプレ書いて出してきてもダメ
ルール無視した質問を撒き散らしても､質問し直せば回答貰えるんじゃ
一向にこういうバカ質問者が減らないんで
今回は教訓として､回答無しでお引き取り戴こうか

偉そうだなｗ

でも言ってることは何も間違ってないw

回答位剤の書き込みはやめてくれませんか？

つーか､テンプレに書いてあることを少しキツめに言ってるだけやんw

いいからさっさと教えろや

> 教えていただけないでしょうか

に答えればいいわけね


回答：「イヤですw」

>>236に回答できる頭(つまり､VBA､xml､kmlを理解できる頭)がありながら
バカ質問者を甘やかして助長し､バカ質問者を増長させるような愚行をする者は居ないと思われ｡



if is回答に必要な情報(質問文) then print 回答 else print "お引き取り下さい｡"

function is回答に必要な情報(質問文 as string) as boolean
　　if instr(1, 質問文, OSの種類) = 0 Then exit function
　　if instr(1, 質問文, Excelのバージョン) = 0 Then exit function
　　if instr(1, 質問文, VBAが使えるか) = 0 Then exit function
　　if instr(1, 質問文, VBAでの回答の可否) = 0 Then exit function
　　is回答に必要な情報 = true
end function

>>239
出し直しもダメとかかわいそうすぎてﾜﾛﾀ
>>236
ヤフー知恵遅れでもいけば？
あそこなら答えてくれるよ。多分。

そこは
　「ここじゃ答える空気じゃないが､向こうで俺が答えてやるから
　 阿呆知恵遅れに来い」
じゃないのか？
無責任すぎてﾜﾛﾀ

>>248
いや、kmlとか知らないから答えられなかったのよ
知ってたら答えてたんだけどね

>>249
知らない言葉が出てきたら、回答の意思がなくてもとりあえずぐぐるだろjk
無駄知識が増える

こういう地道な積み重ねができるやつとできないやつの差になる

エクセルの範疇なら答えるけどグーグルマップとかはさすがにめんどい
あと画像がどう格納されてるかわかんねーしもう聞いてもいそうにないし

お前らが無能なのは分かったから他所でやってくれ

「お前ら」は一人称じゃないぞ

おもしろいとおもってんのかねそれ

皆に「お引き取り下さい」「他いけば？」「他所でやってくれ」と言われて236涙目

xml解ってればkmlなんて楽勝だけど
xmlから､更にはVBAでのxml操作から始めるとなると結構大変かも

間違えてプログラム板のVBAスレに書き込んでたのでこちらであらためて質問させてください

上記条件付書式のコピーについて質問です

Z1に入力した数字次第（○○以上○○未満の場合）で、W1セル背景が5段階に変色するという書式をAND関数を使って設定しています
以降入力数字に対する変色は同条件で、Z2に入力したものをV1に反映、Z3に入力したものをU1に反映と、縦の入力データを横左方向に出力、という風に一括で書式コピーしたいのですが方法はあるでしょうか

現状W1をコピーすると、V1にもZ1からデータをひっぱってくる数式がコピーされてしまいます

W1セルに対して
　Z1<5001　のとき背景赤色
　AND（Z$1>=5001,Z$1<10001）　のとき背景黄色といった感じで記入してます

$の位置が悪いか不要なんでしょうか

>>257
OFFSET

後は自分で調べろ

説明不足で失礼しました。
エクセルの住所録をkmlに変換し、グーグルマイマップにインポートした時
それぞれのポインタで各種データや画像が表示されるようにしたいです。
色々と検索してみたところ、変換すること自体はできるんですが
インポートした時に画像を入れたり改行したりする方法がわかりません。
よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windowsvista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 excel kml 変換など

無理です。

>>259
もう遅いよ
二度と答えは出ないからさっさと諦めて死んでね

居るよね､不躾な質問を叩かれると
> 回答以外の書き込みはやめてくれませんか？
とか強気で言ってたのに､しばらくすると
それは別人ですみたいな顔して､下手に出て質問し直す奴w

いいからさっさと教えろや糞が

回答位剤の書き込みはやめてくれませんか？

位剤ってなんですか？

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

>>259
> バカ質問者を甘やかして助長し､バカ質問者を増長させるような愚行をする者
　　　　　　　　　　　　　　　．　．　．
が出てくることを祈って　黙 っ て　待つか
　　　　　　　　　　　　　　 ~~~~~~~~
ここでの質問取り下げて他に行くかしろ

そもそもExcelの質問じゃないし
昔ならawkやsedでやる作業だろ
いまはなに使うのかしらんけど

エクセル（またはＣＳＶ形式）の住所録を、googleマップ（マイマップ）に一括登録する方法ってありますか？

住所録データには名称、住所、備考欄があります。

【1 OSの種類 　 　 　 　 .】 Windows vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 特記　引き出し線
外国語の勉強にエクセルを使っていますが
文法上の解説をセルに矢印みたいな感じで
付けたいのですがその付け方がわかりませんので教えて下さい
以前、セルの端っこに引き出し線とフキダシみたいなのが付いて
そのセルに備考を書けるのがあったような気がするのですが・・・？

>>269
セルを右クリック　「コメントの挿入」で

>>268
そういうネタで奴をおちょくるのは止めてやれ

>>270
有難うございます！
できました！！

回答位剤の書き込みはやめてくれませんか？

質問者叩いてる>>262ですら訂正した上で引用してるのに
単なる打ちミスに何時までも食いついてる奴ってどんだけ下劣なんだよw
>>264,>>265,>>273

　　 　　　　　　 ∧∧
　　　 　　　 ⊂（・∀・）つ-、　　早く答えろや！ｺﾞﾗ!!
　　　　　 ／／/ 　 /_/:::::/　　　
　　　　　 |:::|/⊂ヽノ|:::| ／」
　　　 ／￣￣旦￣￣￣／|
　　／＿＿＿＿＿＿／ | |
　　| |-----------| |

Googleマップのkml君､本当にアホー知恵遅れに行ったんだなw

しかし相変わらずOSやExcelのバージョンも､何を使って変換したのかも書かないんだな
まあ簡単な質問だし､向こうではOSやExcelのバージョン書くのは「常識的なマナー」であって
「絶対的なルール」とはされていないから､そのうち誰かが答えてくれるだろう

ソースは？

>>275
表示形式

>>277
誤爆？

【1 OSの種類 　　　 .】 WindowsVista（会社はXP）
【2 Excelのバージョン】 Excel2003
【3 VBAが使えるか .】 少しだけ（勉強始めたばかりです）
【4 VBAでの回答の可否】 可
【5 検索キーワード .】 FindNext Do Loop 全て検索　For など

お願いします。
商品データの「商品名」でお客様リストを検索し、注文した方の氏名を
商品データと合わせて日付順シートに書き出したいのです。
商品データ、お客様リストは順次増えていきます。

「日付順シート」は書き出した後に、見やすいように同じワードが続くところは
セル結合、罫線も引く予定ですが、まずは書き出しが失敗してしまいます。
最初に商品一つにつき、最初のお客様だけ書き出すのは成功しましたが、
２人目以降が書き出せず、いじっているうちに全く書き出せなくなってしまいました…
コードのどこが変なのか教えて下さいませんでしょうか？

「商品データシート」
　 A 　　　　B 　　　　　　C 　　　　　D 　　　　　E　
1 商品名　商品コード　メーカー　合計個数　日付
2 りんご　２２２　　　　AAA　　　　２　　２０
3 メロン　３３３ BBB　　　　１　　２３
4 ぶどう　１１１　　　　CCC　　　　３　　２４
◆合計個数は「お客様リスト」をCOUNTIFで出しています。

「お客様リスト」
　　　A 　　　　B 　　　　　　C 　　　D 　　　E　　　　　F　　　　　　G
1 　番号　お客様名　住所　　　電話　　　注文品　注文品２　注文品３
2 　　１　　山田　　東京都　０３　　　　りんご　ぶどう
3 　　２　　鈴木　　愛知県　０５２　　　ぶどう
4 　　３　　田中　　静岡県　０４２　　　りんご　メロン　　ぶどう　
◆番号はSUBTOTALで振っています。
　
「日付順シート」完成予想図
　　A 　　　　B 　　　　　C 　　　　　　D 　　　E
1 日付　商品名　商品コード　合計個数　お客様名
2 ２０　りんご　２２２　　　　２　　　　山田
3 ２０　りんご　２２２　　　　２　　　　田中
4 ２３　メロン　３３３ 　　　１　　　　田中　
5 ２４　ぶどう　１１１　　　　３　　　　田中　
6 ２４　ぶどう　１１１　　　　３　　　　鈴木
7 ２４　ぶどう　１１１　　　　３　　　　山田

Dim wsD As Worksheet
Dim wsZ As Worksheet
Dim wsT As Worksheet
Dim lngYLine As Long
Dim mykey As String '商品名
Dim g As Long
Dim i As Long
Dim FoundCell As Range
Dim firstAddress As Range
Set wsD = Worksheets("日付順シート")
Set wsZ = Worksheets("商品データ")
Set wsT = Worksheets("お客様リスト")
i = 2 '検索結果の表示行は２行目からなので
g = 2 '検索キーの商品名も２行目からなので
mykey = wsZ.Cells(g, 1).Value '商品名
Set FoundCell = wsT.Columns("E:G").Find(What:=mykey, LookIn:=xlValues, lookat:=xlWhole)
lngYLine = wsT.Columns("E:G").Find(What:=mykey, LookIn:=xlValues, lookat:=xlWhole).Row
For g = 2 To Range("b65536").End(xlUp).Row '２行目からデータの最後まで
If Not FoundCell Is Nothing Then
firstAddress = FoundCell.Address
Do
wsD.Cells(cnt, 1).Value = wsZ.Cells(g, 3).Value
wsD.Cells(cnt, 2).Value = wsZ.Cells(g, 1).Value
wsD.Cells(cnt, 3).Value = wsZ.Cells(g, 2).Value
wsD.Cells(cnt, 4).Value = wsZ.Cells(g, 9).Value
wsD.Cells(cnt, 5).Value = wsT.Cells(lngYLine, 2).Value
i = i + 1
Set FoundCell = wsT.Columns("E:G").FindNext(FoundCell)
lngYLine = FoundCell.Row
Loop While Not FoundCell Is Nothing And FoundCell.Address <> firstAddress
End If
Next g

まだ全部読み切ってないけど
> wsD.Cells(cnt, 1).Value = wsZ.Cells(g, 3).Value
とりあえず cnt ではなく i なのでは？

>>283
すみません,失礼しました。
見て頂く方にわかりやすい変数に、と変えているうちに見落としていました。
改行が多いと言われてしまいましたので、次のレスに貼ります。

Dim wsD As Worksheet
Dim wsZ As Worksheet
Dim wsT As Worksheet
Dim lngYLine As Long
Dim mykey As String '商品名
Dim g As Long
Dim i As Long
Dim FoundCell As Range
Dim firstAddress As Range
Set wsD = Worksheets("日付順シート")
Set wsZ = Worksheets("商品データ")
Set wsT = Worksheets("お客様リスト")
i = 2 '検索結果の表示行は２行目からなので
g = 2 '検索キーの商品名も２行目からなので
mykey = wsZ.Cells(g, 1).Value '商品名
Set FoundCell = wsT.Columns("E:G").Find(What:=mykey, LookIn:=xlValues, lookat:=xlWhole)
lngYLine = wsT.Columns("E:G").Find(What:=mykey, LookIn:=xlValues, lookat:=xlWhole).Row
For g = 2 To Range("b65536").End(xlUp).Row '２行目からデータの最後まで
If Not FoundCell Is Nothing Then
firstAddress = FoundCell.Address
Do
wsD.Cells(i, 1).Value = wsZ.Cells(g, 3).Value
wsD.Cells(i, 2).Value = wsZ.Cells(g, 1).Value
wsD.Cells(i, 3).Value = wsZ.Cells(g, 2).Value
wsD.Cells(i, 4).Value = wsZ.Cells(g, 9).Value
wsD.Cells(i, 5).Value = wsT.Cells(lngYLine, 2).Value
i = i + 1
Set FoundCell = wsT.Columns("E:G").FindNext(FoundCell)
lngYLine = FoundCell.Row
Loop While Not FoundCell Is Nothing And FoundCell.Address <> firstAddress
End If
Next g

>>280
とりあえずやっつけで冗長な処理が多いが､やりたいことはこんな感じか？

Private Sub Sample()
　Dim wsD As Worksheet
　Dim wsZ As Worksheet
　Dim wsT As Worksheet
　Dim mykey As String '商品名
　Dim FoundCell As Range
　Dim KeyRow As Range
　Dim i As Long

　Set wsD = Worksheets("日付順シート")
　Set wsZ = Worksheets("商品データ")
　Set wsT = Worksheets("お客様リスト")
　i = 2 '検索結果の表示行は２行目からなので
　For Each KeyRow In wsZ.Rows(2).Resize(wsZ.Cells(2, 1).End(xlDown).Row - 1)
　　mykey = KeyRow.Cells(1).Value '商品名
　　For Each FoundCell In wsT.Range("E2:G2").Resize(wsT.Cells(2, 1).End(xlDown).Row - 1)
　　　If FoundCell.Value = mykey Then
　　　　wsD.Cells(i, 1).Value = KeyRow.Cells(5).Value
　　　　wsD.Cells(i, 2).Value = mykey
　　　　wsD.Cells(i, 3).Value = KeyRow.Cells(2).Value
　　　　wsD.Cells(i, 4).Value = KeyRow.Cells(4).Value
　　　　wsD.Cells(i, 5).Value = FoundCell.EntireRow.Cells(2).Value
　　　　i = i + 1
　　　End If
　　Next FoundCell
　Next KeyRow
End Sub

>>286
できました！
何日も悩んでいたのが嘘のようです、本当にありがとうございました。
お手数お掛け致しました、とても助かりました。
ありがとうございます！

悪いこと言わないからデータベースソフトにそういうこと移行さしてやりなさい。

>>288
アドバイスありがとうございます。
うちは小さなお店で、会社のPCにはExcelとWordくらいしかなく、
私自身も詳しくない上に、私以外のスタッフはExcelでPOPと売上グラフ作るくらいです。
件数もそれほど多くないため、データベース導入は敷居が高くて無理そうです。
Excelで頑張ってみます。

初心者ですみません。
セル範囲指定のRangeについてお聞きしたいのですが
普通にRange("A1:A5")としてRangeを使うのではなく
Range("cells(1,1):cells(5,1)")のように
別のものと組み合わせて使うことは出来るのでしょうか？
どうしてもエラーが出てしまって、うまく直せません

その場合""はいらないのでは

　" 要らない
　： の替わりに ，

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　2007 セル内　文字列　コピー　ctrl+A

エクセル2002を普段は利用していまして
１つのセル内の文字列をCtrl+Aですべて選択し
Ctrl+C、Ctrl+Vでエディターやその他のソフトにコピーして使っていました
（セル自体のコピーではありません）。
エクセル2007を使うと
どうやらセル内でCtrl+Aを入力しても反応しないようですが
仕様が変わったのでしょうか？
ご存じの方がいらっしゃいましたらよろしくお願いします。

>>290
Range(Cells(1, 1), Cells(5, 1))

>>293
2002はないから2003で試したけど、2007と同じ動作だった
セル内編集状態の時はCtrl+Aは使えない

>>293
Shift+HOME
もしくは
Ctrl+Shift+←

ありがとうございます。一歩前進できました。
ですが、それをIFの中に組み込むとやっぱりうまくいかず、、
For a = 1 TO 5
If Range(Cells(a , 1), (Cells(a, 5))) = "A" Then
このような構文なのですが、どう直せばいいのでしょうか

>>295
>>296

ありがとうございます。
Shift+Ctrl+HomeやShift+Ctrl+Endで
代用できそうですね。
後ほど、エクセル2003でも確認してみたいと思います。

>>297
単一セルではなく複数セルの値は配列になる
正確にはVariant型2次元配列

この説明で理解できないなら､基礎を勉強してから出直せ

>297
やりたいことが
　Ａ１からＥ５までの５行５列のセル範囲内で
　セルの値が　”Ａ”　の場合に以下の文を実行する
ってことなら、
For a = 1 To 5　　　　' 縦位置
　　For b = 1 To 5　　' 横位置
　　　　If Cells(a,b).Value = "A" Then
　　　　　　文
　　　　End If
　　Next b
Next a
となります

ありがとうございます。
やりたいのは、5×5ではありません。いただいたコードを使ったら、文、のところでエラーが出るようなのですが、ここはミスでしょうか？

>>301
「文」になってるのは>>297でThenのあとどんな処理するか書いてないからでしょう

>>301
それから
If Range(Cells(a , 1), (Cells(a, 5))) = "A"
っていうのはどんな条件を想定してるの？
A1〜A5のどれかが"A"のとき？
複数のセルが"A"の時は同じ処理を繰り返すの？

>>297だと
IF range(a1:e1)="A"
IF range(a2:e2)="A"
中略
IF range(a5:e5)="A"

みたいなことになるから５ｘ５だね
やっぱり条件がよくわかんないや

>290,301
このスレの　>1-6　を読んでください。次にやりたいことを具体的に書いてください。
例えば・・・
１　判定対象のセル範囲は　Ａ１：Ｅ５　でなければどこからどこまで？
２　判定は単独のセルの値なのか、同じ行のＡ列〜Ｅ列（列番号の１〜５）のセルが全て"A"の場合なのか
という具合です。

ありがとうございます、説明不十分ですみません
A列の1〜5でどれかがAのときです

あと>>301は自分ではなくいたずらです…

>306
であれば、
For a = 1 To 5　　　　' 縦位置
　　If Cells(a,"A").Value = "A" Then
　　　　文　←条件に合ったときやりたいこと
　　End If
Next a
になります。　Cells(a,"A")　は　Cells(a,1)　でもいいです。

ありがとうございます。
縦はわかりましたが、横に広げたい時は
どうすればよいでしょうか？

>>308
これも自分ではないので大丈夫です
何とかなりそうです。ありがとうございました

今、すべての真実を書きます
最初の質問以外はすべて、自分以外の人が書いています。せっかく回答をしてもらっていたのに、間違った方向にいってしまい、申し訳ありません
しばらく自力でやってみます

セルに入力を行う度にRAND関数が再計算されますが、かなり多くの関数を使っているので再計算に1分弱ほど時間が掛かってしまいます。
再計算を行わないようにする方法は無いでしょうか？お願いします。

>311
ツール、オプション、自動再計算をオフ　計算結果が必要なときは［Ｆ９］キー

言い忘れましたがマック用エクセルです。
そんなオプションがないのですが…

>>313
よく探して
マックにもあるから

数式リボンの右端

セルの書式設定で　m:ss:0　として
「1：32：2」と入力したら
「32：02：0」と表示され、数式バーにも「1：32：02」となります。
ちゃんと表示されるにはどう入力したらいいですか？

>>316
なにがやりたいんだよ。どう表示して欲しいの?

自己解決しました。ｻｰｾﾝ

初心者です。A 列に最大4桁の数字が入っています。
この数字を 例えば 12とあれば、国語12点 1356とあれば、国語1365点
9とあれば、国語9点
となるように 数字の頭と尻尾に文字を入れたいのですが
教えてくれませんか？

>>319
セルの書式設定でユーザー定義を選んで
種類のところに「G/標準」のかわりに「"国語"0"点"」と入力する

>>319
以前、同じ質問したよね？

質問です

ＯＳはウィンドウズＸＰを使ってます

エクセル２００３で作ったファイル(又は、表データ)が、いつの間にか、エクセル２０１０でしか開けないファイル(又は、表データ)になっています。

ファイルは、エクセル２０１０が入ったパソコンに移し替えたら開けますけど、エクセル２００３しか入っていないパソコンでは開けません。

ワード２００３のファイルも同様に、ワード２００３しか入っていないパソコンでは開けません。

ファイルの頭には、エクセルのマークや、ワードのマークがついていたはずですが、今は、どちらのファイルも四角の青みがかった同じマークに変わっています。

どうしてこうなったのでしょうか？

また、エクセル２００３で開くにはどうしたらよいのでしょうか？

>>322
保存したファイル形式が違うんだろ。2010で開いて97-2003形式で保存しなおす。

【1 OSの種類 　 　 　 　 .】 Windows　ＸＰ
【2 Excelのバージョン 　 】 Excel　2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 カウント関数？

数字のデータが10.5や100.23等がずらっとあってそれらを
××以上××未満のデータの個数が何個
みたいに集計したいのですがどうやればできますでしょうか？

すみません！わかりました！！
ごめんなさい！

【1 OSの種類 　 　 　 　 .】 Windows xp
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 吹き出し サイズ変更

オートシェイプの吹き出しで、テキスト入力できる枠線のサイズを変更すると、吹き出し線が
移動してしまうのですが、こちらを固定する方法はありますか？
また、枠線を移動する際に、吹き出し線の先端を固定して移動させる方法はありますか？

よろしくお願いします。

あります。

>>326
吹き出しを右クリック→図形の書式設定→テキストボックス→自動調整の
□テキストに合わせて図形のサイズを調整する・・・チェックを外す。または
その下の、　□テキストを図形からはみ出して表示する・・・をチェックを付ける。

とかいじってみると幸せになれるとおもうよ。

それをやっても吹き出し線は移動しますね。

エクセルファンクラブで水上が顔真っ赤な件ｗ

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

1 複数のオートシェイプを削除することはできますか？
またセルとオートシェイプを同時に削除することはできますか？

2 セルを選択すると選択されたセルは薄い紫になりますが、この薄い紫を他の色に変更できますか？

1できます
2できません

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

現在、上のセルの値を加算させて下へ計算しており、途中で小計を出したいのですが、
小計をはさんでしまうと以降のセルがその小計を参照し、加算されてしまいます。
このような場合、小計毎に新たに計算式を作るしかないのでしょうか？
小計のセルのみ飛ばして加算できる方法があれば是非教えてください。

イメージとしては、もし上のセルから１ずつ加算してゆく場合
　　　１
　　　２
　　　３
小計６
　　　４
　　　５
　　　６
このようになります。

>>333
で、今使っている計算式は？できるだけ詳しくお願いします。
（場合によってはその計算式から小計列の値を計算させない、または差し引く事を
　織り交ぜた式を回答できるかもしれないので。）

>>333
文面からできる回答は、ＩＦ使えというところか。
だが俺の直感は、SUBTOTALが使えると言っている。

小計”列”じゃなくて小計”行”だな。orz

上の回答は無視してOK。
ピボットを使え。それで解決する。

ありがとうございました。ＰＩＶＯＴを使うことで何とかしたいと存じます。

自演の薫り・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 縦　並び　コピー　反映

A1-A400まで400個の数字データを入力すると同時に
B1-B400までA欄の数字を上下反転で出力されるようにしたいです
B400に=A1、B399に=A2という作業になるのですが、なんとか一括でというか楽にできる方法はないでしょうか

>>340

B1に
=INDIRECT("A"&400-(ROW()-1))

でオートフィルは？

>>341
そのままではなぜかズレてたのですが400の部分を405にしたらできました
ありがとうございます

【1 OSの種類 　 　 　 　 .】 WindowsXP**
【2 Excelのバージョン 　 】 Excel*
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】保護　移動　カーソル ロック　出来ない

VBAのスレで質問したんですが、こちらだったみたいなので
こちらで質問させてもらいます。

保護について教えて下さい。
シートを保護する時にロックをしてるセルを選択出来なくなる
する奴あるじゃないですか？
あれをやると時々エクセルの挙動がおかしくなります。

矢印キーが効かなくなったり
アクティブセルの周りに普段なら出る黒い枠線が出なかったりとか。
スクロールロックが掛かってるとかそんなんじゃないです。

前から時々なってて、ぐぐって調べたんですが
特にこれと言って解決策が見つかりません。
これだという絶対的な発生条件も不明です。なったりならなかったりします。

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ほんの少しだけ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 If Then Not <> "" 入れ子　複数

先日教えて頂いたばかりですのに申し訳ありません。
>>286さんの下さったお答えで解決していたのですが、

「商品データシート」
　　　　 A 　　　　　　B 　　　　　　　　　C 　　　　　D 　　　　　E　　　　　　　F　　　　　　　　G
1 商品名　　商品コード　　メーカー　　　合計個数　　　日付　　　　日付２　　　　　日付３
2 りんご　　　　２２２　　　　AAA　　　　　　　　２　　　　　　２０　　　　　　２３　　　　　　　２８
3 メロン　　　　３３３ 　　　　BBB　　　　　　　　１　　　　　　２３
4 ぶどう　　　　１１１　　　　CCC　　　　　　　　　３　　　　　２４

上記のように新たに日付（発送日）の列が２つ加わってしまいまして、
こちらも抜き出して書き出したいです。
（例　「りんご」で検索したときは、日付が３つあるのでそれぞれ１データとして３行分書き込む）
自分で書き足したコードだと、表示が崩れて抽出出来てないものもあります。
コードのおかしいところ、または適した検索ワード等を教えて下さいませんか？

Dim wsD , Dim wsZ , wsT As Worksheet
Dim mykey As String '商品名
Dim hiduke2 As String '日付２
Dim hiduke3 As String '日付３
Dim FoundCell , KeyRow As Range
Dim i As Long
Set wsD = Worksheets("日付順リスト")
Set wsZ = Worksheets("商品データ")
Set wsT = Worksheets("お客様リスト")
i = 2 '検索結果の表示行は２行目からなので
For Each KeyRow In wsZ.Rows(2).Resize(wsZ.Cells(2, 1).End(xlDown).Row - 1)
mykey = KeyRow.Cells(1).Value '商品名
hiduke2 = KeyRow.Cells(6) '日付２
hiduke3 = KeyRow.Cells(7) '日付３
For Each FoundCell In wsT.Range("E2:G2").Resize(wsT.Cells(2, 1).End(xlDown).Row - 1)
If FoundCell.Value = mykey Then
wsD.Cells(i, 1).Value = KeyRow.Cells(5).Value
wsD.Cells(i, 2).Value = mykey
wsD.Cells(i, 3).Value = KeyRow.Cells(2).Value
wsD.Cells(i, 4).Value = KeyRow.Cells(9).Value
wsD.Cells(i, 5).Value = FoundCell.EntireRow.Cells(2).Value
i = i + 1

If hiduke2 <> "" Then
wsD.Cells(i + 1, 1).Value = KeyRow.Cells(6).Value
wsD.Cells(i + 1, 2).Value = mykey
wsD.Cells(i + 1, 3).Value = KeyRow.Cells(2).Value
wsD.Cells(i + 1, 4).Value = KeyRow.Cells(9).Value
wsD.Cells(i + 1, 5).Value = FoundCell.EntireRow.Cells(2).Value
If hiduke3 <> "" Then '日付３が空白でないときは必ず日付２も入っているので
wsD.Cells(i + 2, 1).Value = KeyRow.Cells(7).Value
wsD.Cells(i + 2, 2).Value = mykey
wsD.Cells(i + 2, 3).Value = KeyRow.Cells(2).Value
wsD.Cells(i + 2, 4).Value = KeyRow.Cells(9).Value
wsD.Cells(i + 2, 5).Value = FoundCell.EntireRow.Cells(2).Value
End If
End If
End If
Next FoundCell
Next KeyRow

改行が多すぎると出ましたので、分けました。
どうぞよろしくお願いします。

Cells()の指定値が一個ずれてる

>>343
それってバージョンが大切だと思う。

>>344
wsD.Cells(i + 1, 5).Value = FoundCell.EntireRow.Cells(2).Value
wsD.Cells(i + 2, 5).Value = FoundCell.EntireRow.Cells(2).Value

の後にも i = i + 1

wsD.Cells(i + 1, 1).Value
wsD.Cells(i + 2, 1).Value

これらの +1､+2を全て(5x2=10カ所)外す

>>347さん
>>349さん

お二方ともアドバイスありがとうございました。
できました！
次の行に書き込むから、と＋１してたのがダメだったのですね・・・
cell()の指定値のどこだろう、と試していたところでしたので、
349さんには指摘頂き、本当に助かりました。
ありがとうございました。

×　�A→�C→�D→�B→�D→�E

i →�A
i=i+1　　　　　 (i=3)
　i+1 →�C　　(i=3､i+1=4)
　　i+2 →�D　(i=3､i+2=5)
i →�B
i=i+1　　　　　 (i=4)
　i+1 →�D　　(i=4､i+1=5)
　　i+2 →�E　(i=4､i+2=6)

〜〜〜〜〜〜〜〜〜〜〜〜〜

○　�A→�B→�C→�D→�E→�F

i →�A
i=i+1　　　　　 (i=3)
　i →�B
　i=i+1　　　　 (i=4)
　　i →�C
　　i=i+1　　　 (i=5)
i →�D
i=i+1　　　　　 (i=6)
　i →�E
　i=i+1　　　　 (i=7)
　　i →�F
　　i=i+1　　　 (i=8)

>>351
分かりやすいご説明ありがとうございます！
書類を作っていましたのでお礼が遅れてすみませんでした。
もっと自分で出来るように頑張ります。

こんばんわみなさん　質問です

エクセル2000から2010を使いたいんですがメニューが変わりすぎて使いづらいです
2010を2000風にできないですかね？

こんばんわみなさん　質問です

エクセル2000から2010を使いたいんですがメニューが変わりすぎて使いづらいです
2010を2000風にできないですかね？

こんばんわみなさん　質問です

エクセル2000から2010を使いたいんですがメニューが変わりすぎて使いづらいです
2010を2000風にできないですかね？

>>353
2010見当たらないね
http://blog.hushlogue.com/?eid=689511
2007ならあるんだけどねぇ
「エクセル　2010　2003　2000　見た目　メニュー」辺りをテキトーに組み合わせて検索したら出てくるかも

>>353
ttp://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1345530803
2007用でも動くかも知れないから試してみてはいかがかなー
どうなってもしらんけど、うまくいくかもしれない

売上一覧で
A列に営業の名前が入っていて、
B列にはその営業のお客さんの名前が入っていて、
ひとりひとりの営業が今月何人お客さんがいるかをいっぺんに見たいので、
[Aにその営業の名前]かつ[Bの文字列の種類]の数を出す関数はありませんか？

ああ、いくつかあるよ。

それは、どの関数でしょうか？
それにしても、質問の空気が読めない人が多い気がするのは、私だけ？

それにしても質問スレの空気が読めず､
Excelのバージョンも書かずに質問する人が多い気がするのは、私だけ？

関数探すだけならここに質問するよりヘルプ検索したほうが速いのに

>>358
データベース関数でできたかも知れないけど、よく知らない
ピボットテーブル使うのが一番早い

まあ関数の質問だから関数で答えるけど
http://www.dotup.org/uploda/www.dotup.org1486531.xls.html
AB列の結合した文字列をcountifでもとめてその逆数の和が種類になる
そんな気がする

ふつうの関数じゃ無理だね　営業と客の同じ組み合わせが複数行あったら重複してカウントしちゃう

ありがとうございます。良心のある方がいるようで安心いたしました。
逆数とは何でしょうか？

>>365
その数字で1を割ったのが逆数
3の逆数は1/3

>>363
ありがとうございます。
できればlとoをどっちも両方一緒に見たいのですがどうすればいいですか？

>>367
2.3種類なら右に似たような数式を作ればいい。もう作らない。
それ異常あるならピボットテーブルのほうが早い

ありがとうございます。
異常はありませんのでこのままやってみます。
また、ピボットテープは関数でしょうか？

>>369
ピボットテーブルでググれ。話はその後だ

種類数えるのにCOUNTIFの逆数なんてアホカよ。
データ数の２乗に比例して遅くなるものはクソだぞ。
並び替えて上と違うものの数を数えろよ。

どうか、回答者様同志で喧嘩をしないよう、よろしくお願いします。

お前が原因を作ってんだよ

>>371
それもそうだな
>>372
別に喧嘩はしてないと思うけど

【1 OSの種類 　 　 　 　 .】 Windows7 64bit
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 vba excel 2010 違い

現在、Office2000をまだ使用中です。
VBAを仕事で使用したいと思い、これを機にOffice2010に変えようかと検討しています。
ざっくりとした意見でかまわないので、やめておけとかおすすめとか、2010の評判を教えてください。

ちなみに現在特に重要なVBAの資産もないですし、自宅では上記の環境、職場では
WindowsXP/VISTA Office2003/98のいずれも使用可能です。（いずれかで作成したVBAが
使用できれば良いです。Win32のAPI等凝ったことはしない予定です。）

Office2003のエクセルを使用した感じだと、関数を入力中にヘルプが表示されたり、
初心者には優しいのかなと思ったので、さらに使いやすくなってるのでしょうか・・・？

就活しています。
自宅のPCはExcel2002（OfficeXP）ですが、
中小企業さんではExcel2003が一般的でしょうか？

>>376
リース期間の関係もあって2003が多いと思います。
中小であれば、それより古いものも結構多い。

>>375

2007は評判が悪かったけど、2010は諦め感があるし、もう2003から移るべき時期には来ていると思う。
タイミング的には乗り換えても。
2010で便利な機能もあるし、相変わらず使い勝手の悪いイライラする面もあるけど。

>>376
中小企業が2003を使っている、って事はない。意外と乗り換えやすいのは中小企業。
ただ、これは会社に拠るからなあ。
未だにXPを使い、OFFICE2003を使っているのは大企業が多いと思う。

>>378
くさっても最新版ってとこでしょうか・・・
じゃあ今から買ってきます
いくらするんだろう・・・・・高いんだよなオフィス・・・。
ありがとうございました。

>>377-378

>>100

>>224
テンプレ端折っても「ピボットテーブルで」と書いてるから
VBAが使えるか、VBAでの回答の可否は省略しても
意味が通じると思うんだよね。

煽り厨は、答えられるスキルがないなら引き篭もってろよ（はぁと♥

あーあ､やっちゃったね｡これで回答貰える確率はグンと下がった｡

しかしまだ希望はある…そう､複乳だ｡

奴は実社会で他人から必要とされることがなく､頼られること､お礼を言われることに飢えてるから
バカ質問者を助長し､スレの秩序を乱すことになるのもお構いなしで､解ることにはなんでも答えちゃう｡
どんなバカ質問者でも､回答くれた人にまで悪態付くことは無く､大抵お礼を言ってくれるどころか
複乳だけがまともな回答者かのような物言いをしてくれることもあるので､複乳的には超ご満悦なわけだ｡

ただ問題は､複乳はここの回答者としてはかなりレベルが低いということ｡
まあレベルが低いとは言っても回答者としてなので､ちゃんとまともに答えられることも結構あるが
答えたくても答えられない事が多く､また答えても無駄が多かったり､一応出来てるように見えて
実は不適切だったりすることも多々｡

複乳で済むならそれに越したことはない　最近怠けてるけどな

へんな名前の奴多いんだねここ

いや、多分先の震災で複乳は被災してたんだとおもう。

最近ようやく落ち着いたんじゃないかな。

でも複乳じゃ例のグーグルマイマップの件とかには答えられないだろうな
アホー知恵遅れに逃げて5日になるけど､まだ回答付かず放置状態w

複乳よ､解るなら盛大に喜んで貰えるチャンスだぞw

>>381
http://www.relief.jp/itnote/archives/001255.php
ピボットテーブル　0を表示　で検索すれば一発だった
>>385
就職活動中なんだよー
地震と関係なく結構最悪のタイミングで会社なくなった＜＞
>>386
わかんないです＞＜

eXcel kattekitayo

instal tyuu

Aのブックに写真付のデータを入力し
Bのブックに入力したデータの一覧化というのは可能でしょうか？

Aに原紙があり、データを入力すると新しいシートにデータを出力（原紙はそのまま）
BのシートはAで作成したデータシート（n枚）を一覧かつハイパーインク付き

Aのブック
入力用シート（原紙）
入力したデータシートA
入力したデータシートB
　　　　・
　　　　・
　　　　・

Bのブック
Aの入力したデータを一覧
ハイパーリンクAをクリックするとAのデータシート
BをクリックするとBのデータシート

>>389
｢VBAで出来るから自分でコード書いて｣ (>>3参照)

>>382
あのね、もう220-221で解決済みなのよｗ

複乳さんを小馬鹿にしてるけど、俺は彼を支持するね。
中には「そりゃないだろう」って回答もあるけど、質問者の大半は
とりあえず「動く」「集計できる」ってことで満足してるんじゃないかな？

それより、質問者のレベルを無視して回答してる人の方が
自己満足してると思う。


>>387
いつもありがとう。
大企業の求人倍率は0.47倍、中小なら4.35倍（だったかな？）
大手に拘らなければ、複乳さんならいくらでも仕事があると思う。

可哀想な子､､､

解決してるんなら同じ質問投げるなよ

あら、終わってた問題に回答しちゃったのね。まぁいっか
>>391
ありがとう。今も中小企業で就活してるよ。昔大企業にいたけどほんとうにだるかったわ。一年いたけど支店従業員120人の名前最後まで覚えられなかったわ
コジキになる心配はしてないけど、さすがに就職活動はめんどくさいわー
あと公務員に近いと言ってできるだけ仕事が少ない協同組合を選んだら見事に会社ごとなくなったわ。因果応報としか言いようがないわ。まぁいいわ。
ちなみにとある薬品を処理する工場よ。特定しいなでね。
さすがに次は真面目にやるわ。ありがとうね。

自分かたりうざい

Excelの勉強も真面目にやった方がいいぞ

>>395
失礼。私の話題が出てたもんで乗ってしまいました

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002(officeXP)
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】様々
私は今、転職活動中です。現在はオフィスXP(エクセル2002)を使用しています。
vbaはCOMは使えませんが、コマンドプロンプトを通じてファイル操作する程度はできます。
転職のためには2007や2010を買って勉強したほうが良いでしょうか。

>>398
冗長なコードや数式を書くことが多々見受けられるので
まずはそういうところを直しましょう｡
バージョン気にするのは､そのレベルを卒業してからで十分です｡

いいえ

>>399-400
そうですか、ありがとうございます

>>398
転職のためにはまず>>394みたいな発言をしないことじゃないかな？

>>402
お気遣いありがとうございます
面接中・勤務中では猫をかぶりますので大丈夫です

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

左右を見比べながら入力作業をしたい
モニターに2つのデータを出す方法を教えてください。
例えば右側はAデータ、左がBデータ
または上下でもできたはずです。

わかりづらいかと思いますがよろしくお願い致します。

【2 Excelのバージョン 　 】 Excel2000
Webから、タブ区切りのcsvをダウンロードした時にタブ区切りを認識させたいのですが、
ggっても設定方法が分かりませんでした。　
区切り無しの一行で読み込んでしまっているんので、やり方を教えて下さい　＞＜

嫌です〜

>>405
データ＞区切り位置

>>404
2つのブックを並べて表示するなら表示→整列
同じシートの中の離れた場所を表示するならウィンドウ枠の固定

そういう時は嫌じゃなくて分かりませんて言うんだぜ？

2000だとwebクエリまだ無かったんだっけな？

【1 OSの種類】 Windows7
【2 Excelのバージョン】 Excel2010
データの種類を表示する方法が知りたいです

企業名が無作為に重複しつつ存在しているとして（空欄はない）
ある範囲に含まれている企業名の種類をすべて抽出したいのですが
良いやり方はありませんか？

>>411
企業名の他に何か数列や文字列などデータは入っていますか？

>>412
入ってません

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

MOS試験を受けようと思っています。
現在、会社でも自宅でもExceｌ2003なので、2003を受けるつもいです。
ところが、本屋に行っても2007と2010の模擬試験集しかありません。
出題は同じと思えばいいでしょうか？

全然違うよう

>>411　ピボットテーブル

>>404
新しいウィンドウを開く
>>414
大体おなじ。2007で減った機能はなかったと思うんで2007用でもいいけど
見た目が違うので避けたほうがいいかも
何ならヤフオクで落とすほうがいいかも
ttp://page13.auctions.yahoo.co.jp/jp/auction/r74495547

>>411
2003だとフィルタオプションで重複するレコードは無視する
2010は知らん

パソコン一般の初心者スレからこっちに誘導されたので同じ質問します。

今、excelで列6行3000位のデータを扱っています。
データは
1,2,3,4,5,6
7,8,9,10,11,12
というような順番になっているのですが、
これを
1
2
3
↓
というように並べ変えたいと思っています。

行列を入れ替えようとすると、エクセルの列の上限(Excel2000なので256)に当たり
出来ません。

質問は何かこれを簡単にやる方法ってありませんでしょうか？
(当方マクロの知識は一切ありません……)
もしくはExcelっぽいソフトで列数の制限が広いヤツとかってないでしょうか?

計算の必要のない単なるデータなら､csvやtsvでいいんじゃね？
行数､列数ともにほぼ無限

あと､1,2,3を
1
2
3
にするのも､csvに出力してカンマを改行に置換すれば一発

>>420
なるほど！
ありがとうございます
早速やってみます

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 コピペでなら
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 ふりがな　VBA　関数

簡潔に言うと、B1セルの文字を、A1セルの漢字の「ルビ」として
振ることは可能かどうか教えていただきたいです。

現在名札を製作中です。LEFTやらFINDやらで名簿の氏名を苗字と名前に分け、
それにVBAの「SetPhonetic」をかまして、オートでルビを振るところまでは
できました。しかし、入力時のデータが生かされるため、正しい名前の読みは
完全に出てきません。せっかくフリガナのデータがあるのだから、
それをルビに流用したいと考えております。

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

>>422
フリガナを自動できちんとつける方法はない

Range("A1").Characters.PhoneticCharacters = Range("B1")

みたいにすれば一応設定は出来るけど、これだと
名前の一文字目にすべてのフリガナが関連付けられてしまうため、
データの位置関係はこんなふうになってしまうので注意

ﾔﾏﾀﾞ　ﾀﾛｳ
山　　　　　 田　太郎

まあいっぺん試してみて
書式やフォントの大きさによってはフリガナがちゃんと乗ってるように見えることもあるから

>>419
もう見てないかな？
元のデータがAからF列に入っている場合、どこか空いてる列にこの式を入れれば一列になるよ
=INDEX($A:$F,INT((ROW()-1)/6)+1,MOD(ROW()-1,6)+1)

>>422
ｲ　ﾛ　　ﾊ ﾆ ﾎ　　　ｲﾛ　ﾊﾆﾎ　　　ｲﾛﾊﾆ　ﾎ ﾍ
姓姓　名名名　　　姓　名名　　　.姓姓　名名

. ｲ　ﾛ　　　 ﾊ　ﾆ　ﾎ
姓　 姓　　名 名 名

こんな感じでよければサンプルあげるよ
漢字書きの氏名､ふりがな共に､姓と名を全角スペースで区切っていること前提のコードなので
現状､区切りが無いなら区切りを入れ､半角スペース区切りならデータを置換で直すかコードの「姓と名の区切り文字」の""内を書き換え
下段の例のような場合は､コードの区切り文字は全角スペース2個にして､ふりがなの区切り文字も全角スペース2個にしてね
(「ｲﾛ　　ﾊﾆﾎ」とすれば良しで､「ｲ　ﾛ　　ﾊ ﾆ ﾎ」のようにする必要は無い)

Private Sub Sample()
　Const s = "　" ' 姓と名の区切り文字
　Dim n() As String, p() As String, r As Long

　For r = 1 To 2 ' 1行目から2行目まで
　　With Cells(r, 1)
　　　n = Split(.Value, s)
　　　If UBound(n) <> 1 Then MsgBox "名前が不正です": Exit Sub
　　　p = Split(.Offset(, 1).Value, s)
　　　If UBound(p) <> 1 Then MsgBox "ふりがなが不正です": Exit Sub
　　　.Phonetics.Alignment = xlPhoneticAlignDistributed
　　　.Characters(1, Len(n(0))).PhoneticCharacters = p(0)
　　　.Characters(Len(n(0)) + 2, Len(n(1))).PhoneticCharacters = p(1)
　　　.Phonetics.Visible = True
　　End With
　Next r
End Sub

助けてください。もう自分が理解できません。
あー桃太郎！ぼつちやーん＼(^o^)／

おっと間違いがあった
×.Characters(Len(n(0)) + 2, Len(n(1))).PhoneticCharacters = p(1)
○.Characters(Len(n(0)) + Len(s) + 1, Len(n(1)) + 1).PhoneticCharacters = p(1)

VBA厨氏が居るときは､複乳は出てこなくていいよ｡

Excelに直接入力した時でも、結局は
山←ヤマダ
田
太←タロウ
郎
になっちゃうんだよな。フォントサイズを変えると激しくずれるから、名札とか作るにはあんまり向いてない。
漢字とカナが対応できない名前は別として、理想はこうなんだけどね
山←ヤマ
田←ダ
太←タ
郎←ロウ

文章ルビなら
山←ヤマ
田←ダ
太←タ
郎←ロウ
が理想かも知れないが､人名ルビは
山┐←ヤマダ
田┘
太┐←タロウ
郎┘
が理想だろjk
スペースで位置整えてる場合はフォントサイズ変更で激しくズレるけど
割付けで位置整えてる場合はフォントサイズ変更してもズレないし｡

それに
> 漢字とカナが対応できない名前は別として
と言うが､自分のだけ作るならまだしも､不特定多数のを作る場合は
別として､じゃ済まないからな｡

>>430
普通に拡大するとこんなんになるんだけど、バランス悪い思わない？
ttp://ourfilehost.net/up/file1/img/up3203.png

漢字とカナが対応できない場合は均等に割ればいい
そうでない場合はきちんと並べた方が見栄えがいい
あと、小説や文章のルビと名前のフリガナは別として考えるべき

それは位置バランスが悪いのではなく
漢字とふりがなのサイズ比を故意に極端に悪くしてるだけやんw

故意にやったらいくらでもバランス悪く出来るよ｡
http://ourfilehost.net/up/file1/img/up3204.png

�Aは､�@を君がバランスが良いと言うところの単字ルビ(きちんと並べた)に
したものだが､サイズ比が極端に悪ければ結局バランス悪く見える｡

しかしサイズ比さえ極端に悪くなければ､単字ルビではない�C�D�Eも
バランス悪くはならない｡

バランスなんてのは､好みの問題もあるから絶対的な正解なんて無いんだろうが
画像検索でフリガナ付きの名札､名刺､表札などを見てみると､漢字1文字単位でフリガナ付けているものは殆ど無いね

昔は印刷屋にやってもらったものが、最近はなんでもパソコンで自作するようになって
バランスの悪い印刷物が増えたよね
とくにExcelで印刷された文書はバランスが悪くて読みにくいものが多い
ExcelはDTPソフトじゃないのに

>>433
世の中には黄金比というものがあってだな…

>>434
全然的を射てない話だなw
どうにも退けなくなっちゃって､詭弁や屁理屈で自分の正当性を確立しようと必死になってる感じ
これ以上頑張っても滑稽なだけなので､もう少し勉強してから出直した方がいいぞ

>>422
IMEのフリガナデータを使うーGetPhonetic
http://officetanaka.net/excel/vba/tips/tips49.htm
>>432
の5ぐらいは十分キレイじゃないか
名札なんてアルバイトでもそんなに変えないんだし、作るたびに列幅変えてもいいわけだし
ある程度は作る人が調節するでしょ

>>417
ありが�d

>>423
A1セルに山田　太郎、B1セルにヤマダ　タロウと入れてやってみたけどウンともスンとも......
何がダメぽなの??

Sub test()
Range("A1").Characters.PhoneticCharacters = Range("B1")
End Sub

>>438
http://www.dotup.org/uploda/www.dotup.org1499394.jpg.html
>>423のマクロはセル内の漢字データに、B1の文字列を、フリガナとするマクロ
http://www.dotup.org/uploda/www.dotup.org1499398.jpg.html
こっちはIMEのデータをフリガナとするマクロ

フリガナをどういう風に表示させてるかで活用法はいろいろ異なるが、
お主の場合はshift+enter+↑でフリガナを付け直したほうが早いかも知れない

皆様どうもありがとうございます。
皆様のVBAをためさせていただきました。
>>423さんのであっさり出来ることに驚き、>>425さんのものでは
目に見えるセルの指定がないのに何故できるのか驚いております。
しかも、メッセージボックスまで出る。VBAとは奥が深いのですね。

問題の「ズレ」ですが、漢字振り仮名共に全角にて苗字と名前を分け、
別々のセルに送った上でルビを振る、という名札なので均等配置にすれば
問題なさそうです。正直に申し上げると

1年1組
　　　山
　　　田
　太
　朗

のような「どこか」でよく見る名札を作っております。40人分ずらーっと。
その為、別シートの名前やらの一覧から、名札のシートに全角スペースで
苗字と名前を分けながら送りつつルビを振る、しかも上のセル構成、
という結構複雑な流れになっております。
後日また、シート付で質問させて頂いてもよろしいでしょうか。
どうぞ、よろしくお願いします。

ワードでやればいいのに…

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 コピペでなら
【4 VBAでの回答の可否】 できれば関数で
【5 検索キーワード 　 　 】 Phonetic　ふりがな　VBA

連続ですがもう一つ質問をさせてください。
A1のフリガナに対し、苗字と名前に分けながらふりがなに変換する、
という作業をしたいのです。
苗字　=IF(A1="","",LEFT(A1,FIND("　",A1)-1))
名前　=IF(A1="","",MID(A1,FIND("　",A1)+1,LEN(A1)))
という感じですが、これに「phonetic」を先頭にかましたり、LEFTの前にかましても
エラーが出てきてしまいふりがなにしてくれません。
何処で間違ってしまっているのでしょうか。
これもまた名札のような複雑なセル構成の所で活用したいので、
出来うる限り関数で処理したいのです。ご教授お願いいたします。

>>441
環境もスキルも意識も「10年遅れている」、という現場の事務作業軽減の為、
誰でもワンタッチで使えるものを作る必要があるのです。本当に申し訳ない。
われながらしつこいと思うので、「やってられないぜ！」という場合はどうぞ軽く流してください。

>>442
A1をphonetic(A1)

2003でも試してみたところ
>>295さんが書いてくださったように
2003から仕様変更があったようです。
新しい仕様に慣れようと思います。

>>293
Ctrl+A押せばその仕事するマクロを記録しておけば良くない？

セル内編集状態では､マクロが動かないことを知らないのか？

2011.04.05 09:02 -5
2011.04.05 09:06 -2
2011.04.05 09:21 10
　　　　　・　　　　　　　　　・
　　　　　・　　　　　　　　　・
　　　　　・　　　　　　　　　・　　　　
2011.04.05 11:10 　3

というデータがエクセルにあるのですが、これを縦棒グラフで
9時台の合計・・・10時台の合計・・・　というようなグラフを作りたいのですが
どうすればいいでしょうか？

説明下手ですがイメージとしてはこんな感じです
http://www.dotup.org/uploda/www.dotup.org1502491.jpg.html

よろしくお願いします

2段階で考えろ

×9時台の合計・・・10時台の合計・・・　というようなグラフを作る
○9時台の合計・・・10時台の合計・・・　をシート上に出す
　 それをグラフにする

そうすりゃ至極簡単なことだ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 集計　関数　セルの色

A1:A10にランダムに数字をあてはめ、入力された数字によって5段階にセルの色が白〜赤に変わるような条件付き書式を設定しています
この結果をB1（白のセル＝○個）からB5（赤のセル＝○個）という風に集計出力したいのですが、いまいち検索結果では理解できませんでした

色で判定させる方が楽なのか、条件付き書式で判定させる方が楽なのか
またどの様な関数を使えば良いのか、よろしくお願いします

関数というか数式では背景色条件の式は組めないよ
数値を基準に色分けしてるんだから､
例えば10以下を白にしてるなら､10以下の数を数えれば､白セルの個数になる

>>449
返事どうもありがとうございます

○9時台の合計・・・10時台の合計・・・　をシート上に出す
というのは、オートサムを手動でやる以外に方法はありますか

>>452
ピボットテーブルで「時」でグループ化しろよ。
グラフはピボットグラフ。

A1セルに
あああいいいい
とあって

「あああ」が赤色
「いいいい」が黒だった場合
置換で「いいいい」を「おおおお」にした場合
「あああうううう」が全て赤になってしまいます

これを色を変えずに置換って可能でしょうか？

>>454
ナニイッテマスカ？

>>451
キーワードでｇｇってみたところ
ttp://okwave.jp/qa/q6034747.html
がHITしたので解決しそうです

ありがとうございました

>>454
１セル内で2つ以上の書式ある場合の置き換えは、マクロで作らないとそうなっちゃう。
マクロならできるけどめんどくさい。

>>453
返事遅くなってすいません
どうもありがとうございます。

ピボットテーブルって全然知りませんでしたがググッてやってみました

ただ、グループ化で日付の表記が　

2011.04.05 09:02

なのが原因なのかわかりませんが、「選択対象をグループ化することはできません」とエラーが出ます
何かいい方法はないでしょうか

平成08年07月11日を平成8年7月11日という表記するいい方法はありますか？

シリアル値で入力してあるなら､普通に「ggge"年"m"月"d"日"」とすればいいだけじゃね？

文字列で入ってるなら「成0」「年0」「月0」を､それぞれ「成」「年」「月」に置換

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

すみませんが、どなたか教えて下さい。

例えば、ＥＸＣＥＬのブックの中に、１１個のシートがあるとします。

その内の１〜１０番目のシートは全て同じ内容で、
同じ場所に数字が書かれています。
仮にその数字の場所を「Ｄ２０」とします。

１１番目のシートは、合計を表示する特別なシートです。
１〜１０番目のシートのＤ２０の場所を合計して、
１１番目のシートの「Ｂ１０」に表示させたいと思っています。

この時、１１番目のシートのＢ１０に
「＝シート１！Ｄ２０＋シート２！Ｄ２０＋・・・・」というように、
１〜１０番目のシートを全てプラスしていけば合計は表示されますが、
この方法だと、シートをさらに追加した時、毎回手入力で追加して書き込んでいかないといけません。

シートは日々どんどん追加してゆく予定なので、
できれば、追加しても自動的にＤ２０の位置の数字を合計に加算したいと考えています。
合計を表示するシート１１のＤ２０の位置はブランクにしているので、
要は「全シートの同位置の数字を自動的に合計する方法」が知りたいのです。

このような対応はＥＸＣＥＬで可能でしょうか？
どうかよろしくお願いいたします。

>>461
シートが
[１][２][３][４][５][６][７][８][９][１０][集計]
と並んでるとしよう｡で
[１][２][３][４][５][６][７][８][９][１０][１１][集計]
[１][２][３][４][５][６][７][８][９][１０][１１][１２][集計]
と増えるとする

この場合､まずは
[１][２][３][４][５][６][７][８][９][１０][ダミー][集計]
として
[１][２][３][４][５][６][７][８][９][１０][１１][ダミー][集計]
[１][２][３][４][５][６][７][８][９][１０][１１][１２][ダミー][集計]
のようにシートを追加していく｡

で､使用する式は
=SUM(１:ダミー!D20)

これで
[１]〜〜〜〜〜〜〜〜〜〜[ダミー]
までの全てのシートのD20の合計が出る
ダミーシートの名前は､数式と一致させればなんでもいいし
ダミーシートには何も入力しなくて良し｡

普通はこうやるんだが､集計シートの対象セル(D20)が
ブランクというのが確実な条件なら､ダミーシート使わず
=SUM(１:集計!D20)
でも構わない｡

>>461
串刺し計算

sheet11!B10　=SUM(Sheet1:Sheet10!D20)

>>462
>>463
お返事、ありがとうございます！
早速やってみましたら、うまくいきました！
本当に助かりました。感謝感激です！！

>>458
俺のExcelではできてる

ちょうど昨日そんなエラーに遭遇したのよね。
年月日が入力されているセルをピボットテーブルでグループ化しようとしたら出来ないんだわ。
書式の問題かと思って揃えたんだけどうまく行かなかった。

人のエクセルの表で急ぎだったから何が原因なのか分からんまま別の方法をとった。
自分のエクセルでは当然グループ化出来た。

>>463
それだとシートの追加には対応出来んぞ
まあ上にちゃんとした回答あるからいいけど

>>467
シートの追加に関しては>>462が説明していますが基本的な串刺し計算について
説明が曖昧だったので。

素直になろうぜ

僕は男が好きです

僕もです

ちなみにボクは女ですが

私、ヅラです

【1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel２００７
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】ＣＯＵＮＴＩＦ関数

××以下の数字の個数を数える場合にたとえばＣＯＵＮＴＩＦ関数を用いて
=COUNTIF($A$1:$A$99999,"<21.47")
という風にセルに入れると２１．４７以下の数字の個数をカウントできますが
この２１．４７という数字をセルを指定する事ってできないんでしょうか？
いちいち手入力でやるのがめんどくさくてたまりません。
どなたかいい知恵がありましたらご教授下さい

>>474
C1に21.47といれて
=COUNTIF($A$1:$A$99999,"<"&C1)

他にはCtrl+Hの置換で,「"<21.47"」を「,"<33.33"」でも数式を書き換えることができる

>>474
$A$1:$A$99999としてるということは、その他の数値以下も数えたいんだろ？
だったらCOUNTIFじゃなくFREQUENCY関数を使え。
C1:C100に数値がありD1:D101に答えを求めるなら、D1:D101を選択して
=FREQUENCY(A1:A100,C1:C100)としてCtrl + Shift + Enterでいける。
D101はC100を超えた数値の数な。
超えることがなければD1:D100を選択して同じ数式を入力汁

COUNTIFはひとつの数値以下だけ数えるなら正解だが、そうじゃなければ不正解。

A列はA99999までだったな。
=FREQUENCY(A1:A99999,C1:C100)
としてCtrl + Shift + Enterだな。

頻度分布と勘違いしたわ。
上のFREQUENCYの答えの累計を求めればいい。
E1に=D1、E2以下は=E1+D2だな。
C列の値は昇準になってることが前提。

>>475-478
ありがとうございました

何か突然何も入力できなくなりました。
ファイル等は開けます、２時間前までは普通に作業していました。
シートの保護などはしてません、何だかツールバーとか全体的に透明
がかっていて使用できません。セル番は動かしたりできるのですが、
何も入力できません。
２００３を使っています。アドバイスお願いします。

ぼくのせいじゃないからね。

>>480
Excelを一度終了して再実行
PCを再起動
Excel(Office)をアンインストール後に再インストール
OSを再インストール

ここまでやってダメならまた来なさい

飼いねこがキーを押していた、が真相

>480
それはエクセルだけの話ですか？　他のアプリは異常ありませんか？
２ｃｈへの書き込みは同じＰＣでやっているんですか？

Excelだけです、いまのとこ。

Excelで新規ブック作ってもそれならExcel壊れてんじゃねーの？
特定のブックだけだったらブック壊れてる

それかapplicationのプロパティでなんかあったな
ユーザーの入力受け付けなくするやつ
そのマクロ実行中に落ちたとかじゃない限り壊れはしないだろうけど

エクセルについて質問。誰か教えてください。

「A2が空白ならB２に空白を返し、A2に0以上の整数が入っていれば100からその数字を引いたものをB２に返す」
ってのがやりたくて、

=IF(AND(A2<>"",A2>0),100-A2,"")

を入れたんだけど、　A2に0を入力すると空欄になっちゃうのね。
A２に０を入れた場合は、「100」って数字を出したいんだけど、どうしたらいいでしょう。

IFを2段構えにするとか

>>489
それを教えて欲しいんです・・・

またテンプレ厨がパチギレそうな予感

>>488
A2>0
0以上？

>>488
A2に０以下の数字や文字がはいらなければ
=IF(A2="","",100-A2)
でよいかと。

>>480
新規ファイルは大丈夫なら新規ファイルにコピーするとか
無理ならエクセル再インストールしたほうが早いだろうねぇ

>>488
0未満なら空白でいいんかな
=IF(A2>=0,100-A2,"")
こんな感じ

>>493
>>494

助かりました・・・。解決しました。
ありがとうございます。
調べようと思ったのですが、あまりに時間がなく、困っていたので。
ホント、ありがとうございます。

良かったね

>>488の条件を忠実に式にすりゃ=IF(ISNUMBER(A2),IF(A2>=0,IF(A2=INT(A2),100-A2,""),""),"")だなｗ
これほど厳しい条件じゃないと思うが。

>>497
IFは3段ではなく2段でいけるよ

&0か+0かiferrorか何でもいいか

1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 板取り　二次元資材割付問題 アルゴリズム

Excelで板取計算ができないかと考えています。


やりたいことは
1 母材の縦横サイズを入力
2 部材の縦横サイズと必要数を数種類入力
3 部材毎に縦横回転可否の条件入力
4 最適取り数とレイアウト図を表示

です。


ナップザック問題等でも
有名な、難解な問題ですが、
宜しくお願いします。

>>500
スレ違い

ここはExcelの使い方を聞くところで
数学的問題の解き方を聞くところじゃない

もう少し簡単な問題に例えると
「8の3乗というべき乗はどう入力したら良いですか？」
という質問には「=8^3 です」と答えるが､
「べき算とはなんですか？」はスレ違いってことだ

更に言えば当然VBAになるわけだが
>>3★VBAについて に書かれている通り
解法が確立されたところでこのスレの範疇では無い

ということで､解法を求めるところまでは学問板へ
それをプログラムコードにするところはプログラム技術板へどうぞ

>>500
http://search.vector.co.jp/vsearch/vsearch.php?&query=%258D%257C%258D%25DEむhttp://www.vector.co.jp/soft/win95/business/se249340.html
この辺と思う
検索しませう

む？

先日ふりがなの件で質問させていただいたものです。
いろいろ勉強し、考えて、名札を作るシートに、苗字と名前に
それぞれふりがなをふった一覧を作り、そこから名札の枠に
ペタペタはっていくというマクロでも組もうかと考えました。
http://www.dotup.org/uploda/www.dotup.org1516168.gif.html
一覧までは>>425VBA厨さんのVBAを参考（パクリ）にさせて頂き、
上記の画像の下の方に作ることが出来たのですが、
さて、ここから先、たぶんstep2を使ったForの二重がけやらが
必要になる貼り付けのところでもはや手も足も出ません。
どうかお力添えをよろしくお願いいたします。

Sub ふりがな()

Dim r As Long, i As Long

For r = 40 To 81
With Cells(r, 2)
.Phonetics.Alignment = xlPhoneticAlignDistributed
.Characters(1, Len(Cells(r, 2))).PhoneticCharacters = Cells(r, 3)
.Phonetics.Visible = True
End With

With Cells(r, 4)
.Phonetics.Alignment = xlPhoneticAlignDistributed
.Characters(1, Len(Cells(r, 4))).PhoneticCharacters = Cells(r, 5)
.Phonetics.Visible = True
End With

Next r

End Sub

>>498
2段じゃどうなるの？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 入力規則　名前の定義　複数ヶ所　リスト
名前の定義を離れたセルでしてそれを入力規則でリストの範囲で
=定義した名前
としたらエラーになりました。
離れたセルで名前を定義したものを入力規則のリストで使うにはどうしたらよいのですか？

>>504
ブックうpした方がいいんじゃね？

>>505
普通に

>>507
その普通が分からん
>>493や>>494は整数の条件が抜けてるし、そもそも>>494はA2が空白のときおかしくなる。

>>506
無理ぽ

>>488は整数じゃないときどうしろとは書いてないから忠実な式は無理だな。

【1 OSの種類 　 　 　 　 .】 WindowsVista Home Premium SP2
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 チェックボックス　If　フォーム　Hide　条件　選択

ユーザーフォーム上でのチェックボックスのチェックの有無による
条件分岐についての質問です。
まず、UserForm1、UserForm2、UserForm3を作成しました。
UserForm1には1つのコマンドボタンと5つのチェックボックスを配置しており、
CommandButton1とCheckBox1〜5のオブジェクト名が付いています。

この時、分岐1としてCheckBox1をチェックしたときは
CheckBox2〜5のチェックの有無にかかわらずUserForm2を表示する。
分岐2としてCheckBox1にチェックがないときかつ、CheckBox2〜5のいずれかにチェックがあるときはUserForm3を表示する。
分岐3としていずれのCheckBox(1〜5）にもチェックがないときはUserForm1を非表示
にするコマンドボタンを作成したいと考えています。

Ifステートメントを用いてコードを書いてみたのですが、
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then 'CheckBox1が選択された時UserForm2を表示
UserForm2.Show
Else
UserForm3.Show
End If
End Sub

これだと、いずれのCheckBox(1〜5）にもチェックがないときでもUserForm3が表示されてしまいます。
これに、いずれのCheckBoxにもチェックがないときUserForm1を閉じる(.Hideなど）コードは
どのように記述すれば良いのでしょうか？
よろしくお願い致します。

>>508
普通､複数条件で不一致時に返す値が同一なら､IF多段ではなくAND使うんだよ
そうすれば「〜,""),""),"")」みたいな無駄を減らせる

=IF(ISNUMBER(A2),IF(AND(A2>=0,A2=INT(A2)),100-A2,""),"")

これは条件数が増えるほど差は顕著で､例えば追加条件で
「100超の値の場合も空白を返す」というのを含めて4条件必要な場合だと

=IF(ISNUMBER(A2),IF(A2>=0,IF(A2<=100,IF(A2=INT(A2),100-A2,""),""),""),"")
=IF(ISNUMBER(A2),IF(AND(A2>=0,A2<=100,A2=INT(A2)),100-A2,""),"")

のようになるわけだ

ISNUMBERだけは別段にしなくちゃならないから2段は必要なので
2段と3段じゃあまり見た目ではあまり代わり映えしないけど､式の長さだけではなく､
論理演算(AND関数)に比べて､IFの入れ子は処理も重いから
普段から無意味にIFを多段にするのは避けるように覚えて置いた方がいいよ

>>512
ワークシート関数のANDやORってショートサーキットだっけ？

潔癖症なヤツに聞きたい
百万円単位で表にしたとき、Q1にはどう書いてる？

４月　1,450,000　　５月　2,430,000　　６月　3,400,000　　１Q　7,280,000　

　４月　　　５月　　　６月　　　１Q
　　1　　　　 2 　 　 　 3　　 　 （　）

>>507
やはりそうですか。思いがけず個人情報があったら怖いのですが、
教えていただくのですからやむをえないですね。
必要最低限のシートを残したブックを用意させていただきました。
それと、VBA組むなら絶対に並べ替えたほうが良いと思い、
名札の並びも左からに変えました。

http://www.dotup.org/uploda/www.dotup.org1516758.xls.html
パスワード:vba

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

>>515
登録名、もっと普通のにしたほうがいいよ
あと住所も消さないと

>>514
７月　だな。

あ”引っ掛けにひっかかっちまったぁ。

１Ｑ≠Ｑ１　　　orz

>>515
登録名？住所？シートには元から住所は打っていないはずだけれど。
後学の為、具体的に教えていただけませんか。
前回保存者名は残ってしまっていますね。

やっぱこういうのあげるの怖いですわ。

>>519
いまはgoogleearthですぐ見れるな

>>513
違うよね。
おれもまさかこんなレベルのレスがあるとは思わんかったわ。
聞いて損した。

>>521
>>512の脳内では=IF(ISNUMBER(A2),IF(ANDALSO(A2>=0,A2=INT(A2)),100-A2,""),"")なんだよ。w

>>522
なるふぉろ
ついでにORELSE関数も作ってほしいね。

>>517
引っ掛けじゃねーよ！ヴォケ！

One Quarterだから１Ｑでいいんじゃね？

>>514さま。
>>514ではどう書いたか今一度ご確認を。

もしＱ１＝１Ｑであるとするならば月の連続で７月が１Ｑに入ることになります。

>>514
の1Qは合計って意味では
4月〜6月の合計は繰り上がって7百万になるけど、
下段の4月〜6月の合計は6になっていて、ずれる
6にしたい気持ちは分かるけど、普通は正規の合計の7にする

>>512はVBAでもAndをよく使うの？
VBAが出来る人はAND関数がショートサーキットじゃないことくらい検証できるから、VBAはできないのかな？

>>528
http://d.hatena.ne.jp/oe-roel/20090602/1243950112

・VBAエディタ上のCtrl+Yは行削除である。進むことは許されない（笑）
このショートカットがウンコすぎてつらい

かなり逝っちゃってるなｗｗｗ
だから512みたいな電波飛ばしたんだなぁ
普通なんて言葉はお前は使っちゃいかん

解ってない奴大杉w

>>530
読んでくれるとは

何を分かったつもりになってるんだろ？
ほとんど常識的なことばっかの内容なのに。

「常識」ほど危険な言葉はない
ほとんどの人は常識を他人と共有できていると思っているが、実際は独りよがりなことが多い
そして、その内容が正しいか間違っているかは、また別の問題であるのに、
議論を始めるとこの2つの問題が入り乱れて収拾が付かなくなる
だから頭の悪い人間と議論するのは嫌だ

ifとiifの違いも理解してなさそうなのが複数居るな

517=526
キチガイ？

>>536
お前512か？
何でIfとIIfの違いが分かってるのに、ANDがショートサーキットみたいな書き込みしたの？

何勘違いしてるの？

>>539
おめーも勘違いしてるだろ？
ISNUMBERにIFが必要って書いてるからショートサーキットじゃないのは分かってるらしいが、IFのネストが重いってのは勘違いだよなぁ。
すべてTRUEのときはほとんど変わらんが、前がFALSEならIFのネストが軽いわ。
0以上10以下で
=IF(ISNUMBER(A1),IF(AND(A1<=10,A1>=0,A1=INT(A1)),A1+1,""),"")
=IF(ISNUMBER(A1),IF(A1<=10,IF(A1>=0,IF(A1=INT(A1),A1+1,""),""),""),"")
これでA1<=10がFALSEになるデータなら後者が軽い。
100万行に=A1+1みたいなデータ入れて実際試してみればわかる。
可読性や作法的に同レベルの評価はANDにするのを否定はしないが、重さに関してはIFのネストがANDより重いということはない。

何勘違いしてるの？

くだらないことでだらだらと無駄話するのはもう終わりにしようぜ
どうしてもやりたければ雑談スレへ

【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://hibari.2ch.net/test/read.cgi/bsoft/1151651536/

上のすべてTRUEならほとんど変わらんってのは間違いだったわ。
実際試したらすべてTRUEでもANDが重い。
よって512は大嘘。

>>542
勘違い君を啓蒙しないと、あとあと嘘を垂れ流されても困るからねぇ。

遠吠えが続く･････

バカって自分がバカって気づけないんだな。さすがバカだ。

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

A列とB列にそれぞれ数字が並んでおり、基本的にはA列の数字の合計を算出したいのですが、
A列a行目の数字がxよりも大きい場合は代わりにB列a行目の数字を加算する、
という式はどう書けばいいですか？

x=10で100行目までデータが入ってるとして
=sumif(a1:a100,"=<10",a1:a100)+sumif(a1:a100,">10",b1:b100)とか
それかC列を作業列にして合計出すか

>>546
だな
実際に試してみればわかるのにね
試しもしないで重い軽いを論じちゃいかんぜよ。
まぁ>>512が嘘なのは試さなくてもほとんどの人は分かると思うけどな。

俺もIFのネストが重いと思ってた
ショートサーキットなんて言葉も知らなかったよ
勉強になった

>>548
"=<10"のとこの数字にセルを代入するにはどうすればいいですか？
"=<C1"とかだとうまくいきません。

>>551
=SUMIF(A1:A100,"=<"&C1,A1:A100)+SUMIF(A1:A100,">"&C1,B1:B100)
ややこしいんならD列に
=if(a1=<c1,a1,b1)
って入れてD列の合計出した方が速いかも

>>552
なるほど、有り難うございます！

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

エクセル初心者ですが、学校の時間割を作る事になりました。
時間カウントで困ってますので、誰か助けて下さい。
科目の時間数を１日ごとにカウントしていきたいのですが
できません。

科目
国語（30）　数学（30）　英語（10）　理科（30）　社会（20）
（）内は時間数

　　　　　　　　月　　　　　　　火　　　　　　　水　　　　　　　木　　　　　　　金
１時間目　国語（1/30）　　国語（2/30）
２時間目　数学（1/30）　　国語（3/30）
３時間目　社会（1/20）　　数学（2/30）
４時間目　英語（1/10）

上記みたいにカウントして行きたいのですが、
カウント関数で複数行を範囲指定ができません＞＜
また。シート１枚で１日〜３０日まで作りますので
簡単な方法があれば教えて下さい。

> カウント関数で複数行を範囲指定ができません
普通に出来るよ

>>554
エクセル初心者がそういうのを安請け合いしちゃいけません。

>>554
二種類あって、上は設定と入力と出力を分けてある
下は1シートにして時間割と、科目だけにしてある
時間割が頻繁に変わるならうえのほうがいいんだろうけど、一回作って終わりなら下にしてもいいんじゃないかな

http://www.dotup.org/uploda/www.dotup.org1522151.xls.html
http://www.dotup.org/uploda/www.dotup.org1522153.xls.html

>>555
調べて、＋を入れたらできるみたいな事がわかりました。

>>556
無理矢理させられています＞＜
入ってすぐ押しつけられました。

本とインターネットとにらめっこしてます

>>557
わざわざありがとうございます。
上のを使って勉強したいと思います。

うｐロダって使った事ないけど試して
うｐしてみます。

うｐできてるかな？
http://www.dotup.org/uploda/www.dotup.org1522299.xls.html

こんな感じで作って見ました

まだ理解できない部分が多くて未完成です。
もっと簡単なやりかたや、関数などがあれば教えて頂きたいです。

>554
私も作ってみました。
http://www.dotup.org/uploda/www.dotup.org1522300.xls.html
ちょっと複雑ですが、入力した科目の横に累計の数字が出ます
ひと月に必要な週は６週だけど、５週分しかありません。あしからず

>559
見てみました。日付は縦方向でもよかったのか

>>560
ありがとうございます。
さっそく見てみます。

表はこれから動かしてはダメと言われました＞＜；

>>560
パスがわかりません＞＜

>563
ゴメン、パスは　excel　です

>>564
細かい時間割ありがとうございます。
>>559で作った表を元に完成させると
下に行けばカウントの関数の量が多くなってきます＞＜

またAクラス　Bクラスが間に入っているので範囲指定が
いっぺんにできません；；

これを４月〜１２月まで作るとすごい量になっちゃいます。
科目によっては５ヶ月掛けて行う物もあり、どう作って行くかわかりません＞＜

今週で作れるか・・・・

>565
必要とする要件を書いてくれたら手伝えるかも。
１　年間スケジュールが必要ですか？
２　科目数はいかほど？
３　1日あたりの時限数の最大値は？
４　Ａ，Ｂ別々に作ったらダメ？
５　科目を指定したら、すぐ横に累積時限数が必要ですか？　週単位ではダメですか？
６　ＶＢＡつかったらダメ？

>>566
１・年間スケジュールが必要です。
２・３６科目あります。
３・１時間の最大数は60時間
４・A・B別々ではダメと言われました・・・私も一緒なら楽に作れると言ってるのですが・・・
５・科目を指定したら、横に時間数の累積が必要です。学生の出席と進度に影響があるので必要になります。
６・VBAつかってOKです。560さんが使うなら私も勉強します。

備考
専門学校なので、１科目で教師が最大11名居る事があります。（１１名は同じ時間にはかぶらないです）
時間のコマは１コマで２時間なので本当は2/30→4/30→6/30と進んで行きます。

私の力不足でご迷惑をかけますがよろしくお願いします。
ちなみにVBAは本を買って勉強したら覚えられますか？
本当に初心者なので何を買えばいいかも分かりません＞＜

>567　を元に再度おたずねします
１　年間スケジュールを実現するのに１シートにひと月分割り当てて１２シートでもＯＫですか？それとも>559をずーっと下まで延ばす方がいいですか？
２　３６！
３　そういう意味ではなくて、１日の時間割でみた場合の１時限目から始まって昼食をはさみ６時限目まで、とかの意味です。
４　Ａ，Ｂの２パターンを>559でアップされたように並べる件、了解（ちとややこしいか）
５　了解
６　ＶＢＡの勉強もしながらだと数ヶ月はかかります。

>559　の様式で決定なのであれば、ＶＢＡでやってみます。　>560（私）の方法でよければ計算式だけでなんとかできたけど。
で、もうひとつ質問ですが、>559のファイルで１日分を４行使い、ＡとＢそれぞれ２行ずつとっているのはなぜですか？
何かデータが入るのですか？

>568の３は「おバカな質問」でしたorz
ファイルを見たら４時限で確定だった

>>568
失礼いたしました。

１・１２シートでお願いします。
２・２年生が一番多く、３６科目あります。１年〜３年の合計すると７９科目あります。
３・把握しました。　午前２時限と午後２時限の４時限になります。
４・
５・
６・数ヶ月！！！今週で作れと言われたのが数ヶ月以上はかかるんですね・・・退職届準備しなきゃｗ

>>559　の様式でお願いします。他の先生方から見たらあの様式がいいそうです。

＞559のファイルで１日分を４行使い、ＡとＢそれぞれ２行ずつとっているのはなぜですか？
上には科目名がはいり、下には単元名が入ります。

例　科目　論理学　単元名　言語表現技術�T

科目によっては単元が20以上あるので入力が早いと思い上下に分けました。

>>569
全然大丈夫です。
560さんに感謝しております。

この後の為に私もVBAを勉強しておきます。

>570
計算式でなんとかなりそうです。Ｑ列〜ＡＺ列まで使って、開始日〜当日までの科目別累積時間数を求める方法です。
>560でアップした表でいうと、１０行目〜１６行目に相当する部分です。
ただし、重くなるかも

>>572
重くなっても大丈夫です＾＾
私は今は>>560で作ってくれた物で勉強しています。

おまえらもう一緒に暮らせよ。なんだこれｗ

似たようなやりとりw は去年もありましたよ

>554,573
ｕｐしました　計算式だけでやってます
http://www.dotup.org/uploda/www.dotup.org1522731.xls.html

とりあえず3ヶ月分（3枚のシート）です。
シートを増やす際は、Ｑ１〜ＡＺ２の計算式の参照先を修正してください。

パスは前と同じです

>>555
お前、コテハンつけろよ。

複乳が役立たず過ぎてﾜﾛﾀw

それ､笑うほどの事か？

複乳が役立たずなのはデフォでしょ
いつも通り､仕様通り

エクセル2002なんだけど、インデントをやると全角２文字分が動きますo
全角１文字分を動かすには、どうすればいいのか教えてくだちいo

>>581
> インデントをやると全角２文字分が動きますo
そのそも､それが勘違い
動くのは全角2文字分ではなく､インデント1つ分

「全角2文字分」はフォント種とフォントサイズに依存するが､「インデント1つ分」は文字サイズに依存しない
例えば「MS Pゴシック」で6ptだと「１インデント≒３全角スペース」だが､16ptだと「１インデント≒１全角スペース」
というように「全角n文字分」とインデントは全く別概念なので「全角1文字分」動かしたければ､全角スペース入れるしか無い

まあ全角スペース入れる方法としては､手動でセルに直接入れる方法と､表示形式で自動的に入れる方法があるけどな

>>579
>>574>>579みたいな流れで複乳が変な回答でかませ犬になって
>>580以降の正常な流れになってる気が
いなくてもなってるかも知れないけどな

複乳はバカじゃないけどバカなんだよね

なんて言うか､偏差値は人並みだけどIQ低いタイプって言うか
学校の勉強はそこそこ出来るが､仕事は出来ないタイプって言うか

俺が答える前に、お前らが適切な回答をしてみろよ

excelの保護パスワードって最近のバージョンだと
大丈夫？
むかしのはすぐ破られたらしいんだけど。

>>585
メール欄に気付かずマジレスしてきた奴を嘲笑うつもりだったのか？

>>586
昔はバグで違うパスワードでも突破されるという恐ろしい仕様だったな
あれを考えれば、現行でも重要なデータを保護して配布というのはやめたほうがいいだろう

>>586
わざと破られやすいように作られているのは､今も昔も変わらないけど､何か？

Excelの保護ってのは､不用意な改変､誤っての改変を防ぐ物であって
他者による改変そのものを強固に防止したり､数式やVBAコードを他人に見られないようにするものじゃない

例えるなら､部屋の外からでもコインなどで開けられる屋内個室用の鍵付きドアみたいなものさ
一般住宅のトイレなんかは､使用中に不意に開けられることが無いように一応内鍵が付いているが
冬場に暖房のないトイレで高齢者が意識を失ったり､子供が一人で入って鍵掛けたはいいが
開けられなくなったりって時の為に､特別な工具を使ったりドアを壊したりしなくても外から開けられるようになってる

Excelも同じで､パスワードを忘れたり､設定時に誤ったパスワード入力したりして解除出来なくなった時に
せっかく作ったブックやコードを丸ごと失うことを避けるために､わざと破ろうとすれば破れるレベルの保護に留めている

Excelで作る程度の物は､その程度の保護で十分と考えられており､もっと強固な保護が必要なら
まともなプログラム言語を使えって話になる

昔はハッシュを使ってたから誤判定があったし、ファイルが破損してると無条件で開けてしまうという
トンデモ仕様だった
2007以降はちゃんとRSAで暗号化されているので突破は容易ではない
不可能ではないけど現時点では非現実的

突破方法確立されてるけどね｡

>>576
仕事の都合により、返事遅くなりました。
見てみました。すごい時間割ありがとうございます。
これを使って勉強し、改良版も作れるように頑張ります。

本当にありがとうございました。
詰まってわからなくなった時にまたお願いします。

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

VBAを少しずつ勉強しているのですが、次のような場合どうしたらいいのか分かりません。

aは横方向、bは縦方向の数値です
A2~A21が空白の時は次のB2~B21に…という風にしたいのですが
Exit For?を使うのでしょうか？
どうしたらうまくいくのか分からないので教えてください

For a = 1 To 10
If Range(cells(2,a),cells(21,a))=""then
※
Else
For b = 2 To 21
If 〜
〜
Else
〜
End If
End If
Next b
〜
Next a

一列全部空白だったら何らかの処理をするってことですかね
一列空白かどうか判定する変数flagを用意して

For a = 1 To 10
flag = 0

For b = 1 To 21
If Cells(b, a) <> "" Then flag = 1
Next b

If flag = 0 Then
'1列全部空白の時の処理
End If

Next a

for each使うとかもっといい方法あると思うけどよくわからないっす

ごめんなさい、逆です
一つでも空白があったらです
分かりにくいのでIf Range(cells(2,a),cells(21,a))="1"then
A2~A21のどれか１マスに1があったらでお願いします

For Each cc In Range("A2:J21").Columns
　　If WorksheetFunction.CountBlank(cc) > 0 Then
　　　　MsgBox "空白あり" & cc.Column
Else
　　　　MsgBox "空白なし"
　　End If
Next

WorksheetFunction.CountAで調べてもいいよ。
0ならすべて空白、列のセル数の20ならすべて埋まってる。

インデントが変になったよ。

>567,592
いくつか忘れてた。
>567の中にあった　＞時間のコマは１コマで２時間なので本当は2/30→4/30→6/30と進んで行きます
の件については、各シートのＥ、Ｈ、Ｋ、Ｎ列の式の途中に　*2　を付けたら数字が倍になります。
（一番最後に付けたらダメよ）　Ｑ〜ＡＺ列の式には不要です。

累積時間数／全体時間数　の形式にしたいんであれば、Ｑ〜ＡＺ列の１０６行目より下の部分に
全体時間数を入れておいて、INDEXとMATCHを組み合わせて科目別の全体時間数を拾ってきて
文字列結合で組み合わせればいいと思う。
「４月」のシートのＱ１〜ＡＺ２セルの内容は、実際にはなくてもいいので、ここを科目別全体時間数
に利用してもいいと思いますが、５月以降のシートではこの部分（Ｑ１〜ＡＺ２セル）が重要なので
４月のシートのＱ１〜ＡＺ２セルの内容を同シートのＱ１０６〜ＡＺ１０７で参照し（参照式はＱ１０６〜
ＡＺ１０７の方に書く）、５月以降のシートもＱ１０６〜ＡＺ１０７に４月シートのＱ１０６〜ＡＺ１０７を
参照するようにしておくとわかりやすいと思います。その際は、４月シートだけ、Ｅ４〜Ｎ６の式から
+INDEX($Q$1:$AZ$1,,MATCH(D4,$Q$3:$AZ$3,0))　←Ｅ４の式の例です
などの部分を抜いてください。

はいはい

Office2010の60日間お試し版をインストールしました。
2003風にしたくて、ググってみたら、「Office 2007 オールドスタイル
メニュー アドイン　ver.0.92」というのがあったので
試してみようと思ったらインストールできません。
お試し版だからでしょうか？

OSはWindows7で、もともとOfficeが入ってないノートPCです。
よろしくお願いします。

>>600
http://www.ka-net.org/ribbon/ri53.html
http://www.vector.co.jp/soft/winnt/business/se483273.html
こっちじゃだめか

excel2007です

A1に1111-1と入力すると
A2に1111-2と表示されるようにするには、どうしたらいいですか？

>>602
自己解決しました

>>598
ありがとうございます。
さわる時間がなく今は家に持ち帰ってます。

今週でがんばって仕上げて行きたいです・・・

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否? よくわかりません
【5 検索キーワード 　 　 】 エクセル　数字変換　切り上げなど

ほとんどエクセルを使ったことが無いので、
簡単なことかもしれませんが、よろしくお願いします。
数字が0から99までありまして、
時間ごとに出力された数字を一覧表にしました。
数字の誤差をわかりやすくするために5刻みの数字に変換したいのです。
3から7は5、8から12は10というように変換する数式はありますでしょうか？

　　A　　　　B
1　数値A　数値B
2　13　　　　15
3　48　　　　50
4　92　　　　90
5　22　　　　20
6　77　　　　75

上記のように変換出来ますでしょうか。
よろしくお願いします。

>>605
B2=CEILING(A2-2,5)

=(round(a1*2,-1))/2とか

うわ、そんな関数あったんや

CEILINGだと2〜99はいいけど0〜1はエラーだよ

=ROUND(A1/5,0)*5
もしくは
=ROUND(A1*2,-1)/2
が正解

どうしてもCEILING使うなら例外処理をすること

>>606様
そのような関数があるんですね。
無事出来ました。
ありがとうございました。
>>607様
返答ありがとうございました。

>>609様
エラーはしょうがないかと思って手で処理しようと思ってました。
＝ROUND(A1/5,0)*5か
＝ROUND（A1*2,-1)/2でやってみます。
ありがとうございました。

また複乳がポカやらかしたのかw

あぁ、じゃあ
B2=CEILING(A2+3,5)-5みたいな感じか

質問者ではなく回答者としてやっていくなら
そのくらい指摘される前に気付けるようになろうね

>>609
>>614
エラーになるか？
整数だったら答えは同じじゃね？
少数もありなら
=FLOOR(A2+2.5,5)と=ROUND(A1/5,0)*5は同じ答えだと思う。

>>601
おぉ、ありが�dございｍあすた。
海女損でOffice Home and Business 2010もポチってきますた。

でも、罫線とか、セルの塗り潰しとフォントの色の設定は2010のままなんですね・・・
罫線はともかく、色の並びは2003と同じにならないでしょうか？

>>616
俺は2010も持ってないし、このソフトを使ったこともないよ
作者に要望でも出せば作ってくれるかも知れないよ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 プルダウンリスト　コンボボックス

エクセルの入力規則-「リスト」でリスト化したものをA1に表示させています。
（たとえば、ばなな、みかん、りんご、などこれらをカンマで区切ります）
当然のことながら、A1を押すと下向き三角が出てきて

ばなな
みかん
りんご

と表示されて、好きなものを選択することが出来ます。
ここまでは問題なく分かるのですが・・・

そこで「ばなな」を選んだら「100」と数値が表示されるように
しかもA1セルにその表示がされるようにできますでしょうか？
（「ばなな」はプルダウンリストとして最初見るだけ、「ばなな」を選んだら
　　実際にA1セルに入るのは「100」という感じです）

match関数やらindirect関数やら試しましたが、ダメでした・・・。

家計簿を作っています

カテゴリの欄に"食品""日用品"等のジャンルが１０個ほどあります
その２つ右のセルに金額を書いています
　ｶﾃｺﾞﾘ　購入店舗　 金額
ーーーーーーーーーーーーーー
｜食品｜○○店 ｜ 600
｜文具｜△△店 ｜ 300
｜書籍｜☆☆店 ｜1200
･･･ ･･･ ･･･

そのカテゴリの合計値を別の場所に出したいのです
食品合計：\〜
文具合計：\〜
書籍合計：\〜

IFやVLOOKUPとSUMを併用したりしてもうまく出来ません
どうすれば上手く表示できますか？

>>618
無理ぽ。
特に、vbaが駄目って言うんだったら無理

>>619
sumifで出来るよ。
でも、一番楽なのはピボットテーブル。

>>618
B1セルにプルダウンリストを作って、A1セルに表示するしか

>>582
なるほどo
ご丁寧にありがとうございますo

>>615だがCEILING(-1,5)では2007と2010では動作が違うようだ。
2007だと#NUM!のエラーだが2010だと0になった。
複乳が反論しなかったということは2010は持ってないんだな。

> 2007と2010では動作が違うようだ。
そんなことは大抵の回答者は解ってる
CEILING､FLOORで､数値と基準値の符号違いが2010からエラーにならなくなったのは､
ちゃんと「更新された統計関数」として告知されてるんだから

おまえは今更そんな解かり切ったことをドヤ顔で言う前に
質問者の使ってるExcelのバージョンをちゃんと見ろ
何のためにわざわざExcelのバージョン書かせてるのか考えてみろ

2010を持っていようが､2007と2010の違いを知っていようが
質問者が2003使っていると言っている以上､2003(2007以前)でエラーになるなら
それは完全に間違いって話になるので反論の余地はない

おまえは複乳以下

すんまそん、ついでに先生教えてください。
CEILING.PRECISE関数ってどう使うのですか？

統計関数www

>>626
CEILINGと同じみたいね。

あごめん俺は先生じゃないからね。

>>626
どうもです。
先生にも是非聞きたかったです。

すんまそん、ミスりました。
上は>>628へです。

すまん628だが=CEILING(5,-5)とかで違うらしい。
=CEILING(-5,5)は同じだな。

レベルの低い奴が多すぎて困るな｡

レベルの高い先生にききたいです。
「更新された統計関数」ってどこで見れるんですか？

レベルの高い先生はおやすみになられたようです。
またお待ちしてます。

>>634
その一つ下の表に載ってるね｡
どうやら彼は表題を一つ読み飛ばしたようだ｡

>>618
カメラ機能を使えばそれっぽく出来る

>>634
同じく先生じゃないが
http://technet.microsoft.com/ja-jp/library/cc179167.aspx
CILINGについては「更新された統計関数」の下に書かれているが、そのように仕様変更されたとはどこにも書かれてない。
文面だけ読む誤差に強くなったように感じとれる。
「Excel 2010 CEILING 変更」などでググってもどこにもそのように変更されたなんて出てこない。
出てくるのはCEILING.PRECISEが追加になったってくらいだな。
俺も知らなかったから参考になったよ。
>>625はハッタリだろう。
知ってたら>>615にすぐに答えてるよ。
前からおかしいのが住み着いてるからねぇ。

>>638の方が余程「おかしいの」に見えるのは気のせいですか？

それは君がテンプレ廚の>>625だからです。

むしろ>>638が悔しくてたまらない>>615なんだろw
バカには構うな｡

また暴れてるなｗｗｗ

質問者のエクセルバージョンちゃんと見てませんでしたって素直に言えば終わる話なのになんで暴れるかねぇ

コテの複乳がコテの名誉のために反抗するならまだしも
名無しの奴なら旅の恥は掻き捨てならぬ
名無しの恥は掻き捨て的に考えて引っ込み
また別件で素知らぬ顔して出てくればいいのに
名無しなら素知らぬ顔してれば前件の恥なんてつつかれないんだから

なんか勘違いしてるねぇ。
まぁいいや。
とにかく俺には仕様変更は参考になったよ。

バカはなんでも自分は最初から知ってたことにできるからな
だからバカなんだよ

624が

僕は知らなかったんだけど､僕が使ってる2010からCEILINGの仕様が変わったみたいだね｡
でも質問者さんは2003使ってるから複乳の最初の回答式ではエラーになる｡>>615は間違いでした｡

と素直に言ってれば何の問題も無かった｡

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 オートシェイプ マクロの登録 Selection

オートシェイプにマクロの登録をした際に､そのマクロの中で
クリックされたオートシェイプを取得するにはどうしたら良いのでしょうか?
マクロの登録をしていないオートシェイプなら､クリックすると選択状態になり
Selectionで取得できますが､マクロの登録をすると､クリックしてもマクロの実行の直前に
選択がセルに移ってしまいSelectionでオートシェイプを取得できません｡
複数のオートシェイプにひとつのマクロを登録し､クリックされたオートシェイプに対して処理をしたいのですが｡

なんかもう疲れたが2010とそれより前のExcelを使える人教えてくれ。
Excel2010でA1に-1と入力してB1に=CEILING(A1,5)としてから保存してExcel2007とかで開くとどうなるの？
A1の値を-2にしたりB1の式を編集したりするとどうなる？

#NUM!エラーになる

>>650
�dクス

>>649
おれんとこじゃ-2にしたってそのまま0だ。
式の編集もF2でエンターとかじゃそのまま0だ。
B1を消してから再度同じ式を入力すれば#NUM!になった。

>>650
ほんとに#NUMになるの？

自動再計算が無効だと#NUMにならないかも

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否
質問です。VBA×数式のみで算出したいのですが

　　|A B C
---|-------------
10 |2 1 1
20 |3 3 2
30 |4 4 3

求めたい値（Y軸の10or20or30）

条件
X軸の値と表の中の値が分かっている場合。
【例1】
参考値2と、X軸がBの時
Y軸の20を求めたい。
【例2】
参考値3.5と、X軸がAの時
Y軸の30を求めたい。

可能でしょうか？お願いいたします。

>>652
そうですか。
人によって違うとは困ったものですね。
とにかくmicrosoftは仕様変更はきちんとアナウンスすべきでしょうね。
マイナスの値で使う人はあまりいないと思うけど。

>>653
俺は自動再計算はオンだが、A1を変更しただけじゃ再計算しないみたいね。
100にしてもそのまま0だったよ。

>>654
ぶっちゃけ意味がわからない

>>654
=INDEX(A$2:A$4,MATCH(2,INDEX(B$2:D$4,0,MATCH("B",B$1:D$1,0))))
ってことか？

>>656
有益な情報�dクス.

>>656
2002はA1変更で結果も変わる。

すまん>>658の式は駄目かもな。
Y軸がが1でX軸が"A"のとき#NUM!でよければいいんだが。

>>659
もうなんかグチャグチャだね
>>652と>>657は2007なの？

すまん、>>652と>>656な

>>661-662
そうだよ。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 ほとんどいいえ
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 COUNTIF , セル , 複数条件 ,

COUNTIF関数で、指定した範囲内で検索条件に一致したセルの個数を求めたいです。

例えば 1,2,3の使用してる携帯電話の使用機種が下記の列Bのとおりで、
検索条件は列C「一覧」にずらっと並べてます。
例では3機種だけですが、実際は例えば現在のドコモの現在の販売機種全部、といった感じです。

(例)
1 | A| B | C
----------------------------
2 |あ｜SH-01C ｜SH-01A
3 |い｜W62S ｜SH-01B
4 |う｜iPhone 3G｜SH-01C
...

COUNTIF関数で、=COUNTIF(B2:B4,"SH-01C")　
とすると、1 と結果が返ってくるのですが、
=COUNTIF(B2:B4,C2:C4)
とすると　0 となってしまいます。

複数の検索条件をセルで指定したい場合、どのように指定すればいいでしょうか？

また COUNTIF でなくほかの関数が適当であればあわせてご教示ください。

>>652と>>657だが大ウソだった。
セルの参照が１個ずれてたよ。
>650、>>659が正しいと思う。

>>665
了解です。

>>664
たとえば、セルC2（"SH-01A"）を使用している人の件数をセルD2に求めたければ
D2に次のように入力すれば出ると思いますよ。
=COUNTIF($B$2:$B$100,C2)

>>664
配列数式使う

=SUM(COUNTIF(B2:B4,C2:C4))

って入力したら､Ctrl+Shift+Enterで確定
式が { } で囲われればOK

>>667, >>668
ありがとうございます。
また、図がズレてしまって見づらく申し訳ございませんでした。

こちらの質問がまずかったんだと思います、
したかったことは >>668 さんのとおりでできました。

Ctrl+Shift+Enter と　配列数式、
ともに知らなかったので
今から勉強して蓄えられるようにします。

お二方ともありがとうございました！

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

A列に数字があり、B1に =IF(A1>=30,"","") と書いたらエラーになりました。
何で？

>>670
=ｌF(A1>=30,"","")
だったからとか。

>>654です。
>>657-658様
レスありがとうございます。
説明べたで申し訳ないです。

表の値を調べるとき、XとY値から表の値を参照すると思うのですが、
【例1】X=B　Y=20　なら　3
【例2】X=A　Y=30　なら　4

今回知りたいのは>>654の表で
X=B　参考値3　なら　Y=20
X=C　参考値3　なら　Y=30
X=C　参考値1　なら　Y=10
という時感じで、Yの値を数式で導き出したいのです。
※実際は参考値が2.5とか少数なので、完全一致じゃなく、直近上位で検索したい。

お手数おかけいたしますが、お分かりいただける方レスいただけると助かります。
お願いいたします。

>>671
すまん、何が言いたいのか理解できん。

>>670
2003だとエラーにならないよ

>>673
見たまんまじゃん

つーかむしろオマエ(>>670)の方が何言いたいのか理解できん

>>648
Application.Caller
でオートシェイプの名前がStringで返ってくるハズ

>>674
Excel2010って書いてるだろ！よく読め！

>>675
Excel2010でやってみたかい？

615か

>>615だけど迷惑かけた人ごめんね。
俺が謝罪の言葉を入れなかったばっかりに荒れてしまったらしい。
正直すまんかった。
これでこの件は終了な。

>>678
なんだ？おまえの見てなかったわ。

615だが>>677と混同されたのか？
変なのといっしょにされてもらっちゃ困るね。

まさかと思ってカマ掛けしてみたんだが､
この反応っぷりで疑惑から確信になっちゃった

>>648
http://homepage3.nifty.com/boole/kousure2.htm#no28
vba　クリックしたオブジェクト　などで検索されてみては

はぁ>>674にたいしてあんな言い草の>>670と一緒にされるとは...。
そんなものに2003も2010も関係あるわけないよ。
A1に数字が入ってたらエラーにはならない。
エラーになるのはA1がエラーのときだけだ。
だいたい>>670はエラーになるならエラー値くらい書け。

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

エクセルの入力規則-「リスト」でリスト化したものをA1に表示させています。
たとえば、りんご、みかん、バナナなど。
A1でりんごを選択した場合、次のA2では使用済のりんご以外をリストで表示したいのです。
みかん、バナナ。
さらにA3ではA1,A2で選択されてないものを表示。
VBAなしでやりたいのですが。

>>672
　　|A B C
---|-------------
30 |4 4 3
20 |3 3 2
10 |2 1 1
と並べ直して、2とBで求める値が20なら>>658の式を少し変えるだけだな。
=INDEX(A$2:A$4,MATCH(2,INDEX(B$2:D$4,0,MATCH("B",B$1:D$1,0)),-1))
元の表のままでってのは出来ないことはないが、複雑になるから断る。

>>670関連の回答では>>671は俺にも意味不明だが、>>674はまともな回答だな。
2010じゃなければ答えてはいけないような>>677の言い草はない。
もしかして682=678=670で、俺615は>>671か>>675だと思ってファビョってたのか？
入院をすすめる。

>>687
>>671は実際にやってみると解るよ。

アンカーミス
671は多分675だから
>>671か>>674だと思ってファビョってたのか？だな

>>688
実際に2010でやってみた。
A1がエラー値以外は文字列でも数値でも""が返る。
エラーになるならお前のExceが壊れてるんだよ。

>>690
ふつうは>>671をコピペすると解るが、エラーが出るのだが。
なぜならＩＦではなくてｌＦだから。

解らないかもしれないからカタカナで書くとね、
イフじゃなくてエルエフという記述がされているということ。

>>691
それをもったいぶらないで早く書けよ。
疲れるよまったく。

いいaha体験が出来たね！

>>685
A列はC:Cの範囲でリストを作成
B列に値、りんご、みかん、ばななと入ってるとして
C1=IF(COUNTIF(A:A,B1)>=1,"",B1)

ｲｲﾊﾅｼﾀﾞﾅｧ

スレチな質問でなければ良いのですが・・・
自分は今からVBAの入門書の一ページ目を開こうかという技能レベルで
今会社のPCのほとんどがWindowsXPsp3＋Excel2002（たぶんOfficeXP）です
自宅ではWindows７の64bit版でして、これからエクセルを単体で購入したいのですが
エクセルのどのバージョンを買うのがいいのでしょうか
第一目標は”会社のエクセル2002で動くごく簡単なVBAを覚える”事です
2002と2007・2010では数年の開きがあるのでVBAの仕様がガラリと変わっていないか心配です
また背伸びして買った64bit版の自宅PCで古いエクセル2002（+VBA）が正常に動くのかも心配です
両方買うことも考えたのですが両方を共存させるのは難しい・面倒だと聞きます
どのバージョンを買うのが無難でしょうか

>>692
エルじゃないだろ？

>>698
コピペしてlと比べたら違うね。
ということは>>671はエルじゃないのは分かってるから>>691とは違う人か。
違う人に>>693は的外れだったな。

>>697
安く売ってるなら2002当たりでいいと思うけど、多分売ってない
ヤフオクなんかはコピー品が多いのでやめたほうがいいと思う

2010のvbaも基本的な機能ならほとんど変わってないので、2010でいいと思う

>>700
ありがとう！早速2010買います

>>686様
ありがとうございます。
無事解決です。
今回私が使う表も降順でしたので、>>672タイプで大丈夫でした。

とっても助かりました。

【1 OSの種類 　 　 　 　 .】 WindowsVista
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 add phonetic フリガナ　ユーザーフォーム　excel VBA

sheet1はお客様名簿、sheet2はお客様カードです。
ユーザーフォームのお客様カード作成ボタンを押すと、sheet2の表の中に名簿の情報を転記します。
sheet1のB列に名前（山田太郎）、C列にフリガナ（ヤマダタロウ）があります。
カードの名前欄に名前とフリガナを表示したくて以下のようにしてみましたが、
フリガナだけが表示されません。
どこを直したらいいのか教えて頂けませんか？

n = target.Row
With sheet2.Cells(6, 3) 'カードの名前欄
.Value = sheet1.Cells(n, 2).Value
.Phonetics.Delete
.Phonetics.Add 1, Len(.Value), sheet1.Cells(n, 3).Value
End With

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 ある程度
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 セル　色　色なし

Excelの挙動が変です。
まず、以下のファイルを見てもらえますでしょうか。
http://2sen.dip.jp/cgi-bin/upgun/up1/source/up56980.bin

ダウンロード後、ファイルの拡張子　binを　xlsに変えてから実行してください。お手数ですがお願いします。

でそのないようなのですが、
セル46、A　（★↓の下のセル）なんですが、何も入力してないとセルの色は無色なのに、
文字を何か入力すると何故か色が変わります。
そのセルの書式設定で、セルの色を「色なし」にして、無色に戻しても、セルの入力内容を削除→また文字を入力　とやると
やっぱり色がつきます。
これはいったいなぜなのでしょう？？？

windowsXP　の　Excel2003です。

>>703
読むのめんどいから個人情報消してブックごとアップしてほしい
>>704
2002だとならない、残念。マクロも登録してないようだし、原因はｻｯﾊﾟﾘわからん
ttp://www.dotup.org/uploda/www.dotup.org1534624.xls.html
2002で保存しなおしたけどやっぱりなるのかな。
なるなら2003のバグか仕様か、他の場所にマクロが登録してあるか

>704
ファイルは見てないけど、　セルの書式　ではなく、　条件付書式　は調べてみましたか？

>704
自分のＰＣもxp(sp3)、Excel2003ですが、実際にダウンロードしてみたら・・・・・再現しました。
A44セルと同じく、紫色になりますね。条件付書式はありませんでした。　何なんだろう？

>>704-705
ウチも2002(SP3)だけどなるよ。
文字だとならないけど、数値だとなる。
文字を入れてから、数値を入れてもならない。
データを消去してから数値を入れると、やっぱりなる。

他のセルから書式をコピーするとならなくなる。
他のセルに書式をコピーしてもそのセルではならない。
その下のA47も今のデータを消去するとなる。
値貼り付けではならない。手入力するとなる。
ほんと、わからん。

思い出した。Excelのおせっかい機能（の誤作動？)と思われます。

どこか適当なところに5行以上の表（列数は任意）をつくり、
上から順に「表の下まで」適当に数字を入れてみてください。
罫線のなかった場所にまで罫線が自動的に引かれます。
元の表にセルの塗りつぶしがあれば、塗りつぶしもなされます。

本来なら、Ａ４５セルは塗りつぶしがないので途切れるはずですが、
データ的には連続しているので書式が引き継がれたものと思われます。

皆様ありがとうございます。
自分固有の問題ではなかったのですね。謎です。


私の場合、問題のセルに別のセルの書式をコピー＆ペーストしてもやっぱりなります。

あと、ALT　E→A→F　で問題のセルの全書式をリセットしてもやっぱりなります。

また、その問題のセルを含む表をまるごとコピーして、別の新しく作ったファイルに貼り付けても同様になります。


全く謎ですorz

ttp://www.dotup.org/uploda/www.dotup.org1534777.jpg.html
私だけならないというのも不思議な話ね

追加　表じゃなくても再現します。罫線をひかず、セルの塗りつぶしだけでも再現します。
3行以上のデータ（数字だけじゃなく、文字でも）を上から連続して入力し、既入力の
１個のデータを飛ばして入力しても再現するようです。
２個以上既入力のデータがあると途切れるようです。

原因発見

ツール＞オプション＞編集のタブ　で、「データ範囲の形式および数式を拡張する(L)」のチェックをはずしてみてください

>>709-712
どうもありがとうございます。
なるほど、言われてみれば確かに過去にそういう経験あったような気がします。
今回のもそういうことなのですね。

>>704のファイルの場合、上の紫色の部分のセルの罫線を解除すると、
問題は起こらなくなるようです。


しかし、ほんとに余計なおせっかいな機能ですね・・・・・。

あぁ、私のは最初からチェックが外れていたわ
便利なような、不便なような・・・

このお節介機能　と　作業グループ状態で保存したときに自動再計算機能がオフになる件　は、
テンプレートに追加しといた方がいいのかな？

こういう初心者が混乱する機能はデフォルトがオフであるべきだよな。

初心者って偉そうに書いちゃったけど、俺も知らなかったけどｗｗ

>>705
レスありがとうございます
帰宅が遅れてお礼が遅れました、申し訳ないです

今日担当者に急かされて、フリガナの件は細い行を作って急遽対応することになりました…
大変失礼しました

>>685を自分も考えてたんだけど､>>695だと
┌───
│りんご
│みかん
│バナナ
└───
からみかんを選ぶと
┌───
│りんご
│
│バナナ
└───
となり､更にりんごを選ぶと
┌───
│
│
│バナナ
└───
ってなるよね？
質問者はこれでいいのかな？

┌───
│りんご
│バナナ
└───
┌───
│バナナ
└───
ってしたかったんじゃないの？

>>720
配列数式廚が大喜びしそうだなｗ
へんなことあんま教えちゃいけないと思うなぁ。
ほんとはVBAでやるべきとこだからな。

>>695
お礼遅くなりましてすいません。
ありがとうございました。

>>720
できれば空白ないほうが良いです。
可能なら教えて欲しいです。

>>722
B1=りんご､C1=みかん､D1=バナナ
の3項目の場合､

A1:A3に入力規則のリストで元の値=OFFSET(B1,0,0,1,4-ROW(A1))
B2:D3=INDEX($B1:$E1,1,SMALL($F1:$H1,COLUMN(A1)))
F1:H3=IF($A1=B1,4,COLUMN(A1))
で､必要に応じてB:H列を非表示にする｡

下で選択したものは上のリストに反映されないので､
質問内容の通りA1､A2､A3と上から順に選択するように｡

因みにF1:H3=ってのは､
F1に式を入れて､3行目(F3)までフィルコピー､更にF1:F3をH列(H1:H3)までフィルコピーでもいいし
F1:H3を選択(F1アクティブ)して数式を入れ､Ctrl+Enterで確定しても良い｡

Ctrl+Enterでの確定は範囲への一括入力で､Ctrl+Shift+Enterの配列数式確定とは違う｡


あと､項目数が増える場合の注意は､式の中に2カ所有る「4」は項目数+1
=OFFSET(B1,0,0,1,【4】-ROW(A1))　=IF($A1=B1,【4】,COLUMN(A1))

右の表の入力範囲は､3行3列と行列共に項目数分､
左の表は､1行目の項目入力(B1:D1)と2行目以降の数式(B2:D3)合わせて3行3列､
右の表と左の表の間は1列空けて､左の表で使ってるINDEXの第一引数はその空列含めて指定すること｡

つまり項目数が5なら
A1:A5に入力規則のリストで元の値=OFFSET(B1,0,0,1,6-ROW(A1))
B2:F5=INDEX($B1:$G1,1,SMALL($H1:$L1,COLUMN(A1)))
H1:L5=IF($A1=B1,6,COLUMN(A1))

　 　 　 　 |＼　　 　 　 　 　 ／|
　 　 　 　 |＼＼　　 　 　 ／／| 　　　
　　　　 　 : 　,>　｀´￣｀´　<　 ′　　訳がわからないよ
.　　　　 　 Ｖ　 　 　 　 　 　 Ｖ　　　
.　　　　 　 i{　●　 　 　 ●　}i 　　　
　　　　 　 八　 　 ､_,_, 　 　 八 　
. 　 　 　 /　个 . ＿　 ＿ . 个 ',　　　
　　　＿/ 　 il 　 ,'　　　 '.　 li　 ',＿_

勉強しようね

わざわざAAまで使って何したいのか訳がわからないよ｡

なんで縦にしないんだろうね？
いずれにしてもSMALL使った式は脳味噌がSMALLな人が使うってのが定説だな。
ROWも同じ。

行単位でまとめてあるだけだろjk

リストが縦配置なら作業セルは横配置にして行単位にまとめ､
リストが横配置なら作業セルは縦配置にして列単位でまとめるのが自然｡
DBと表計算ソフトを区別できないSMALLな脳味噌じゃ理解できないか？


○
リスト1　リスト1の作業セル─────→
リスト2　リスト2の作業セル─────→
リスト3　リスト3の作業セル─────→


○
　　　リスト1　　　　　　　　リスト2　　　　　　　リスト3
リスト1の作業セル　リスト2の作業セル　リスト3の作業セル
　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　↓　　　　　　　　　　↓　　　　　　　　　　↓


×
リスト1　リスト1の作業セル　リスト2の作業セル　リスト3の作業セル
リスト2　　　　　│　　　　　　　　　　│　　　　　　　　　　│
リスト3　　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　　　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　　　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　　　　　　│　　　　　　　　　　│　　　　　　　　　　│
　　　　　　　　　↓　　　　　　　　　　↓　　　　　　　　　　↓

無意味に配列数式を使っていたり､不適切な式での回答が有れば
「こうやるといいよ」と具体的な回答込みで指摘するのは良いが
配列数式やSMALL関数に限らず､何らかの機能を使うこと自体を
根拠や､よりすぐれた解法を示さずに厨呼ばわりしたり小馬鹿にする奴は､
知ったかぶって得意げになりたいだけの淋しい奴

そう､能力の低さから実社会で得意げになれる事柄が無い故に､
匿名掲示板で虚勢を張って悦に入ってる哀れな奴だ
こういう奴は､ほんと始末に負えないね

y

e

p

>>730
まったくだね。
>>724も>>729も君だよね。
いい回答だよ。

勘違いしてる？

あれ？違うの？
口だけのやつと違っていい人だとおもったんだけど　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

勘違いしてる？

アナタ間違い僕キチガイそしてこいつは勘違い

そんな君たちは場違い。↓でやってくれ。

【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://hibari.2ch.net/test/read.cgi/bsoft/1151651536/l50

は？上手い事言えたつもりでいるの？このどや顔のアホ↑

悔しかったの？

>>721,>>728
配列数式も､SMALL関数も､ROW関数も使わず
空白も出来ない>>685への模範回答ﾏﾀﾞｰ?

>>729
意味不明
とにかく横にしてる>>723は不自然。
そもそもA3で何もリストに出てこないようだが。

悔しかったの？

いや、君には勝てないから諦めてるよ。

>>743
配列数式も､SMALL関数も､ROW関数も使わず
空白も出来ない>>685への模範回答ﾏﾀﾞｰ?

×意味不明
○ボクのオツムでは理解不能でちゅ

凡人にはハイレベルな>>729は理解できないんだよ。
ましてや>>723はハイレベルすぎてかなり難しい。
凡人は元データから不一致データを取り出して、そこを参照することをまず考えるからね。

>>748
意味不明w

だから頭のよすぎる人は凡人の考えは理解できないんだよ。
自分を誇りなさい。

では更に頭のよすぎる>>721,>>728
配列数式も､SMALL関数も､ROW関数も使わず
空白も出来ない>>685への模範回答ﾏﾀﾞｰ?

諦めろ。
いくらあおっても出てこないから。
実は関数は知らないんだよ

実のところ､出てきてはいるけどね(￣ー￣)ﾆﾔﾘｯ

おうできる人がいるのか
俺に関数を教えてほしいな
俺はvbaしか知らない品

>>721,>>728は出てきてはいるけど
>>721,>>728の本質は>>730なので
答えられずに他人のフリして負け犬の遠吠え振りまいてる｡

>>752
ttp://samurai51.cocolog-nifty.com/photos/uncategorized/2010/08/21/2.jpg

さて寝るとするか、遊びは終わりだ

弄ばれ疲れたか？

　 　 　 　 |＼　　 　 　 　 　 ／|
　 　 　 　 |＼＼　　 　 　 ／／| 　　　
　　　　 　 : 　,>　｀´￣｀´　<　 ′　　釣れた釣れたw
.　　　　 　 Ｖ　 　 　 　 　 　 Ｖ　　　
.　　　　 　 i{　へ　 　 　へ　}i 　　　
　　　　 　 八　 　 ､_,_, 　 　 八 　
. 　 　 　 /　个 . ＿　 ＿ . 个 ',　　　
　　　＿/ 　 il 　 ,'　　　 '.　 li　 ',＿_

後釣り宣言は滑稽ですね｡

スレと関係ないんだけどさ、俺「釣り」とか「釣り師」っていうのは、

　釣り師 ↓　　　 　
. 　　　　　　　　　／|　←竿
　　　　　○　　／　 |
.　　　　（Vヽ／ 　 　|
　　　 ＜＞　　　　　|
ﾞ'ﾞ":"''"''':'';;':,':;.:.,.,＿_|＿＿＿＿＿＿＿＿＿
　　　　　　　　 　 　 |
　　餌（疑似餌）→.§　>ﾟ++<　〜
　　　　　　　　　　　　　　　　　の組み合わせだと思ってたんだけど、

最近自称釣り師がダイレクトで自分の本音を攻撃されて「釣れた！」とか
言ってるの多いよね。
　これは、どっちかというと、



　　　 　 　 　 ,〜〜〜〜〜〜 、
|＼　　　　　（　釣れたよ〜・・・）
|　 ＼　　　　｀〜〜〜v〜〜〜´
し　　 ＼
ﾞ'ﾞ":"''"''':'';;':,':;.:.,.,　 ヽ○ノ
　　　　　　　　　 ~~~~~|~~~~~~~￣￣￣￣￣￣￣
　　 　 　 　 　 　 　 　 ト>ﾟ++<
　　　　　　　 　 　 　 ノ）

かと思うんだけど、どうよ？