Excel総合相談所 101

こんなデータがあります

うんこ　1
うんこ　2
しっこ　3
ちんこ　4
まんこ　5
うんこ　6
まんこ　7
ちんこ　8
ちんこ　9
うんこ　10

これにうんこでフィルターがかけたらこうなります。

うんこ　1
うんこ　2
うんこ　6
うんこ　10

この状態で別シートの下記データを第3列にコピペしてやります。

うんこ1号
うんこ2号
うんこ3号
うんこ4号

<つづく>

そうすると、こうなるべきだと思いますよね？(★)

うんこ　1 うんこ1号
うんこ　2 うんこ2号
うんこ　6 うんこ3号
うんこ　10 うんこ4号

しかしそうならず、こうなるんですよ。

うんこ　1 うんこ1号
うんこ　2 うんこ2号
うんこ　6
うんこ　10

試しにフィルターをほどいてやるとこうなってました。

うんこ　1 うんこ1号
うんこ　2 うんこ2号
しっこ　3 うんこ3号
ちんこ　4 うんこ4号
まんこ　5
うんこ　6
まんこ　7
ちんこ　8
ちんこ　9
うんこ　10

(★)を実現するにはどうしたら良いでしょうか？

>>161
前スレの>>760

>>153,156-157
それExcelの質問じゃないから余所でやってくれ

>>163
前スレで解決してないし、
実際今の瞬間でも問題が解決してないから
質問したのですが。

>>165
こうなるべき、ってのはあなた独自の考えであって、それがExcelの仕様と一致していないだけです
1セルずつ手作業でコピペするか、VBA使って貼り付ければいいと思いますよ

>>166
仕事で毎回こういう作業があるんだ。
もし1回限りですむなら手作業コピペですませるし
2chに粘着しないよ。

ちなみに毎回発生する作業というのは、
ある条件で抽出させてでてきたデータに
別で用意したデータ(これすら10行以上もある)をかぶせるようにしてコピペで更新する作業。

>>165
数個なら手作業で貼るのが一番早い
大量にあるなら作業列にVLOOKUPとかVBAとか

>>168
非表示のセルがあるとコピペが思った通りにできないのはExcelの仕様
同じ作業を毎回やるんならVBAでそういうのを作っとけ

>>168
手作業が無理ならVBAでやればいいし、VBAがわからないならVBAを勉強するかあきらめるか

>>170
VBAで可視セルを扱うにはどういう機能またはプロパティまたはメソッドを使いますか？

>>172
Range.SpecialCells(xlCellTypeVisible)

ググればすぐ出てくるようなのをここで聞くほどバカなことはないｗ

見えないセルって
(1)フィルターかけてるとき
(2)非表示にしてるとき
以外にありますか？

また、(1)(2)で各種操作にて振る舞いの違いはありますか？

>>174
初心者は適切な検索キーワードすらわからないもんだよ
誰にでもそういう時期はあるし、あなたにもそういう時期はあったでしょ？
簡単にググって出てくるなら検索キーワードを教えてあげれば質問者のスキルアップにも繋がるよ

>>172
ググるのもいいけど、マクロの記録もいいですよ
だいたいそれで傾向と対策がわかります

>>175
ない

>>178
ウソいうのやめたまえ
(1)はコピペはそのままだけど
(2)のコピペは不可視セルまでコピペされる

質問です。2007です。
さてsubstituteで例えば1匹を1にしたのはいいのですが
数字として認識せず、セルの左側に文字として扱われていて
数字の計算が出来ないのですが、どうすれば数字として認識されるでしょうか？

>>175
セルの幅や高さを0にしても同じ結果になる
幅を0にしてからプロパティを調べるとHidden属性がTrueに変わってる

Cells(1, 1).RowHeight = 0
Debug.Print Rows("1:1").Hidden

>>180
計算できる

A1　1匹
B1　=SUBSTITUTE(A1,"匹","")
C1　=B1+2

で、ちゃんとC1には3と表示される

>>180
Substituteはわからないけど、
セルの書式設定を開いて
0"匹"
でぉｋ？

ttp://i.imgur.com/cLWhR.png

もともとのデータに匹が入っているようであれば、置換で匹を削除すればただの数字になるはず

>>182ありがとうございました。
直にＢ1＞3とかだと計算できないみたいだったので
一度Ｃ1に出してから比較しました。　ありがとうです。

>>183ありがとうございます。
ユーザー定義でつくればいいんですね。
勉強になりました。やってみます。

>>164
Excelの質問だと思ってますが、違うなら誘導してください。

>>153
VBAで
If (moji Like "り*ん*ご") Then
　'なんらかの処理
End If

07です。
a1:a5の範囲でみかんが何個あるかなら=countif(a1:a5,"みかん")でいいですが
b1がみかんじゃなくりんごだとしたら=countif(a1:a5,"b1")にしたら出来ないのですが
何がまずいんですか？

>>186
>検索したい文字に対して、半角スペース、全角スペース、アンダースコアが
>入っていても見つけるようにするにはどうすればいいでしょうか？
Excelは一切関係していないと思うけど？
2chなら http://toro.2ch.net/tech/ とか
OKWaveとかYahoo!知恵袋とか適切なところで聞いた方がいい

ダブルクォーテーションで囲むなよｗ

その場合で言えば
"みかん"　なら「みかん」という文字を検索するが
"b1"　なら「b1」という文字を検索する

a1からa5の中にはb1という文字が入っているかい？
b1セルの内容で検索したいなら=countif(a1:a5,b1)だろうな

>>188
=countif(a1:a5,b1)

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

http://www.vector.co.jp/soft/win95/business/se419604.html
このエクセルブックの項目の名称を変更したいのですが、
どうすれば変更することができるのでしょうか・・・
くだ質で本当にすいません。

>>191サンクス　"b1"でやっていましたｗ　すいません

>>180
VALUE関数を使って文字列を数値に変換すればいい

>>192
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■　本システムのカスタマイズ　　　　　　　　　　　　　　　　　■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■

●カスタマイズの請け負い
本システムのカスタマイズをご要望の方は、下記のサイトをご参照くだ
さい。有料にて請け負い致します。

◆http://4--d.com/


●システム上の禁止事項
本システムでは、下記のことは行わないでください。もし行うと、正常
に作動しなくなります。

◆各ワークシートのシート見出し名は、変更しないでください。
◆[フォーム]シートのセルに設定されている「名前」は、変更や削除を
　しないでください。
◆[テーブル]・[リスト]シートの２行目の「セル1」などの名称は、変更
　や削除をしないでください。

何？
>>192って説明も読まずに勝手に改ざんしようとしてんの？
人間として最低のクズだな
死ねばいいのに

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

シートに入力した値を自動で源泉徴収してくれる
マクロを作りたいんですが、どうすればできますでしょうか。

>>197
http://vbae.odyssey-com.co.jp/study/

>>198
ＶＢＡでの回答は否です

>>199
だから独学でVBAを覚えるか誰かにVBAを教わる手段を回答したまで

>>197 >>199
VBAってのはマクロを作るための道具のことだから、VBAを知らずにマクロを作るのはほぼ不可能
「マクロの記録」って手もあるけど、できることが非常に限られる
まずはVBAを勉強してください

>>197もゆとりってレベルじゃないなｗ
他人に迷惑だけかけて当然のように振る舞うとか
さっさと死ねばいいのに

>>202
できないんならできないっていえよ

ﾜﾗﾀｗ
そりゃできるわけねーだろｗｗｗｗｗ

おまえちょっと江頭さんに
生まれたときから目が見えない人に、
空の青さを伝えるとき何て言えばいいのか
教えてあげてこいよｗｗ

生まれつき足がないやつに自転車をプレゼントしてみるか？ｗｗｗｗｗ
それくらい不可能なレベルだってことくらい気付けバーカ

できるっちゃできるけど時間と労力がかかる上
まず拾ってきたほうが早くて正確な上
それでもつくろうとするなら関数をいくつも覚える必要があるし、
年によって変わるものを作るセンスも必要
そしてそれを教えるのはさらに無駄な労力と言えよう
それでもやりたいというならこのスレで回答し続け、他の人の回答と照らし合わせるとイイ
センスが勝手に磨かれるから

>>145
3桁増加分数のデフォルト書式設定は　　# ???/???
これを ?/???　に変える

>>189
お前、ダメだわｗ

一般的には常識とされている、
　真実は一つだけ
　怒りは自然な感情
　戦争・テロは無くならない
　死刑には殺人の抑止力がある
　虐められる側にも虐めの原因がある
　自己チューな人間ほど自己愛が強い
などの間違いを解説ちう m9(｀･ω･)ﾋﾞｼ
義務教育では教えない最新哲学　　感情自己責任論

>>118>>119
回答をありがとうございました。皆さん、、、、頭のいい方たちなのですね

二つ前の意味が少々わかりかけてきましたが、ということは、、職場の別の人がみつけた式
＝index(M5:W5,match(2,O5:W5,0))では、最初のＭ５からＷ５はＵ５にならないと
おかしい、ってことでしょうか？今のところ、Ｗ５まで引っ張っても支障はないようですが、
こちらはどうして左に二個ずらした式ではないのでしょう？？

>>209
“午後”という値はO〜W列のどこかに入っていて、
取得したい値は“午後”の文字の2つ左のセルだからM〜U列に入っているってことですよね？

であれば、“午後”を探索するMATCHの範囲は"O5:W5"で
対象を求めるINDEXの範囲は"M5:U5"になりますよね？
"V5:W5"に求める値が入っている可能性はゼロなので範囲に含める意味がないと思います

質問の意味(というかどこに疑問をお持ちなのか)があんまりよくわからないです
単なる算数(足し算引き算)の問題だと思うのですが？

125です。
127さんのマクロで動作しましたが、該当するデータがないとき
全ての行が隠れてしまいます。
該当データがないときは、全ての行を出すにはどうすればいいでしょうか？

ExcelViewerのインストールに失敗。
アンインストールも修復もエラーが出るのを確認して3分で解決。
正常にインストールできたw

>>211
key = "*" & InputBox("検索キーワード") & "*"

Set Obj = Worksheets("Sheet1").Range("e4:g9").Find(key)
If Obj Is Nothing Then
Range("G2").Select
Selection.AutoFilter Field:=1
Exit Sub
End If

With Sheets("Sheet2")

か
key = "*" & InputBox("検索キーワード") & "*"

Set Obj = Worksheets("Sheet1").Range("e4:g9").Find(key)
If Obj Is Nothing Then
Exit Sub
End If

With Sheets("Sheet2")

>>213
度々ありがとうございます。

【1 OSの種類 　 　 　 　 .】 Windows7 HOME 64ビット
【2 Excelのバージョン 　 】 Excel2010

以前のバージョンだとファイル→プロパティでブック全体に対するコメントを
書くことが出来ましたよね？

2010だとそういうのはもう出来ない？

>>215
ファイル→情報

>>216
遅くなりましたが、ありがとう。見つかりました。

質問です
データの入力規制でリストで[　,0,1,2,3,...]としたいのですが
そのセルを[ ]ではなくて未入力の状態をリストに入れるにはどうしたらよいのでしょうか？

なんか選択しちゃってたらDelete押せばぉｋ
未入力状態に戻る

>>218
“',0,1,2,3”にするとか
セルに値を並べておいて空欄のセルも含めた範囲を「元の値」に設定するとか

>“',0,1,2,3”にするとか
これがよさそうですが'は空白扱いですか？それとも'？

>>221
やってみれば分かるだろ、バカか？それとも？

>>222
すみません。バカです。

でも分からないならレスしないでもらえませんか？
そういうレスする暇があるなら、まずは試してから結果を書き込むべきだと思います。
あなたは助け合いという言葉を知らないのですか？

>>223
じゃあとっとと試して結果を報告しろよ
それくらいバカでもできるだろ

>>224
パソコンにExcelが入っていないから試せないんです。
試せるなら試してます。それくらいバカでもわかるでしょう？
分からないならレスしないでもらえませんか？

さすがにエスパーでもないとそれはわからんわ
ましてやバカに───

>パソコンにExcelが入っていないから試せないんです。

ﾜﾛﾀｗ
俺もﾊﾞｶな様だｗ

>>225がわからなかった奴はエスパー失格だな

エスパー二級なのでわかりません
初段以上の人お願いします

読んでも全く意味が全く分からない質問に対して、回答する人をみかけるんだ。
エスパー７級(´・ω・｀)

>>230
あなたの文章も意味がわからないのだが

エスパー試験だ

Excel2007です。
マクロでインプットボックスを出したとき、
強制的に半角英数字モードにするには？

>>233
この辺が参考になるかも
http://officetanaka.net/excel/vba/tips/tips16.htm

もしくはInputBoxに代わるものをフォームで作ってもいいかもです

ま、Excelと関係ないのでスレチですね

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

紙台帳に記入されている月間の労働時間を
Excelに入力しているのですが丸める必要があるため以下の計算式が入っています。
しかし、月間の労働時間が丸めて24:00以上になると0:00になってしまいます。
これを回避するにはどのような式に直せば良いのでしょうか？
宜しくお願いします。

ルール：1分〜19分は切捨て、20分〜39分は30分(0.5時間)、40分〜59分は60分(1.0時間)
計算式：=IF(MINUTE(A1)<=19,TIME(HOUR(A1),0,0),IF(MINUTE(A1)>=40,TIME(HOUR(A1)+1,0,0),TIME(HOUR(A1),30,0)))

HOUR(A1)だと時間部分しか取り出さないのでTEXT(A1,"[h]")にするとか

>>236
エラーになっちゃいました。
けど、ご回答ありがとうございました。

>>235
TIME関数は1日を「1」とするものなのでそもそも24時間以上の計算はできない
日数分のカウントをする作業列が必要
と、おーけーうぇぶが引っかかりました

ひとりごとに1シートか１テーブル使って、出勤時間をカウントして計算させるんじゃダメですかね？
ttp://i.imgur.com/ENS2A.png

>>238
なるほど。そういうことなんですね。
納得しました。ありがとうございました。

質問です。2010でw7を使っています。
エクセルブックで例えばAというフォルダーのabc.csvという
ファイル内をコピーして
sheet1のa1に貼り付けるってのはマクロで出来るもんでしょうか？
普通にファイルをコピペしてa1に貼り付ければいいんですが
量が多いとそれも手間が掛かりますので。お願いします。

>>240
マクロ(VBA)で実現可能です
以下のキーワードで検索してみてください
excel vba csv 読み込み

>>235
時間部分だけを取り出したいのであればシリアル値にして切り捨ててもいい
ROUNDDOWN(A1*24,0)

名簿と対応する項目Ａの一覧をネットでやり取りしたいのですが
名簿の方は個人情報なので、一人一人に番号をふってローカルにおいて
それを項目Ａのファイルと対応させることで利用したいのですがどうしたらいいですか。
上手く説明できてると思えないですが。
001;　A山A男;　パンツ
002;　B川B子;　シャツ
003;　C野C助;　クツ

>>243
VLOOKUP関数でどうでしょう

>>243
読み取りパスワードかけてさらにzip圧縮時にもパスワード

>>244
感謝！！！
でけました。ありがとうございます。

>>245
それも必要ですね。ありがとうございます。

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

セルの書式設定でユーザー定義について質問です。
下記条件を満たす定義を作成したいのですが上手く出来ません。
1.小数点4桁まで表示
2.マイナスは「▲」で表示
3.0.0000の場合は0を表示
4.小数部の不要な0は出さない(1.2340なら1.234）

設定したのは「#,##0.####;"▲"#,##0.####」です。
これだと小数部が全て0の場合に小数点が表示されてしまいます。
例：999.0000→999.
この小数点を表示しない方法はありませんか？

よろしくお願いします。

234>>

With ActiveCell.Validation
　　　.Add Type:=xlValidateInputOnly
　　　.IMEMode = xlIMEModeOff
End With

って書いてみたけどエラーでだめだった。

>>247
表示形式だけでは無理。別セルに関数で工夫しないとダメ

>>249
ありがとうございます。
具体的にどの関数を使えばいいのか教えて貰えますか？

自分で考えつくのは、一度テキスト形式に変換してSEARCH関数で小数点の位置を検索、
MIDBで小数点の位置+1に値があればそのまま、なければMIDBで
1〜小数点の位置-1を取得してVALUE関数で数値に戻す。

ってややこしくしすぎでしょうか。

>>248
http://www.isa-school.net/map/funabashi/2009/06/14/inputbox%E3%81%A7ime%E5%88%B6%E5%BE%A1%E3%80%90vba%E3%80%91/

>>250
>>249じゃないけど
a1 - int(a1) = 0
だと小数点以下の数値はないってことになる。これでif分岐、text関数に放り込むのがいいんじゃないかな

>>250
なんか美しくないな…
=IF(A1<0,"▲","")&TEXT(ABS(A1),IF(TRUNC(A1)=A1,"#,##0","#,##0.####"))

>>247
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Dim r As Range
For Each r In Target
If IsNumeric(.Value) Then
If Int(.Value) = .Value Then
.NumberFormatLocal = "#,##0;""▲""#,##0"
Else
.NumberFormatLocal = "#,##0.####;""▲""#,##0.####"
End If
Else
.NumberFormatLocal = "G/標準"
End If
Next
End With
End Sub

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

A1からA6まで数式が入っていて、その結果、以下のように
A1〜A3までは数値が表示され、A4〜A6までは何も表示されていなかったとします。

A1　100
A2　200
A3　300
A4　
A5　
A6　

この時、数値の入っているセルの数を数えたいのですが

=COUNTA(A1:A6)

とすると6が帰ってきます。
そこでISNUMBER()がTRUEであるようなセルだけ数えるように

=COUNTIF(A1:A6,ISNUMBER(A1:A6))

みたいな式を作ることはできないでしょうか。
ISNUMBER()の結果を先に用意しておく作業用の列は使いたくないです。

>>255
=COUNT(A1:A6)

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

D2〜E3のセルに入れた文字で始まるものをオートフィルタで抽出するとき、
D2に文字を入れ、E2を空白にしてもE列が無視されてしまいます。
改善策を教えてください。

Sub 抽出する()
d2 = Range("D2").Value
e2 = Range("E2").Value
d3 = Range("D3").Value
e3 = Range("E3").Value

If d2 <> "" Then
　Range("B4:K4").AutoFilter Field:=3, Criteria1:="=" & d2 & "*"
　If e2 <> "" Then
　　Range("B4:K4").AutoFilter Field:=4, Criteria1:="=" & e2 & "*"
　End If
Else
　Range("B4:K4").AutoFilter Field:=3, Criteria1:="=" & d3 & "*"
　If e2 <> "" Then
　　Range("B4:K4").AutoFilter Field:=4, Criteria1:="=" & e3 & "*"
　End If
End If
End Sub

>>257
仕様がわからないのでなんとも答えようがない
以下、それぞれどのような期待結果を想定されているのか教えてください
D2：有、E2：有、D3：有、D4：有 ⇒
D2：有、E2：有、D3：有、D4：無 ⇒
D2：有、E2：有、D3：無、D4：有 ⇒
D2：有、E2：有、D3：無、D4：無 ⇒
D2：有、E2：無、D3：有、D4：有 ⇒
D2：有、E2：無、D3：有、D4：無 ⇒
D2：有、E2：無、D3：無、D4：有 ⇒
D2：有、E2：無、D3：無、D4：無 ⇒
D2：無、E2：有、D3：有、D4：有 ⇒
D2：無、E2：有、D3：有、D4：無 ⇒
D2：無、E2：有、D3：無、D4：有 ⇒
D2：無、E2：有、D3：無、D4：無 ⇒
D2：無、E2：無、D3：有、D4：有 ⇒
D2：無、E2：無、D3：有、D4：無 ⇒
D2：無、E2：無、D3：無、D4：有 ⇒
D2：無、E2：無、D3：無、D4：無 ⇒

また、「無視されてしまいます」の意味がわかりません
何が誰にどのように無視されるのかを具体的に書いてください

>>257
思いっきり間違えた・・・>>258は破棄でお願いします
仕様がわからないのでなんとも答えようがない
以下、それぞれどのような期待結果を想定されているのか教えてください
D2：有、E2：有、D3：有、E3：有 ⇒
D2：有、E2：有、D3：有、E3：無 ⇒
D2：有、E2：有、D3：無、E3：有 ⇒
D2：有、E2：有、D3：無、E3：無 ⇒
D2：有、E2：無、D3：有、E3：有 ⇒
D2：有、E2：無、D3：有、E3：無 ⇒
D2：有、E2：無、D3：無、E3：有 ⇒
D2：有、E2：無、D3：無、E3：無 ⇒
D2：無、E2：有、D3：有、E3：有 ⇒
D2：無、E2：有、D3：有、E3：無 ⇒
D2：無、E2：有、D3：無、E3：有 ⇒
D2：無、E2：有、D3：無、E3：無 ⇒
D2：無、E2：無、D3：有、E3：有 ⇒
D2：無、E2：無、D3：有、E3：無 ⇒
D2：無、E2：無、D3：無、E3：有 ⇒
D2：無、E2：無、D3：無、E3：無 ⇒

また、「無視されてしまいます」の意味がわかりません
何が誰にどのように無視されるのかを具体的に書いてください

>>257
If d2 <> "" Then
　Range("B4:K4").AutoFilter Field:=3, Criteria1:="=" & d2 & "*"
else
　Range("B4:K4").AutoFilter Field:=3, Criteria1:="=" & d3 & "*"
end if

If e2 <> "" Then
　　Range("B4:K4").AutoFilter Field:=4, Criteria1:="=" & e2 & "*"
Else
　　Range("B4:K4").AutoFilter Field:=4, Criteria1:="=" & e3 & "*"
End If
こんなことがしたいんじゃないかと予想

>>255
数値が入っているセルの合計なら
=sum(a1:a6)
で行けるけど、これじゃまずい理由が何かあるの？

>>261
>>256

>>255
ごめんセルの数ね
だったら　>>256 だね

>>252->>254
出来ました。
ありがとうございました！

>>255
文字列じゃなく数値確定なら、
=COUNTIF(A1:A6,">0")
とかでもいけそうだな

>>256
これでいいのかあorz
難しいほうばかりに目が行ってました

>>261
平均出したり、色々分析したいんです

>>265
今回は正数のみなのでそれもありですね


ありがとうございました

>>254
.Value → r.Value
.NumberFormatLocal → r.NumberFormatLocal
じゃね？

257です。
ご回答ありがとうございます。
すみませんが、11日の夜に改めてレスします。
おやすみなさい。

【1 OSの種類 　 　 　 　 .】 Windows7 HOME 64bit
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 むり
【4 VBAでの回答の可否】 だめ

3H
３Ｈ
３H
など、1バイトと2バイトの入り混じったものを、1バイト2バイトの区別なく全て同じものとして収集することは可能でしょうか？

3H…2人
4H…5人

な感じでデータがあるので、うまいことまとめたいです
作業列を作ればいくらでも合算可能ですがスマートでないので…

>>269
スマートじゃないってどういうこと？初心者は作業列嫌がるけど、設けるほうがよっぽどスマートだと思うけど
=SUMPRODUCT((ASC(A1:A100)="3H")*1)

業務内容に差し障りない程度に悩んでいることを相談するって難しいですね
データを全て公開すれば適切な回答が得られるとは解りつつも、何処まで内容を公開して良いものやら…
適切な例えも思いつかないですし…

今回の件だと、元のCSVのデータに100人とか100だけでなく人が含まれて、いわゆる文字列になっているものを数字に分解するところからはじめなければならいようでした
（自分で作った解析用データですが、半年もすると仕様なんか忘れちゃいますねｗ）

=IF(MID(VLOOKUP(A5,A001!A:B,2,FALSE),5,1)="人",LEFT(VLOOKUP(A5,A001!A:B,2,FALSE),4),
IF(MID(VLOOKUP(A5,A001!A:B,2,FALSE),4,1)="人",
LEFT(VLOOKUP(A5,A001!A:B,2,FALSE),3),
IF(MID(VLOOKUP(A5,A001!A:B,2,FALSE),3,1)="人",
LEFT(VLOOKUP(A5,A001!A:B,2,FALSE),2),
IF(MID(VLOOKUP(A5,A001!A:B,2,FALSE),2,1)="人",
LEFT(VLOOKUP(A5,A001!A:B,2,FALSE),1)
))))*1

な感じで激しくスマートでない方法で仕分けしていたようですが、ACS(A5)では#N/Aの罠から抜け出すことはできませんでした
>>270様には申し訳ありませんが、諦めて作業列をつくろうと思います。

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 初歩的なものなら
【4 VBAでの回答の可否】 できれば関数で

　　A　　　B　　　C　　　D
1
2　→　　　　　　　い
3　↓　　
4　↓
5　→　　　あ　　　え
6　↓
7　→　　　　　　　　　　う
8

(1) B、C、D列には任意の文字列や数値などが入っています。（C2、B4、C4、D6）
(2) B、C、D列に何らかの文字または数値が入っている行のA列には「→」を表示（A2、A5、A7）
(3) B、C、D列は空白だが以降の行に「→」となる行がある場合には「↓」を表示（A3、A4、A6）

(2)だけなら　=IF(COUNTBLANK(B1:D1)<3,"→","")　でできたのですが
(3)が難しくてできません。方法を教えてください。

>>272
なんか色々分かりづらいな…
(1)が条件で(2)(3)が期待結果かな？

=IF(COUNTBLANK(B1:D1)<3,"→",IF(COUNTIF(A2:A$65536,"→")>0,"↓",""))

>>273
回答ありがとうございます。説明が下手糞で申し訳ないです。
仰るとおり(1)が条件、(2)(3)がほしい結果です。

>>273さんの方法で>>272の内容を満足しているのですが
説明が漏れてまして
(4)はじめて→が出てくる行（A2）より上の行では空白（A1）とすることはできないでしょうか

回答していただいた結果
　　A　　　B　　　C　　　D
1　↓
2　↓
3　↓　　
4　→　　　あ
5　↓
6　↓
7　→　　　　　　　　　　う
8

を、さらにこのようにしたいです
　　A　　　B　　　C　　　D
1
2　
3　　　
4　→　　　あ
5　↓
6　↓
7　→　　　　　　　　　　う
8

ANDでCOUNTIF(A$1:A2,"→")>0,"↓","") みたいに繋げばできそうに感じたのですが
循環参照になってしまって無理でした。

>>274の例に当てはめれば

　(4)はじめて→が出てくる行（A4）より上の行では空白（A1、A2、A3）とすることはできないでしょうか

でした。

>>275
循環参照しないようにするなら作業列を作るしかないかと思います
E列 ： =COUNTBLANK(B1:D1)<3
F1 ： =MATCH(TRUE,E:E,FALSE)
A列 ： =IF(COUNTBLANK(B1:D1)<3,"→",IF(AND(ROW()>=$F$1,COUNTIF(A2:A$65536,"→")>0),"↓",""))

メンテナンス性を考えてVBAでやった方がいいと思いますよ…

>>274
=IF(COUNTA(B$1:D1)=0,"",IF(COUNTA(B1:D1)>0,"→",IF(COUNTIF(A2:A$65536,"→")>0,"↓","")))

>>276-277
回答ありがとうございます。
お二方の両方の方法で実現できました。

作業列はなるべく作りたくないので
>>277さんの方法でやってみようと思います

>>273 >>276 >>277
回答してくれた皆さんありがとうございました。

【1 OSの種類 　 　 　 　 .】 Mac osX.5
【2 Excelのバージョン 　 】 Excel2008
【3 VBAが使えるか　 　 .】 初歩
【4 VBAでの回答の可否】 出来れば避けて。

下のキャプチャは、あるシートで作ったグラフで表示されるデータの領域指定（グラフデータの選択タブ）ですけれど、
http://thuploader.orz.hm/1mup/dat/1mup_04698.png
Y軸の値の部分が、【Y軸の値】【（最初にグラフを作ったシート名）！＄A＄１：＄A＄１０】になっていてシート名の部分が固定になっています。
「！」以前（！含んでも含まなくても）を削るとエラーが出ます。

できれば、「今現在のシート（ブック同じ）の指定セル」の値を読んでくれるようにした上で、
全シートにコピー&ペースとしたいのですけれど、どうすればよろしいでしょうか。
初心者な質問で済みませんがよろしくお願いします。

>>279
ペーストしたあとにデータ範囲を書き換えるしか無理です

チェックボックスなどのフォームを
セルに納める方法を教えてください

チェックボックスなどのフォームを
セルの中に入れればいいよ

図形の調整で位置合わせをグリッドにすると簡単に置ける

エクセル2010　win7を使用。

まずシートが３つあります。（甲シート　乙シート　丙シート）
甲シートのA1に、りんごと記述。
甲シートのA2には、乙シートのりんごの個数が自動的に入るようにし
甲シートのA3には、丙シートのりんごの個数が自動的に入るようにします。

乙シート・丙シートとともに
Ａ１〜５　Ｃ１〜５　Ｅ１〜５に、りんごと書かれたセルが１つだけ
Ｂ１〜５　Ｄ１〜５　Ｅ１〜５に、そのりんごの個数が書かれたセルが１つだけあります。

なるべく短く御願いしたいのですが
どうしたらいいでしょうか？
わかりにい説明ですいません。

>>284
「りんごと書かれたセルが１つだけ」なのであれば
「りんごの個数」は常に「1」なのでは？

りんごと入力されたセルの数じゃないよ

ゴメン質問読み違えてた

例えば、乙シート・丙シート共に以下の場合、りんごの個数ってどれなんだ？
A1：ばなな A2：1 A3：2 A4：みかん A5：3
B1：4 B2：5 B3：6 B4：すいか B5：ぶどう
C1：7 C2：かき C3：8 C4：9 C5：なし
D1：めろん D2：10 D3：11 D4：もも D5：12
E1：13 E2：ぱいん E3：りんご E4：14 E5：15

個数のＥ１〜５はFの間違いだとして
個数の位置には数字しか入らないならば
=SUMPRODUCT((A1:E5="りんご")*1,B1:F5)

>>284
=SUM(SUMIF(乙:丙!A1:A5,A1,乙:丙!B1:B5),SUMIF(乙:丙!C1:C5,A1,乙:丙!D1:D5),SUMIF(乙:丙!E1:E5,A1,乙:丙!F1:F5))
としたがエラーでた
ちょっとググってみたが、どうやらSUM以外の関数はシートをまたいで計算するのが難しいみたいだ。
というわけで、乙、丙に作業列…

と思ったのですが、ぐぐってたらも少しまともなのが見つかりました。
=SUM(SUMIF(乙!A1:F5,A1,乙!B1),SUMIF(丙!A1:F5,A1,丙!B1))
私の頭の中のSUMIFの使い方と違うので理解できてませんがコチラでは動いたのでよしとしときます。

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

=IF(AD6>=1,"売上　 (合計"&(H6+AD6)&"円）","売上")
とあり、出てきた数字を,区切りスタイルにしたいんですが
どうしたらいいですか？

H6＝8500
AD6=5850と入れると
【売上　 (合計14350円）】と出てくるのですが
これを【売上　 (合計14,350円）】という感じにしたいのです。

>>291
=IF(AD6>=1,H6+AD6,"売上")
こうしておいて、あとはセル書式で

解決できました

text関数なんてのもあるのにぃ

俺なら =IF(AD6>0 にする

257ですが、もう一度練り直します。
すみません。

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
ハイパーリンクが設定されているかどうかを判別する方法はありますか？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
VBAをつかって複数のワークシートに列を挿入する方法を教えてください。

>>297
書式で検索するとか

>>298
マクロの記録

>>297
[Alt]+[F11]でVBEを開く
[Ctrl]+[G]でイミディエイトウィンドウを開く
“? ActiveSheet.Hyperlinks.Count”と打ち込んで[Enter]

>>298
For Each sh In Worksheets
sh.Columns("B").Insert
Next

>>299,301
ありがとうございます

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

A列にA2からA2000ぐらいまで日付データが並んでいるんですけど（昇順に並べ替え済み）
同一日付があるかどうか素早くチェックできる方法はありませんか？

>304

上と比較する。
条件付き書式で色つけるとか作業列とか・・・

これじゃ「素早く」ない？

>>304
b2=if(countif(a:a,a2)>1,1,0)
でオートフィルハンドルをダブルクリック、下まで一気に入力できる
B列を選択して1を検索ってのはよくやる
それ以上は考える時間のほうがなぁ

>>304
http://www.eurus.dti.ne.jp/yoneyama/Excel/jituyou/jyufuku.htm

皆さんありがとう

今回は>>306さんの案でやらせていただき、ダブりを発見出来ました。
>>307さんの紹介してくれたスレ、後でじっくり見てみます。

>>305さん
ちとしんどいです^^;

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

簡単な入力方法教えて
世界時計的な表を入力したいんで1から24までを
下のような感じで入力する時の技を

123
231
321

>>309
この123は1時23分を表していて、たとえば
23時43分なら2343にしたいということでいいの？

Excelが不得意でなおかつ日本語が不得意な人
やたら多いのは何故なんだ？

日本語が得意ならヘルプを読めば問題は解決するのだから

ここには日本語が得意な人はこない

きっと「下のような感じ」で書いてある表は書き間違いで答えは
A1=1
A2=A1+1
B1=A1+1
B2=IF(B1<24,B1+1,1)
でB1:B2をB1:X2までフィルコピー、A2:X2をA24:X24までフィルコピーに違いない。

くそっ
今回もエスパー検定取れなさそうだ

日本語が得意である必要はないんだ
ただ普通であればそれだけでいいんだ
なのに、なのにどうしてなんだ

モナリザの謎みたいな
暗号かもしれん

そういやテンプレから検索語句無くなってるな

検索語句とか問題解決に不要な情報だからな

あれを見るのが楽しみだったのに(´･ω･｀)

便利になるほど寂しくなるね
なんだか悲しいね

そーいやExcelのヘルプって2003以降から超使いづらくなってね？

個人的には

2007は2003に比べて
大変使いよくなったと思う。

そーでもない

正直ヘルプとかほとんどみない

>>324
2003よりも昔のヘルプ見たことないだろ
驚くほどに使い勝手がいいぞ
ブラウザがタブブラウザになったくらいに違う
2chを専ブラで見るくらいにと言うかそれくらいに

2010は2007に比べて使いにくくなった。
2007のリボンは今までの素っ気無いスタイルから比べればライトユーザーに使いやすくなったのであろう。と思う。
ただ、16:9とか横長の画面がスタンダードになってきてるの知ってて、縦画面を狭くしているのかと殺意が湧いてくる時がある。

【1 OSの種類 　 　 　 　 .】 windows7 home 64bit
【2 Excelのバージョン 　 】 2010
【3 VBAが使えるか　 　 .】 no
【4 VBAでの回答の可否】 ok
上面じゃなくて左右にリボンを配置できませんか？

>>326
できない

現在、Libre officeとKingsoftのexcelもどきを使っているんですが、
excel 2010にした場合、次の処理が高速化されるか教えて下さい

・１０MBくらいのファイルを開く
・大量の行数（６万行くらい）のデータを、オートフィルタ　→　任意の値のみフィルタ　→　解除
・再計算

PCのスペックはwin7(64bit)、cpuはcorei5(2500)、メモリ8Gです

>>328
評価版でお試し下さい
http://www.microsoft.com/ja-jp/office/2010/trial/default.aspx

結果報告もお忘れなく

>>328
結果報告わすれんじゃねーぞ

>>328
OSが64bitならExcelも64bitを入れれば、間違いなく32bit版よりは速くなるよ

【1 OSの種類】WindowsVista
【2 Excelのバージョン】Excel2003
【3 VBAが使えるか】勉強を始めたばかりです
【4 VBAでの回答の可否】可

予約リストシートに載った商品がラインアップに出ているかを検索して、
あればラインアップのシートからデータを引っ張って抽出シートに書き出したいです。
その際、目視確認のため、ラインアップのシートのチェック欄に黄色を塗りたいです。

例としてシートはこのようになっています。

「予約シート」
Ａ　　　　Ｂ　　　　　　Ｃ　　　　…　　Ｆ
１　　　　氏名　　　電話　　　…　　りんご

「ラインナップ」
Ａ　　　　　Ｂ　　　　　　Ｃ　　　　　　　Ｄ　　　…　　Ｌ
出荷日　　産地　　　値段　　　　りんご（青森）　　…　チェック欄
出荷日　　産地　　　値段　　　　王林りんご　　　　…　チェック欄

ラインアップの商品名は完全一致ではないので、検索は部分一致でやりたいです。
例の通りだと、「りんご」を含む、という条件で検索したいです。

下記のコードで
If FoundCell.Value Like "*" & mykey & "*" Then
ここで、型が違うエラーがでます。value同士になっていると思うのですが・・・。

部分一致、抽出、excelVBA、Like演算子等で検索しましたが直すところがわかりません。
アドバイス頂けませんか？

Option Explicit
Dim wsD, Dim wsZ ,Dim wsT As Worksheet
Dim mykey As String '予約リストの商品名
Dim FoundCell ,KeyRow As Range
Dim i ,Dim s As Long

Private Sub 商品抽出_Click()

Set wsD = Worksheets("抽出先")
Set wsZ = Worksheets("予約リスト")
Set wsT = Worksheets("ラインアップ")
'抽出先シートの1行目と2行目は見出し・ボタン押す毎に抽出し直すのでまずクリア
wsD.Range("A3").CurrentRegion.Offset(2).Select
Selection.ClearContents
Selection.MergeCells = False
Selection.Borders.LineStyle = False
i = 3 '抽出先シートの検索結果の表示行は3行目から
For Each KeyRow In wsZ.Rows(3).Resize(wsZ.Cells(3, 1).End(xlDown).Row - 2)
mykey = KeyRow.Cells(7).Value　'予約リスト７行目に商品名
For Each FoundCell In wsT.Columns("D:D").Resize(wsT.Cells(3, 1).End(xlDown).Row - 2)
If FoundCell.Value Like "*" & mykey & "*" Then
s = FoundCell.Row
wsD.Cells(i, 1).Value = wsT.Cells(s, 8).Value 'ラインアップの出荷日
wsD.Cells(i, 2).Value = wsT.Cells(s, 2).Value
wsD.Cells(i, 3).Value = wsT.Cells(s, 3).Value
wsD.Cells(i, 4).Value = wsT.Cells(s, 4).Value
wsD.Cells(i, 5).Value = KeyRow.Cells(9).Value '予約シートの予約個数
wsT.Cells(s, 12).Interior.ColorIndex = 6 'ラインアップのチェック欄に黄色を付ける　
i = i + 1
End If
Next FoundCell
Next KeyRow

コードのDimのところ、改行が多すぎると言われたので
同じやつをまとめたのですが、「,」の後ろのDimを消し忘れました、すみません。

>>332
よくわからないけど適当に回答
エラーが出た時は優先順位とか疑ってみる

If FoundCell.Resize(1,1).Value Like ("*" & mykey & "*") Then

Valueでエラーが出るならTextにしてみるとか

If FoundCell.Text Like ("*" & mykey & "*") Then

>>332
>>335
に先をこされたけど、ちょっと説明してみる
FoundCellはrange、つまり配列（セル範囲）だな。
配列なのに添字も付けずにいきなりvalueをとりだそうとするからおかしくなる

Range("a1:b2").Value　のような感じ。どのセルのvalueなんだよと
解決するために、Resizeでセル範囲を(1,1)にしている
>>336はわかんね

>>335さん　>>336さん　>>337さん
レス下さってありがとうございます。

335さんのも336さんのもエラーはでなくなりました！
しかし抽出が一件も出てこないので、そこのコード見直してみます。

337さん、解説ありがとうございました、なるほど・・・。
Resizeの使い方も確認してきます。

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

エクセルでプリントの四方に枠線を引きたいのですが
図形の挿入→角丸四角形でやると
四隅の丸が大きすぎる形になってしまいます
四隅の丸のカーブを小さく（なだらか）にするにはどうすれば良いでしょうか？
よろしくお願いします

クリックしてサイズ変更できる状態になると左上に◆（←黄色）のハンドルねえか？

>>334
今回の件に関係ないけど
Dim i, s As Long
だと
Dim i As Variant, s As Long
だから、1行にまとめるなら
Dim i As Long, s As Long
にしないといけない

>>341
アドバイスありがとうございます、直します。

>>340
できました！できました！　ありがとうございました！

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

A1〜A3のセルにそれぞれ「1 2 3」 とうようなエクセルで作成したデータをｃｓｖ保存し、
メモ帳で開くと下のようになります。

1,2,3,

これを
"1","2","3"
のようにするにはどうのようにすればよいでしょうか。

>>344
excel csv ダブルクォーテーション 保存
でググればいいと思うよ

>>345
サンクスです。

遅くなってすみません

評価版インストールできません。
「このパッケージのインストールが失敗しました」と表示されます
いろいろ調べてみたんですが今日はムリっぽいです

追記
インストールに失敗するのは64bit版です。
とりあえず32bit版はインストールできました。
ひとまず使った感じは「速すぎ」です。

・１０MBくらいのファイル
Libre/Kingsoft・・・開くのに10秒くらい
2010・・・5秒かからない

・オートフィルタまわりの動作
Libre/Kingsoft・・・若干もたつく
2010・・・もたつかない（ただ、空白をのぞくセルとかの選択が面倒）

コピペ（大量データ5列×6万行）
Libre/Kingsoft・・・コピーに数秒、ペーストに5秒くらい
2010・・・コピペあわせても数秒

びっくりするほど速くなりました。
しかし64bit版でインストールにコケたのがちょっと気になります。
できたら64bit版で検証してみたい

>>348
http://excelnavi.livedoor.biz/archives/2603086.html

よろしくお願いします。

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

ソートに関する質問です。
文字列に入力した文字の3番目の文字でソートをする方法を教えてください。

>>350
作業列に=MID(A1,3,1)って入れてソート

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

お世話になります。
２つのファイルを使っての質問です。

まず１と２のファイルがあるとします。
１のファイルのＡ列に１０００件ほど名前が書いてありＢの列には数字が入ってます。
２のファイルにも同様にＡ列に名前が入っていますがＢ列は空白です。

２のファイルのＡ列に入っている名前と同じものを１のファイルから探し出しその数字を２のファイルのＢ列に入れたいのですがそのような事は可能でしょうか？

普通に2つとも開いてブック切り替えながらVLookUp使えばいいだけじゃねーの？

>>353
初心者なのでVlookupの使い方わからないうんこです。

ヘルプ読め

>>354
おいおまえふざけてんのか？
ちょっとツラ貸せや・・・ひさびさにブチきれたわ
うんこのことを馬鹿にするやつは何人たりとも許せねえ

A列に入っている文字+数値の文字列を
B列に文字だけ
C列に数値だけ といったように振り分けることって出来ますでしょうか？
そんな便利なワークシート関数がありましたら教えてください。

ABC123 → ABC 、123
string32.1→string、32.1 小数も少数あります
0x35 → 数字から始まるとかはﾊﾅから検討しなくて結構です。

VBAﾏｸﾛで一文字ずつﾁｪｯｸするのが面倒だなぁ、他に方法あるのかなぁ

小数も少数ありますｷﾘｯ

>>357
=RIGHT(A1,MATCH(TRUE,ISERROR(RIGHT(A1,ROW($A$1:$A$10))*1),0)-1)
式は入れた後に、CTRL+SHIFT+ENTERで確定（式の前後に｛　｝がつく）
↑これで数字部分

文字部分は
=SUBSTITUTE(A1,B1,"")
とかで出来るかと

If Range("A11:A15").Value = "" Then

型が一致しません　というエラーが出ます。
どこがダメぽなの？

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

セルに'90120906と数字が入っていますが、先頭の'が消せません。
セルの書式の分類を標準から文字列に変えても消せませんでした。
どうやれば消せますか？

セルの幅が十分ではない場合に数値が桁あふれを起こすと####って表示になりますよね。
これを右隣のセルにはみ出してもよいので、書かせたい場合どうすればよいのですか？
セルには数値というよりは数式を書き、その計算結果が溢れる場合を想定しています。

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

>>360
5つのセルをいっぺんには比較する方法が違う
色々あるけど、とりあえずわかりやすいのは

If Range("A11") = "" And Range("A12") = "" And Range("A13") = "" And Range("A14") = "" And Range("A15") = "" Then

>>363
もうちょっとかっこいいのをお願いします

かっこいいことが優れていると思わないほうがいい
特にこういったコードではな、誰でもパッと見てすぐそれとわかるほうが万倍優れている

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

>>361
どこかに数字の1を入力
コピーして、'9012090のセルを選択して形式を選択して貼付けで「乗算」にチェックしてOK

>>365
あなたはそう思うかもしれないけれど
見た目も大切ですよ
世の中見た目重視ですからね

「誰でもパッと見てすぐそれとわかる」ことが見た目なんだが？
ほら見事にブーメランされて今の気持ちはどうだ？
悔しいのう悔しいのうｗ

>>369
いえいえ
この場合の見た目というのは
かっこよさのことを言っているのです
あなたには分からないかも知れませんねw

>>370
プログラマでもない若造が何を偉そうに言ってんの
かっこいいだけの自慰コードなんて誰も要らないよ
じゃあ自分でかっこいいコードに改良して晒してみなさいよ
どんな評価を受けるか楽しみだわ

(かっこよさについてはタブーらしいな…)

カッコよさとか笑わせんなｗｗｗｗｗ

いいから黙れよお前ら

うぜえ、死ね

せっかくお題出てるんだし楽しもうぜ

>>361
形式を選択して貼り付けで「値と数式の書式」で貼り付け

>>364
これで君も明日から身長が伸びるわ宝くじにあたるわモテモテだわで大変です
For Each r In Range("a11:a14")
t = t & r.Value
Next
If t = "" Then

>>378
さいあく

>>362
右隣のセルを結合すればいいんじゃないかな

>>360
.Value
がダメぽです

>>370
かっこわるぅー

>>364
Sub b()
If a(Range("a11:a14")) Then
'処理内容
End If
End Sub

Function a(ff)
For Each r In ff
t = t & r.Value
Next
If t <> "" Then
a = True
Else
a = False
End If
End Function

If Range("A11") And Range("A12") And Range("A13") And Range("A14") And Range("A15") = "" Then

面白そうな事やってるね 俺も参加・・・・っと(^^;

If WorksheetFunction.CountA(Range("A11:A15")) = 0 Then

とかwww

>>357
http://dreamy.boy.jp/tec3_37.htm

If Join([TRANSPOSE(TRANSPOSE(A11:A15))], "") = "" Then

>>357
>string32.1→string、32.1 小数も少数あります

むむむ。。。。
俺の変換だと「少数も少数あります」となってしまった。。。

>>362
とりあえず、セル幅変えずに数字が表示したいなら
セルの書式設定>配置>縮小して全体を表示する

あとは、文字に変換するとか
=text(数値,0)
とか使ってかな

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

ピボットテーブルについて

A　商品1　20個　1000円
A　商品2　10個　2000円
B　商品3　50個　2000円

商品の種類は無視して合計個数と金額を横に並べるにはどうしたらいいですか？
ウィザードだとデータテーブルが縦に並んでしまいます。

A　30個
............ 3000円
B　50個
..........　　2000円

A　30個　3000円　←　にしたい

�白lを行ラベルから列ラベルにドラッグして移動させる

>>385
Range("A11").Formula="="""""

はぁ？

Range("A11").Formula="="""""
MsgBox Range("A11")=""
MsgBox WorksheetFunction.CountA(Range("A11")) = 0

ひぃ！

Book1のSheet1にあるB3セルの値を、Book2のSheet2にあるC5セルへ
値だけコピペしたいとき、Selectしない方法を教えてほしいのら。

自動記録だとこうなるのれす。
Sub Macro1()
　　Windows("Book1").Activate
　　Sheets("Sheet1").Select
　　Range("B3").Select
　　Selection.Copy
　　Windows("Book2").Activate
　　Sheets("Sheet2").Select
　　Range("C5").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

>>398
簡単だよ
Workbooks("Book2").Sheets("Sheet2").Range("C5") = _
Workbooks("Book1").Sheets("Sheet1").Range("B3")

>>398
Workbooks("book2").Worksheets("sheet2").Range("c5").Value = Workbooks("book1").Worksheets("sheet1").Range("b3")

あんまりこういう書き方はしないけどね。
ついでにきちんと拡張子をつけた方がいいです

あんまりこういう書き方をしない、というのはこういうふうにズラズラ並べない、ってこと。
Set ws1 = Workbooks("book1").Worksheets("sheet1")
Set ws2 = Workbooks("book2").Worksheets("sheet2")
ws2.Range("c5").Value = ws1.Range("b3").Value

場合によるけど↑みたいな感じにするかなあ

>>400
×拡張子
○ぷろぱてぃ
なだ

>>402
.xls は拡張子だと思うが？

>>403
.valueのこととを指してると思ったんだが

>>400
最初から
デフォルトプロパティも省略せずに書いた方が分かりやすいでしょう
って書けよ
てか、お前みたいに書いたり書かなかったりするのが一番分かりにくいだろ
今後>>400は書き込む前に3回は読み直して、
母ちゃんにもチェックしてもらえよ
クズが

教えてもらってるのに態度デカw
ゆとりかいwww

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

ピボットテーブルを作成する場合、Defaultで画像の部分にチェックを入れておきたい。
何か方法はあるでしょうか？

http://www.dotup.org/uploda/www.dotup.org2755489.jpg

ある

>>393
できましたーｔｈｘ

【1 OSの種類 　 　 　 　 .】 Mac OSX 10.6.8
【2 Excelのバージョン 　 】 Office X, Office 2011
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

OSX Lionに上げるとOffice Xが使えなくなるのでOffice 2011を試用して
いるのですが、一部の列を非表示にしているテーブルを選択範囲限定で
「Webページとして保存」にすると、非表示セルも全て表示した状態で
htmファイルが生成されるようになり困ってます。Office Xでは見た目通り
非表示セルは抜いてhtml化されたのですが・・。
どこかにスイッチがあるんでしょうか？

>>399
ありがとん

>>400
左側には.Valueがあるのに、何で右側にはないのん？

>>401
なる〜

>>402
なだ？

>>403
.xlsはどこに書かれてるのん？



またまた質問なのら〜
Sub Macro2()
　　Workbooks("Book1").Sheets("Sheet1").Range("B3:F3").Copy Workbooks("Book2").Sheets("Sheet2").Range("C5:G5")
End Sub
このとき、Range("B3:F3")に図形が入ってるとこれもコピペされちゃうのれす。
セルの色とか文字の色とかはコピペしたいんだけど図形はいらないのれす。
ど〜すればいいのか教えてほしいのら。

>>411
図形の書式設定で「セルに合わせて移動やサイズ変更をしない」にチェックを入れる

えっこの人なだ知らないの？

【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 OK
【4 VBAでの回答の可否】 OK
Sheet1を午前の件数結果sheet2を午後の件数結果として合算し、
Sheet3にカレンダーの日ごとに（例えば、1日○件、2日○件･･･）と集計
出来るようにしたいのですが、どのような関数を使えばよいでしょうか？

>414

ｴｽﾊﾟｰを待て。

>>414
君の説明ならこういうことになるけど？でもVBA使えるのにこんな質問しないよな

=SUM(Sheet1!B2,Sheet2!B2)

>>414
sumif

>>380
>>389

ありがとうございます。
わかっちゃいるんですが、、単純にはみ出てほしい。
昔のExcelはそうだった気がするんだけど。。
文字と式を別プロパティにしだしたあたりからの仕様なのか。。。。。

>>418
>>390 はダメなの？

>>412
やってみたら図形はコピペされなくなったけど
「セルに合わせて移動はするがサイズ変更をしない」の設定なのれす。
毎回設定を変えるのはメンドいのよね〜

「セルに合わせて移動やサイズ変更をしない」にしておいて、
「セルに合わせて移動はするがサイズ変更をしない」に変更する頻度がそんなに多いの？

>>410
bootcamp（vm系でもいいけど）つかってWindows入れよう

>>420
"形式を選択して貼り付け"でオプション"すべて"でペーストすれば
図を貼り付けずにセル内容をコピペできる。

>>420
何のためのVBAだよ、VBAでやれ

>>423
できた！できたよ〜ん
ありがと〜〜ん

>>424
だからぁ〜VBAでやってるっつーの。
411から読み直してみれ。

>>425
>毎回設定を変えるのはメンドいのよね〜
これをVBAでやれつってんだよ

次の国会で青少年ネット規制法通すことにするわ
子どもたちを守るためには必要だよな

>>426
ものの本質とかけ離れたことをやっても意味ねーよｗ

>>407
やっぱ無理っすかー？？

>>414
VLOOKUP、SUM、COUNTIF、SUMPRODUCT
この辺使えばできると思う

426って、おバカ大賞だね♥

Excelが不得手 ＝ 文系 ＝ 日本語が不得手

なるほど、納得

4 名前： 番組の途中ですがアフィサイトへの転載は禁止です 投稿日： 2012/03/17(土) 20:34:04.47 ID:zR0NjVqo0
好きなんだよExcelが
オレの波長とExcelがピタリと合うんだヨ
Excel、Excel、Excel
命をのせて戦うんだ
いちばん好きなソフトでいくのが当然だろう

7、64bit, Excel2000（XP modeアプリケーション）。

CADオートメーション用のVBAマクロから、エクセルの表の座標データにアクセスしたい。
7上のCAD VBエディタからXP modeアプリケーションのエクセルにアクセスできるものか？


7上のCAD VBエディタがMicrosoft Excel Object Library を要求するので,
Virtual PCのXPmode で9.0 Object Libraryをコピーし7上に配し指定した。
MS9.0 OLは登録されたが、エクセルは認識されない。

エスパー検定ブロンズでは無理だった
ゴールド以上が必要だと思われます

持ってないからよくわからん
CADもXPmodeの中に入れてみる
Excelを(バージョンアップして)XPmodeの外に出す
ソフトウエア的には別マシンのような気がするので何とか通信させる

ｺﾞｰﾙﾄﾞの俺でも無理

教皇かｱﾃﾅを待つしかない。

クライアントと仮想マシンの通信ね
できるけど、構成がわからないとなんとも
>>436
のように、どちらかにまとめるのが一番早いと思う

【1 OSの種類 　 　 　 　 .】 Windows　ｖｉｓｔａ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 勉強中
【4 VBAでの回答の可否】 可

よく使う処理を標準モジュールに「Public sub」で書いて、複数のユーザーフォームやシートから
Callで使おうとしています。

ワークシートだと、呼び出したシートを「ActiveSheet」と書いておけば動くのですが、
ユーザーフォームだと「ActiveForm」では、変数が宣言されてないというエラーになります。
どのユーザーフォームで開いても動くように、そのときアクティブになっているフォームを指定するには
どう書けばいいんでしょうか？

ActiveForm Excel VBA ユーザーフォーム　参照などで検索しましたが、
Ａｃｃｅｓｓの解説ページに迷い込んだりして、解決できませんでした。
よろしくお願いします。

>>439
ちょっと方向性が違うかもしれないけど引数でフォームを渡すとかどうだろう？

Subプロシージャ定義
Sub foo(form As Object)
Debug.Print form.Caption
End Sub

フォームからの呼び出し
Call foo(Me)

>>440
その発想は無かったです！
ちょっとやってみます、レスありがとうございます。
もうすぐ出勤なので、また夜に改めて結果ご報告します。

ピボットテーブルを使って

い　A　1
ろ　B　1
ろ　C　5
は　A　2

こういう行列を

品　A　B　C
い　1
ろ　　　1　5
は　2

こんな感じに出来ますが、
逆はどうやるんでしょうか？

フィルターがかかってるシートに
別シートの゛テータ領域をそのまま見えてるセルにだけコピペするのって
どうやってやる？

>>443
少しずつコピペするかVBAでやるか

>>444
それがイヤだから聞いておるのだが

>>445
条件後出しとかさすがにないわ

少しずつコピペするならここでは聞いておらんのだ
VBAでやるならそっちのスレで質問しておるのだ
バカボンのパパなのだ

>>447
フィルタがかかっている方に貼り付けるのは無理なんだから
フィルタがかかってる方をコピーして別シートのデータ領域の横に貼り付ければいいんじゃないの？
結果は一緒でしょ

あぁそうか、フィルタを戻したいのか
スマン忘れてくれ

VBAでしかできないからそっちのスレで質問してこい

３つ目のシート作って、2つのシートからコピペじゃダメなのか？

VLOOKUP関数で質問です。

呼び出す列内のセルをAltなどで改行している場合に、VLOOKUP関数で呼び出したセルには1行で表示されますよね。
それを呼び出したセル内でも改行されるようにしたいんですが、何か方法はないでしょうか？

例
「A1」セル内には、改行された文章がある
VLOOKUP関数を使用して「B2」セル内に「A1」を読み込んだときに「A1」と同じように改行された文章にしたい

>>451
セルの書式設定で「折り返して全体を表示する」のチェックをONに

>>452
回答ありがとうございます。
その手法はググったときに発見したのですが、反映させるセル側に十分な列幅を確保する必要がありますよね。
読み込む幅バラバラなので、できれば反映されたときに列幅も反映されるようにしたいのです。
やはりその方法は無理なんでしょうか。

>>453
>>451と質問内容が変わってしまってるような気がするけど…
残念ながらVLOOKUP関数に列幅を変更する機能はありません
あらかじめ余裕をもった列幅にしておくしかないと思います

>>454
ですねｗ説明不足でした。
やはり無理そうですか。
丁寧なレスありがとうございました。

>>453
VBAならできなくはないと思う
http://msdn.microsoft.com/ja-jp/library/cc390843.aspx

できなくはないって言うか
できるに決まってるだろ
どんだけVBA知らないんだよ

例えばRange.Findメソッドで検索して
Range.ColumnWidthプロパティで取得・設定するだけだ

>>443
切り取りでいける
切り取った元データは保存ぜずに呼び出せばおｋ
ただし、オートフィルタや集計でやや挙動が違う

>>457
質問者はVLOOKUP関数の質問だと言ってるだろ
これはVBAでの回答を求めているわけではないということだ
なのでVBAでならできることを示唆するにとどめただけ
どんだけ読解力がないんだよ

>>458
できなかったぞ。
>>161のデータで実験したけど、やっぱり下のようになった。

うんこ　1 うんこ1号
うんこ　2 うんこ2号
しっこ　3 うんこ3号
ちんこ　4 うんこ4号
まんこ　5
うんこ　6
まんこ　7
ちんこ　8
ちんこ　9
うんこ　10

>>459
>>456のリンク先が的外れすぎるw

>>461
ホントだなｗ

天皇が死にそうなんですけど。
平成は24年まで。
そして今年の平成24年＝□□元年となる。

将来□□を表示させるにはどうするの？

>>463
OfficeUpdateすればいい

>>463
パッチ待て

>>464>>465
自分でできない？
たとえば今年は「化成元年」になったとシミュレートして、
今後の予定は「化成元年」「化成2年」・・・・・と今から表示させたいんですけど。

それに気になったのは正式表記は最初の年は「元年」なのにExcelは「1年」なんだよな。「平成1年」とか「昭和1年」とか表示される。

>>466
またその話題か
去年やっただろ

>>466
今平成だからいいじゃん

>>460
ごめん、勘違いしてた。がまぁできなくもない
http://www.dotup.org/uploda/www.dotup.org2771287.xls.html

コピーすると、見えてるセルだけが抽出される
それを利用して、予めインデックスをつけておき、そのインデックスを下に振り直せばおｋ

>>466
VBAでユーザ関数作ればできる

公文書だと元号じゃなきゃ駄目なんだっけか?
もう西暦使わせろよ

>>471
普通に平成50年とかって書くよ
それで問題ない

>>466
セルの書式設定→表示形式→ユーザー定義で設定できる。

>>472
いや問題ってか面倒なんだよ
たとえば西暦なら単純に引き算ですむのに
元号だと昭和20年から平成23年って何年間だとか
パッと出てこないのが不便でしょ?

面倒くさがったり、パッと出てこないのは、老化現象だよ。
きっと頭がボケ始めてるんだ。

要するに
西暦：ボケたり老化したりしても問題がない優秀なシステム
元号：欠陥のある劣ったシステム
ってことだな
人間誰しも老いるんだぜ
それを否定するのは自己否定にほかならんよ

2011-1945
まではパッと出るぜ
その引き算はニガテだけどな
上から借りてくる上から借りてくる・・・

元号なんて今年が平成何年か分かればいいだろ。
申請や提出する書類で過去の日付を頻繁に書くのか？
Excelに西暦と和暦の変換できるし無問題だよ。

どなたか　>>442　に

>>479
vba

>>440

イミディエイトウインドウを使ったことがほとんど無く、Debug.Printを調べるところから
やっていたのでお礼報告が遅れまして申し訳ありません。
イミディエイトって便利ですね！

キャプション＝フォームの名前をイミディエイトに書き出す、というコードだというのは
分かったのですが、そこからどう名前を引っ張ったものか分からず・・・。
そこで、
Dim myForm As String
myForm = "ユーザーフォームの名前"
この２行を呼び出す方のフォームに書き込んで、Call 処理、にしてみました。
そうしたら今度は別のエラーが・・・。
フォーム自体にコードが書いてあったときにはきちんと動いていたので、
もうちょっと勉強してみたいと思います。

イミディエイトの便利さが分かって捗りそうです、ありがとうございました。

ウォッチ式も使ってね
仲良く使ってね

>>481
>>440は、フォームをfooサブプロシージャに渡して、
サンプルとしてフォームのCaptionをイミディエイトウィンドウに出力しただけ
別にCaptionが重要なわけじゃないからね

>>477
55＋11だ
中学の時の数学の教師が教えてくれたわ

>>442
ピボットテーブル使うか
キャッシュから戻す(キャッシュが残ってる場合)か
ワークシート関数使うか
VBAでマクロ組むか

>>482
ウォッチ式調べてきました。
使ったこと無かったです、ありがとうございます！

>>483
アドバイスありがとうございます！

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
あるフォルダにある複数のtextファイルの最終行だけを一つのシートに読み込むマクロを教えて下さい。

>>487
フォルダ一覧の取得
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
ファイルを開く
OPEN　ステートメント
最後の行
http://officetanaka.net/excel/vba/file/file08b.htm
コピーはマクロの記録

これを組み合わせれ

〉〉488

サンクス
やってみる

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

シート２のＡ１〜C78にデータがあります。
A列は数字だけの部品番号で書式が文字列、B列は部品名、C列は単価です。

シート１のB列に=IF(A2<>"", VLOOKUP(A2,Sheet2!$A$1:$C$78,2,FALSE),"")と書き
A列に別のブックからの部品番号をコピーして値だげ貼り付けると関数を入れたところが
#N/Aになってしまいます。

このとき、A列にカーソルを置いてＦ２キー、エンターとすると#N/Aが部品名に変わります。
Ｆ２キー、エンターと押印しなくても表示される方法を教えてください。

押印するのか

>>490
やってないけど値で貼り付けしてみてはどうかな

三交代勤務の現場です。7：00〜15：00が昼勤1として 15：01〜23：00が夕勤2として 23：01〜6：59が夜勤3として、 たとえばいま2012／03／21 21：42を入力すると隣りの列のセルに自動的に2と表示される関数を教えて下さい。m(_ _)m

>>493
=if(and(a1*24>15,a1*24<23),2,0)
ｍきたいなー

>>490
再現しないからブックどこかに上げてくれ

>>494
日付もいれなければならないんです。それでもいいんですか？

>>493
表を用意して
VLOOKUP

>>490
張り付け方はどのようにしてます？
そのまま貼り付けてますか？
それとも、形式を指定して貼り付けを選んで、値貼り付けにしてますか？

>>496
だめだね
=if(and(hour(a1)>15,hour(a1)<23),2,0)
だね

>>499
>>493も頭わるいけど
お前も相当だな
課題を満たせないことに気付け

こんな感じか、なぜ1分ずらしてるんだろう?
=VLOOKUP(TEXT(A1,"hh:mm"),{"00:00",3;"07:00",1;"15:01",2;"23:01",3},2)

>>491
押下でした・・・

>>492 >>498
コピーして値だげ貼り付けって書きましたけど？

>>495
会社のファイルなので無理ぽ。
2010でフツーに作れば再現すると思いますが、2003だと
再現しないですね・・・

>>500
そう？酔っ払ってて試す気が起きないや。
>>502
A2を文字列に設定しておく
なんだろうな、valueが"0"と0でかわってんのかな

>>502
2010でフツーに作ればって
お前が作れよ！！
お前が作って例を上げろって言ってんだよ！！

>>504
うｐロダ教えて

>>505
自分で調べろや

自分で調べたり努力した上での質問なら
教える側だって嫌な気はしないよ

学校でも会社でも同じだと思うがな
ネットでもな

>>506
フツーに作れないバカｗ

努力しなくても面白ければあるいは

自分で調べたり努力した上での質問、
あるいは、面白い質問なら
教える側だって嫌な気はしないよ

学校でも会社でも同じだと思うがな
ネットでもな

画像ファイルのうｐロダばかりで、うｐできません・・・
lzhに圧縮してみたけど、これもダメ・・・
助けてください

dotupかax

>>502
コピーして値だけ貼り付けというのは
「形式を選択して貼り付け」＝＞「値」　という事を言っているのだろうから、

シート１のＡ列の属性が数値になっていて
そこに値だけ張り付けたので、Ａ列属性が数値属性のままで
比較されてるんじゃないかな。
その状況でテストしてみると、私の環境でも再現する。

文字属性にしておいて値を貼り付けるか、
コピー元が文字属性ならば、値貼り付けでなく、そのまま貼り付けすれば
大丈夫じゃないだろうか。

>>505
http://ynib.info/up2/10m/

>>513
罫線とか、セルの色があったりして値だけ貼り付けてましたが、
そのまま貼り付けると表示しますね・・・
もうちょっと考えてみます。
ありがとうございました。

>>515
今の形のまま生かすなら下のようにvlookupにText関数をつけてやれば
いけるんじゃないだろか
=IF(A2<>"", VLOOKUP(TEXT(A2,0),Sheet2!$A$1:$C$5,2,FALSE),"")

「Microsoft Excel」に「Vi」「Vim」風の操作をもたらすマクロ「Vimxls」
http://www.forest.impress.co.jp/docs/review/20120322_519415.html

上司がExcelをショートカットでバリバリ使ってるので、自分もできるようになりたいんですが
Excelのショートカット一覧みたいな参考サイトがありましたら教えてください。
基本機能だけではなく、セルの結合、行や列の表示/非表示、選択セルの内容に合わせて列幅調整、あたりも
キーボードで素早く操作していたので、マネしたいのですが・・・。

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

>>518
ヘルプにもあると思うけど？
http://office.microsoft.com/ja-jp/excel-help/HP010342494.aspx

>>519
レスありがとうございます。
やはり公式のが一番詳しくて見やすいんですね。
印刷用のカードもありますし。

できれば、「Alt、O、C、R」で列幅調整とか、「Ctrl＋スペース」で列選択、あたりまで
印刷しやすい形になってるのが無いかなあと思って探しているのですが・・・。
そのあたりになると、Excel2003あたりのサイトを見た方が良いのでしょうか。

>>520
自分で好きなような作ればいいんじゃないの？
Excelで作れば楽ちんだよ？

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

入力規則をリストで作って、更にその規則に則って入力されたものに該当する数値を隣のセルに自動で入るようにしたいです。
説明が下手なので、何をしたいか下記ろだにうｐしました。
http://www.uproda.net/down/uproda464747.xlsx.html

IFを延々作っていく方法しかないでしょうか？
本来は30通り位あります。
うｐのもののように、テーブルは整列させて置いておけます。
ご回答お願い申し上げます。

>>522
C2に
=IFERROR(VLOOKUP(B2,E:F,2,0),"エラー")
下にコピー

>>523
ありがとうございます
VLOOKUPですね
エラーと出したい場合は更にIFERRORを使うと（こだわらないので使わずにFALSEとしておきます）

簡単にできる方法があったはずなのに、、という事で質問してしまいました。
お世話になりました。

>>485
遅くなりましたがレスありがとうございます。

ピボットテーブルでやってみたら
い
A1
B
C
ろ
A
B1
C5
は
A2
B
C
となってしまいました。
空白は表示させたくないのです。
もう少しヒントお願いします。。

>>521
そうですね。
使いたいショートカットも限られてますし、公式のものをベースにして
自分好みにアレンジしてみます。

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
Excel以外のファイルの作成日時といった情報をExcelを起動したら自動で読み込みたいのですが
そういったことができる方法があればヒントでもいいのでよろしくお願いします

>>527
「Excel以外のファイル」って世の中には無限にあるけど？
「作成日時といった情報」ってなんだ？
「読み込みたい」ってどういうことだ？
全く意味がわからないので具体的に書いてくれ

>>527
ここ参考
http://www.atmarkit.co.jp/fdotnet/dotnettips/370timestamp/timestamp.html
ファイル作成日時の取得って言えばいいよ

>>528
すみません用語に詳しくないので分かりにくかったですね
>>529さんのおっしゃる通りです

>>529
情報の後出しで申し訳ないのですが、URLにあったサイトの説明に
>ファイルのタイムスタンプは、ファイルが「使用中」もしくは「読み取り専用」のときには設定できない。
とあったのですが、まさにファイルの使用中に読み込みたいのですがいい方法はないでしょうか
具体的にはゲームを作っているのですが
ゲーム起動時にゲームランチャーのExeファイルの作成日時を取得したいのです

>>530
Excelに関係ない話は余所でやれ

>>530
ファイル作成日時の取得
でぐぐえ

>>531
Excelで取得したいと最初に書きました

>>532
その方法で勉強したいと思いますがVBAは初心者なのでまた何かあったらお願いします

>>533
http://toro.2ch.net/test/read.cgi/tech/1327763113/
こっちに行ってみるといいよ
Excelは関係ないってことに気づかせてくれると思うから

>>534
そうなんですか
スレチだったのならごめんなさい

なら、ってなんだ？
スレチなんだからしっかりと謝れよ

　　　,r´⌒ヽ,⌒ヽ,ヽ
　　　(⌒)､　　 .人　 λ＼､ .＿＿＿
　　　 ＼. ＼　　　　、　ヽ.／ ー 　ー＼
　　　　 |＼　＼ 　 　ヽ.／　（ ●）　（ ●）
　　　　 |　 ＼　 ＼　／　　　　　（__人__） ＼　 はいはい、どーもすみませんでした
　　　　 |.　　 ＼　 　|　　　　　　　｀ ⌒´ 　　|
　　.　　 |.　　　|.＼_ノ＼ 　　　　 　　　　　　/
　　.　　 |.　　　|　　 | 　 ＼＿＿＿＿＿_／
　　.　　 |　　　)　　.|　 　　　　￣￣
　　.　　 |　　　|　　.|
　　　　　|　　 |.|　 .|
　　.　　　|　　| .|　.|
　　　　 ／ 　/ /　ヽ,
　　　　(＿_ノ　 ヽ、__つ

このAA首を前に差し出してるように見えるんだよな

デュラハンか

アンパンマンみたいに顔が取れてるAAだと思ってたんだけど違うの？

君が肩というか首元というかそう見ている部分は尻だよ
手に指を付け加えればちょっとはわかりやすくなるかな？
直立して腰から120゜くらい折り曲げた最敬礼みたいな感じになってるのかな
あと顔も一段下げてみるか


　　　,rm⌒　⌒ヽ,ヽnn
　　.c(　)　　　 .　 λ＼､ 　.＿＿＿
　　　 ＼. ＼　　　　、　ヽ.／ 　　　　＼
　　　　 |＼　＼ 　 　ヽ.／　 　ー 　ー_＼
　　　　 |　 ＼　 ＼　／　　（ ●）　（ ●） ＼　 はいはい、どーもすみませんでした
　　　　 |.　　 ＼　 　|　　　　　（__人__）　　　|
　　.　　 |.　　　|.＼_ノ＼ 　 　　｀ ⌒´ 　　　/
　　.　　 |.　　　|　　 | 　 ＼＿＿＿＿＿_／
　　.　　 |　　　)　　.|
　　.　　 |　　　|　　.|
　　　　　|　　 |.|　 .|
　　.　　　|　　| .|　.|
　　　　 ／ 　/ /　ヽ,
　　　　(＿_ノ　 ヽ、__つ

これがBOKEGOROSHI・・・

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


名簿を作っていて、入社〜退社までの期間を表示させようとしています。
Ｇに入社年月日、Ｈに退社日を入力。
在職者には本日迄での期間を出そうとしました。

=DATEDIF(G11,=IF(H11="",TODAY(),H11),"Y")
ＩＦで退社日が空欄ならTODAYを表示させてという式にしたつもりですが、エラーでダメでした。
良い方法を教えてください。

>>543
=DATEDIF(G11,IF(H11="",TODAY(),H11),"Y")

>>544
なんか・・・すいません
関数の前は=入れないといけないものと思ってました。
ありがとうございました。

DATEDIFなんて関数があったのか
勉強になった

>>546
DATEDIFを知らない人間がいたことにビックリだよ
今までどうやって日付計算をしてきたのか
むしろ興味深い

ヘルプに載ってないものを知らないことになぜビックリするのか理解できない
俺にしてみればヘルプに載ってることを質問してくる方がビックリだわ

載ってない入門書は無いからだ
DATEDIFは暗黙の常識
どうやって日付計算してたの?

DATEDIFは昔アドインだったからな
97の頃はどうだったんだろう

>>549-550
ヘルプは読むけど入門書なんて買ってまで読まないからな・・・
どうやって計算してたんだろう？
VBAでやってたのか今まで必要になる機会が無かったのかだと思う

>>551
っていうかネットで調べたりしないの?
DATEDIFでググってみれば
どれだけ自分が無知だったのか
気づくかもね

>>552
調べないといけない状況に陥ったら調べるけど
そうならなかったってことは今まで必要になる機会がなかったんだろうね
たかが非公式の関数1個で無知呼ばわりはどうかと思うけど、大人なので許してあげる

>>553
さすがだな、大人のExcel

そうか春休みか

夏休みがまだ終わりませんどうすれば…

>>556
無限ループに陥ったときは[Ctrl]+[Break]で止めることができますよ

リアルだとこんな感じか
「あれ?　何ですか、この計算…。普通DATEDIFじゃないですか?」
「ん?　DATEDIF?　そんな関数聞いたことないな。ヘルプにも載ってないし」
「って言うか、ネットで調べたりしないんですか?　日付計算でDATEDIFはある意味、常識ですよ」
「今まで調べないといけないような状況には陥らなかったからな。
　そうならなかったってことは今まで必要になる機会がなかったんだろうね」
「ヘルプ見るのもネットで見るのも手間は変わらなくないですか?
　僕はヘルプよりネットでいろいろ見る方が分かりやすいですけどね」

書いてて虚しくならない

本質じゃないけど、
４月１日に入社して、翌年３月３１日が退職だと１年として計算しないの？

質問者は解決したらもうこのスレは見ないよ

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

Shhet1のC3セルに検索キーを入れたら、その列の下にSheet2のデータを
持ってきたいのですが、C4以下にVLOOKUPを入れず空白セルにして
おくにはどうすればいいでしょうか？
下記の例では持ってくるデータ数が4件しかありませんが、最大78件です。

Sheet1---------------------
　　A　　　　B　　　　C　　　　
1
2
3　　　　　　　　　　ぶどう
4　　　　　　　　　　山梨
5　　　　　　　　　　長野
6　　　　　　　　　　山形
7　　　　　　　　　　岡山
---------------------------

Sheet2----------------------------------------
　　　A　　　　　B　　　　 C　　　　D　　　　E　　　　 F
1　みかん　　愛媛 　 和歌山　静岡 　 熊本
2　りんご　　 青森　　長野　　 山形
3　ぶどう　　 山梨　　長野　　 山形 　 岡山
4　もも　　 　 山梨　　福島　　 山形　　岡山　　和歌山
----------------------------------------------

>>562
式が使えないんだからVBAでやるしかないと思う
VBAが使える人なんだから自分で組めるでしょ？
組んでる時に分からない事が出てくれば改めて具体的に質問すればいいからね

>>562
http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_event.html#change
ヒントはこのへん

>>558
そういや2010あたりではDATEDIFのバグって完全に直ってんのかなあ

3行1組のデータに、1行の空白行がときどきあります。
この空白行だけを削除するのに、
１．A列を挿入
２．A1セルに1（ダミーデータ）を入力
３．A1セルをコピー
４．A2から一番下の行（B列一番下の左隣り）にペースト
５．1行目を挿入
６．A1とB1にオートフィルタ
７．B列から空白行を抽出
８．空白行を削除
９．オートフィルタ解除
１０．A列削除
をしています。

はい。

「はい。」じゃなくて早く答えろ！バカ

いいえ。

Да．

高レベルのエスパーはいないようだな

何を聞きたいか言ってくれ

566です。
途中で送信してしまいました。
４の　A2から一番下の行（B列一番下の左隣り）にペースト　が少々手間取ってしまいます。
もっと効率よくするにはどんなやり方がいいでしょうか。

バージョンは2002（OfficeXP)です。
できればマクロはなしでおねがいします。

ごめんわからんわ
ESPを待て

>>573
B列を選択してオートフィルタするだけじゃ駄目なのか？

そうですか
残念です

>>576
B列を選択してオートフィルタだと、全てが空白セルになってしまいます。

>>578
だから、それを削除すればどうなる？

>>579
1行目のデータ以外が全て消えてしまいます。

（すべて）
（トップテン）
（オプション）
（空白セル）　　　　　　　　←これを選択したとき
（空白以外のセル）

>>566
例を上げるか
エスパー板に行ってこい

>>580
そこは分かってんだよw

>>581
会社のデータなので無理です＞＜

>>582
分かってるなら教えてください。

>>580
あっすまん。B列じゃなくA列だった。
要は566の6から9を実施したらいいんじゃないのということ。

だいたいこんなかんじだよ.xlsxを上げてくれよ

2002（OfficeXP)なのに.xlsxってアフォですか？

>>584
おおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおお
できたぁああああああああああああああああああああああああああああああ

>>566
もっと伝える努力をしろよ
ホントに会社行ってんのか

>>586
Windowsうｐダテで2002（OfficeXP)でも.xlsxが読み込めるんだよ（ﾌﾟ

>>588
ごめんなさい。
途中まで書いてて寝ちゃいました＞＜

>>584
さすがだな

>>584
すげええええええ

a列とb列の相関を調べたい

a列とb列は昔から隣同士で幼馴染

だがある日c列が現れて・・・

>>593
http://toro.2ch.net/test/read.cgi/tech/1327763113/836
この人に聞けばわかるかと

>>593
統計の相関係数を求めたい？
マイニングのアソシエーションの相関を取りたい？
どっち？

>566
ダミー列を１列挿入して、１から昇順で番号打っておく
その他の列でソートすれば、上か下に空白行集まるから
それを削除。
その後、ダミー列で昇順ソート。
ダミー列を消す。

で良いでしょ。

>>598
>>561

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

「はい」と「いいえ」のボタンと作って、ボタンを押すたびに
その隣に押した回数が表示されるようにしたいんですがどうすればいいんでしょうか？

>>600
作ったぞ
http://www.dotup.org/uploda/www.dotup.org2794734.xls.html
隣というのは指定できるかどうか知らない
引数で指定してsubに渡せばいい

>>600
「はい」と「いいえ」のボタンを作って
「はい」のカウンタと「いいえ」のカウンタを作って
「はい」もしくは「いいえ」のボタンが押されるたびにカウンタをインクリメントして
それぞれのボタンの隣にそれぞれのカウンタを表示すればいい

701 名前：ひよこ名無しさん[] 投稿日：2012/03/26(月) 13:46:14.68 ID:rLpXsoUH
excel2010で「はい」と「いいえ」のボタンと作って、ボタンを押すたびに
その隣に押した回数が表示されるようにしたいんですがどうすればいいんでしょうか？

マルチか。まぁいいんじゃないの

Дa

>>602-604
マルチすみません。
こっちに投稿したんですが、人がいなさそうだったので向こうで
質問してしまいました。
解凍してくれた方、ありがとうございます。

解決しましただけは言っておいてね

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

指定したフォルダにあるExcel以外の複数の大きいバイナリファイル（20MB程度で同一フォルダ内にあるファイルのデータサイズは全く同じ）から途中の指定したアドレス1〜2バイト分のデータを抜き出して、その情報をセルに表示して並べて行く。
そう言った使い方って出来ないでしょうか？

よろしくお願いします。

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

Sheet1で
りんご　120円
みかん　200円
Sheet2で
りんご　120円
みかん#2　180円
いちご　250円

と入力しました。

Sheet3に
りんご　120円
みかん　200円
みかん#2　180円
いちご　250円
と自動的に出すにはどうすればいいでしょうか？

>>609
ダブってた場合、どちらを優先させるんだ？
仮に同じ物のシート1とシート2で値段が違う場合はあるのかないのか？

>>608
Excelのみ、VBA無し
ではできない。
PowerShellでも使ったら。

>>610
値段の違うものは#なり番号なりで区別するつもりでした

>>611
VBAが必要なのですね。これを機に勉強することにします

VBA回答可だったか・・・
う〜ん、この場では出来ないと考えたほうがいいだろう。

ごめん　>>613 は　>>611 の補足ね

>>608
VBAでできるがExcelに関係ないのでスレチ

>>609
↓これをSheet3に入力すればいい
=Sheet1!A1
=Sheet1!A2
=Sheet2!A2
=Sheet2!A3

>>609
できなくもないが死ぬほどだるいな

Дa

Дaって何？と思ったらyesの意味なのね
いみわかんないわね

だー

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

数式とかの質問じゃないんですけど大丈夫ですかね？
名札みたいなのが作りたいのですが、
ワードアートかテキストボックスあたりを使った時に、文字数が変わってもセルの大きさを変更しないようにするかつ、複数行にならないようにするようなことはできないでしょうか？
（例：志村だと2文字だが、いかりやだと4文字なのでだいぶ長さが変わる）
設定とか見てみたのですが、該当する箇所にチェック入れてもうまく反映されません。
文字サイズはタテに長くなってしまっても問題ありません。
よろしくおねがいします。

>>620
質問の意味がわからん
学生ならまず先生に文章を見てもらってくれ
社会人なら手遅れだ

>>620
要するに枠いっぱいに入れたいってことかね
2つテキストボックスを用意して、
一つは実線の枠、
一つは枠なしで、文字のレイアウト用に使ったらどうかな

>>620
もしかして、「テキストに合わせて図形のサイズを調整する」の逆で、
「図形に合わせてテキストのサイズを調整する」としたいわけ？

>>620
残念ながらExcelのオートシェイプではできません

フォントサイズを図形に自動調整するのは無理かな
配置を均等割付にするとかじゃだめなんかな

>>598
空白セルがなければ、１から昇順で番号を打つのは
手間を掛けずに済むけど、空白セルがあるときはどうやるの？

>>573では、ダミーデータのコピペに手間取ってるみたいだけど、
これより簡単な方法なの？

>>626
>空白セルがあるときはどうやるの？
データ行が多く、途中に空白あるとき、連番がそこで止まっちゃう
という問題ですね。

私の場合ですと、行数が多い時は、初めに画面分割の行のバーで
画面を分けちゃいます。そして上半分には行のトップ。
下半分にはデータの最後の行が表示されるようにしてから処理を
行っています（これは連番に関係なく、常にそうしてます）。
こうすると、１行目から最終行まで選択可能になるので、そこで
１行目にたとえば１と打って、２行目から最終行を選んで貼り付け。
そして、１行目に１、２行目に２と打って、それを選択して
セルの右下をダブルクリックで、最終行まで連番がつく。

文章で書くと大変そうですけど、実際にやってもらうと、簡単に
できるのが分かると思います。いつもデータ行数が多いので
こんな方法を多用してます。

>>626
[Ctrl]+[End]とか使えば簡単だよ

範囲選択なら[Shift]も

>>628-629
間に何度もスペースセルが入ってきた場合に
その方法が使えないんで（大変なんで）質問してるんじゃないかな。

>>630
Excel2002ではできないのか
Excel2003でしか試してなかった
それはスマンかった

Excel2002なんてまだ使ってるバカがいるのかよｗ
今年は何年か知ってるか？

>>632
2012年です
これ以上はスレチなので余所で質問してください

自動計算がオン前提で作るのは
やめたほうがいいのかな

いつの間にかオフになっててエラーでて
かっこ悪い

それで目的が達成されるならいいんじゃね

>>630
[Ctrl]+[End] と [Ctrl]+[↓] を混同してないか?
[Ctrl]+[↓] は空白セルがあったらその手前までしか飛ばないけど
[Ctrl]+[End] なら空白があってもシート全体の最終セルまで行くよ

"シート全体"の最終セルって言い方はちょっとおかしかったね
正しくは"シート全体"ではなく"使用されているセル領域を含む矩形"の最終セルだね。

>>636
出された問題がシート全体を選ぶ問題じゃないからね。

>>636
ごめん
出された問題が使用領域全体を選ぶ問題じゃないからね。

[Ctrl]+[End]で最下行が洗濯できるのはワカッタ

細切れデータがあって空白列を作って連番をどうふるのか教えれ

>>640
連番振りたいならROW関数とか使えばいい

>>640
1行目に1を設定して、2行目以降は+1するとか
例えば、A1に1、A2に=A1+1、A3以降はA2をコピペ

>>641
関数打ってコピーするくらいなら
１，２と売ってコピーする方がまともじゃない？
そもそも、問題の目的でいえば、並び替えするんだから
Row関数使ったら、並び替えたらもとの順番が分からなくなっちゃうでしょ。
目的がめちゃくちゃになってるおー

>>643
1行目にROW関数を入力して、2行目以降はそれのコピー→貼り付け
貼り付け直後はROW関数のセルが全選択されているのでそのままコピー→値の貼り付け
文章にすると長くなるけどたいした操作じゃないよ

１，２と打ってコピー、ってのがどういう方法なのかよくわかんないけど
こんなの各自好きな方法でやればいいと思うよ
どんなやり方でもそんなに手間かかんないでしょ

A1セルに1、A2セルに=A1+1、それ以降はオートフィルすると
10000行やるのに20秒くらい掛かる。
この20秒が手間なのだ。

>>645
10000行目からA2セルまで一気に選択して（名前ボックスでA2:A10000と入れる）
=A1+1
でCTRL+ENTER

>>645
独り言ならツイッターかブログへどうぞ
でもどんなExcelファイルなのかちょっと気になるｗ

>>645 , >>646
もともとの、>>566 の問題分かってる？

>>648
>>566は>>587で既に解決している
この一連の流れは>>626の質問から始まっているって分かってる？

>>626 は >>566 への回答に対して、その方法を質問してるの。

そもそも >>626 自体、
単に連番を打つのは分かってる。
そんな質問してない。

>>650
その通り、だから元々の>>566は既に関係がないわけ

>>652
でも関係ないこと答えてるよ。

もともと質問されてる本人が私だから。

>>653
お前が誰かなんて知るかボケ
>>640の質問に対する回答はもう十分出そろったからあとは好きな方法を取捨選択しろ
回答に不満があるなら改めてテンプレに則って再質問しろ

>>654
質問してない回答してるだけ

こんなIDも出ない板で、コテハンでもないのに

＞もともと質問されてる本人が私だから。

とか、頭悪すぎ

まあ、なにみんな熱くなってんだか

あのー、質問してもいいですか？

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

http://nullpoarchives.orz.hm/uploader/upload/File9916.png
上記のようなデータがあります。

InputBoxで "aa" を入力したら、aaを含むセルを黄色くして
そのセルがある行を抽出し、下記のようにしたいです。
http://nullpoarchives.orz.hm/uploader/upload/File9917.png

サンプルは行・列ともに少ないですが、罫線がないところは
I列〜AC列で5527行あります。
今後も徐々に増えることを考慮して、列はAZ列まで、行は
10000行まで対応できればと思っています。
よろしくお願いします。

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

映画のタイトルをA1に入力すると
自動的にネットから監督名、製作年、俳優名などが取得できるようなものを作りたいと思っていますが
そんなのは可能でしょうか？
DBから取得ではなくあくまでもネットから拾う形にしたいです、


教えてください

よろしくお願いします。
WindowsXP
2003
否
不可
Excelのマクロの記録でピボットテーブルオプションを開き中央広い場所に合計、縦または横の項目に依頼理由と入れましたが、依頼理由を置いた行が黄色になるのはどうしたら修正できますか？
マクロ記録でピボットテーブルはできないのでしょうか？

>>658
>>127とか参考になるんじゃない？

>>659
可能です
>>564が参考になるでしょう

>>660
マクロの記録というのは、一連の操作を記録してVBAのコードとして出力する機能ですよ

>>661
過去ログで似たようなのがあったなぁと思いながら>>127を見ましたが、
抽出できませんでした。セルの色は後回しにして、作例で再度試しましたが
3行目のみが抽出され、他は13行目以降の空白だけが抽出されるという
お粗末さです。

Sub 絞り込み()
Dim key As String
key = "*" & InputBox("検索キーワード") & "*"

Range("I2").Value = "タイトルI"
Range("J2").Value = "タイトルJ"
Range("K2").Value = "タイトルK"
Range("L2").Value = "タイトルL"
Range("M2").Value = "タイトルM"
Range("N2").Value = "タイトルN"

With Sheets("Sheet2")
.Range("G1").Value = Worksheets("Sheet1").Range("G2").Value
.Range("H1").Value = Worksheets("Sheet1").Range("H2").Value
.Range("I1").Value = Worksheets("Sheet1").Range("I2").Value
.Range("J1").Value = Worksheets("Sheet1").Range("J2").Value
.Range("K1").Value = Worksheets("Sheet1").Range("K2").Value
.Range("L1").Value = Worksheets("Sheet1").Range("L2").Value
.Range("M1").Value = Worksheets("Sheet1").Range("M2").Value
.Range("N1").Value = Worksheets("Sheet1").Range("N2").Value

続き

.Range("G2").Value = key
.Range("H2").Value = key
.Range("I2").Value = key
.Range("J2").Value = key
.Range("K2").Value = key
.Range("L2").Value = key
.Range("M2").Value = key
.Range("N2").Value = key

Range("G3:AC10000").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("G1:N2"), Unique:=False
End With
End Sub

>>665
同じ行にキーを設定するとAND条件になってしまうので、
OR条件で検索したいなら全部違う行に設定しないとダメだと思うよ
G2、H3、I4、…、N9みたいに
データ→フィルタ→フィルタオプションの設定と同じなので
まずはマクロを使わず期待通り動くか試してみたら？

あとセルの色は書式置換でやれば簡単かな
Application.ReplaceFormatとRange.Replaceで
これも、編集→検索→置換で同じ事ができるので試してみたらいいと思う

検索対象がG列〜AC列まであるのか・・・・
じゃあ見出しと検索条件もG列からAC列まで入れないとダメだと思うよ

>>664
フィルタじゃないけど、UsedRangeで書いてるけど
Sub a()
Dim key, t
key = "*" & InputBox("検索キーワード") & "*"
ActiveSheet.UsedRange.EntireRow.Hidden = True
For Each t In ActiveSheet.UsedRange
If t.Text Like key Then
t.EntireRow.Hidden = False
End If
Next
End Sub

>>659
ネットから取得したいというのは
データを用意せずに、世界中のWeb上に転がっているデータから
抽出したいということでしょうか。それを前提にこたえれば、
次のようになります。

検索エンジンと連携する必要があるのですが、これは
難しくなく、その情報があるWebページを取得することでよければ
それも難しい問題ではない。

なんですが、その情報を（ある程度）正確にその部分だけ持ってくると
いうのは、至難の業になります。
この辺は近年研究が進んで来ているんですが、公開された物は少ないと
思います。たとえば、文字からではないがiPhoneのsiriなども、同じような
技術を使っています。それができれば、そのまま商売できます。という代物です。
もうひとつ、セマンティックウェブという考えが合って、そういうものが
当たり前になれば、簡単に採って来られるようになります（あくまで将来）。
ということで、Excelとは関係ない部分が問題になります。

自分でWeb上にデータを用意しておく、ということであればその限りでは
なく問題はなにも無いですけど。

>文字からではないがiPhoneのsiriなども、同じような
>技術を使っています。
勘違いするといけないので補足しときます
SiriがWebを読んでいるという意味ではなく、構文を解釈する部分の
技術のことね。

質問に合わせてヘタクソな文章にする必要はないのに

データベースのワークシートをピボットテーブルで見ると表っぽくて見やすいんですが、
その状態で入力というかデータの更新をするにはどうしたらいいですか？

無理

無理ですか・・
何かいい方法あったら教えてください。

>>672
それはExcel側の問題とは異なる。
DB側に寄った部分でそういうソフトを作る（やりたいと言う事は、そういうニーズもあること）か、
そのためにExcelを使っても良いが、それはピボットテーブルでなく、新たにそういう
アプリをExcelで作らないとできない。
似たようなツールがDBに用意されてない？

>>674
そのExcelファイルを見てみないとなんとも言えない
どっか適当なアップローダに上げてよ

ピボットテーブルは集計の結果表示だろ？不可逆だ
それを例えば更新したとして
どうやってデータベースのデータに展開出来ると思ってんだ？

データベースのカード型とかフォーム入力ならわかるが

>>672
ピボットテーブルをコピーして別のセルに値の貼り付けすれば入力できる

ピボットテーブルの値を修正して印刷したい、とかならそれでもいいが

なるほどピボットテーブルは不可逆ですよね。
ではとりあえずフォームで、と思いましたが
データ＞MS ACCESSのフォーム　とやってみたところ
「MSACCESSのフォームまたはレポートの作成中にエラーが発生しました」
となりました。どうしたらいいですか。。

>>680
>>676
状況を詳しく説明できないならモノを見せろ

>>680
元のデータベースにフィルタかけたりして見やすくすればいいんじゃないの

サンプル作ってみました。そしたらフォームは通りました。元のデータはお見せすることはできません。申し訳ないです。

サンプルどこにうｐればいいですか？

お前が聞くなよバカか
まさか聞かないとわからないのか？

板やスレで指定場所がないかなと
ttp://www1.axfc.net/uploader/File/so/77203.xls

ピボットテーブルとフォームはいったん置いといて、
先月分の実績に、連絡事項が追加されて渡されて
それに今月分の実績を入力して返すって感じなんですが
量も多くてワークシートのデータベースのままだととてもやりづらいです。
みなさんならどういう方法をとりますか？

うわ
なにそれ
小学生はExcel使うなよ
VLOOKUP程度のレベルか

スレチなので余所で質問してください

VLOOKUPがなんだって？

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

４０名のクラスにＡ／Ｂ／Ｃの成績ランクを５科目に付けました。
これにＣを一個でも付いた人の人数を数えたいのですが・・・

=IF(1<=COUNTIF(A1:E1,"c"),TRUE,FALSE)
これで４０人分のTRUEを数えてという感じで作りました。
一応完成はしたのですが、もっと簡単な方法があったような気がするのですが気のせいでしょうか？
もしくは自分ならこうやるぞみたいなのがありましたらお教え願います。

>>685
何をどうしたいのかってのがよくわかんないな
今月分の実績を楽に入力する方法？
連絡事項に書かれた内容を今月分の実績の表に対して更新かける方法？

>>689
十分簡単だと思います
IF関数は余計だと思いますが

1 OSの種類 win7
2 Excelのバージョン Excel2010
3 VBAが使えるか いいえ
１件あたりの処理時間を出したいのですがうまくできません
A1に要した時間30分、B1に件数50件、C1に1件あたりに要した処理時間を

>>692
がんばれ

>>692
=A1/B1
(´・ω・｀)

>>685です。

>>686　すいません、VLOOKUPは使ったことありますがこの場合何に使うのでしょうか。。
>>687　データベースのまま扱えということでしょうか。しかしこれは変更できないので、なんとかヒントだけでも。
>>690　まさに今月の実績を楽に入力する方法です。連絡事項は今月分とは限らず更新されない雑多な情報も含んでますです。。

>>695
先月分の実績の表があって、その上に「今月の実績データ」と「連絡事項」を上書きしたいの？
Before/Afterと使用されるデータの形式がわからないので答えようがない

中途半端な回答ばっかりなのはあなたの質問からやりたいことが読みとれないからだよ
Excel以前の問題だ、まずは質問内容を上司に添削してもらうところから始めたらどう？

先月分の実績表に連絡事項は追加更新されたものを受け取って
そこに「今月の実績データ」を上書きして、それを返す。
サンプルに書いたつもりでしたが
商品名と数量の実績を上書きしていきます。（基本は先月の実績とイコールです）
普通は同じデータベースソフトで同じデータを共有していくのでこんなことで悩まないのですが、
説明もうまく出来なくてすいません。

>>697
サンプル.xlsの「先月の実績」って表がBeforeで、「今月の実績」って表が更新すべきデータってこと？
「今月の実績」って表をインプットとして、「先月の実績」って表に上書きしていくの？
ピボットテーブルとかフォームとかどう関係しているんだ？
マジで意味わかんないので、エスパーが現れるのを期待しましょう

先月の実績って表をもらって、
今月の実績として更新して返して、
次の月にはそれが「先月の実績」として帰ってくるんですが、
その際に連絡事項が更新されてるかもしれないということです。
んで、更新の際にこの表のままでは扱いにくいので
なんかいい方法ないですか？

上司に添削してもらってこれか・・・・
もらうとか、返すとか、帰ってくるとか、扱いにくい、とか、どうでもいい情報はいらないよ

サンプル.xlsを元に具体的に言うと、C14:G19を見ながら、
E6セルに“AAA”って入力して、F7セルに“20”って入力できればいいってこと？
もしこれを楽にやりたいってことならVBAになる

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

罫線を引いても引いても、保存したファイルを再度開くたびに消えてしまう。
罫線以外の値は正しく保存されています。

シート数が多くなると顕著に出てくる気がします。
何か改善策は有りますでしょうか。

連絡事項を見てその通りに「今月の実績」の表を修正するってことなのかな？
先月の連絡事項と今月の連絡事項を比較して変化してるとこだけ背景色替えるとかしたら
やりやすいんじゃね

アホな仕事してるだけだろ
そもそもが普通じゃないんだしわかるわけない
やめとけ

それか更新情報だけ貰え

C2:G7が先月実績＝仮の指示で、
C14:G19が今月実績ってこと？
連絡事項はよくわからんが

ムリムリ
元々データベースを集計して表示させたものがピボットなんだから
不可逆なことは無理っつってんだろ
何のためのデータベースだよ
データ変更は専用のフォーム作るか、普通にデータベース更新しろ

>>701
保存形式間違ってんじゃね？

>>701
拡張子 .xls で保存しろ

>>706-707
現状がxls形式で保存していたので、2010形式でしばらく様子を見てみます。

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

マウ筋の設定で右クリック押しながら左クリックやホイールを押すとシートの切替をできるように
設定していたのですが
2010になってから上手く作動しません
右クリック押しながらホイール等を連打すると「officeのアクセスキー」という表示がでてきます


2003では問題なく連打で切替できましたので同様にしたいですが何か策はありますでしょうか？
リボンのショートカットキーが悪いのかなとも思いましたが無効の場所が見つかりませんでした

キーボードでctrl+page upでは切り替えられます

>>709
連打？？？

>>685です。
みなさんありがとうございます。
>>700　>>704のとおりです
>>702　変化してるところだけ色を変えたりっていいですね。
>>703　アホな仕事だと思います。。。
>>704　そです。連絡事項は変わってたら見つけるようにします。
>>705　フォーム！
前にフォームのアドバイスを頂いて「MS　ACCESSフォーム」を見てしまいましたが
EXCELにもフォームがあるんですね。これは光が見えてきたような気がしてきましたーー
先月実績をフォーム+サブフォームで見て変更があればそのまま更新して
上書きしたものが今月実績になる、と。
とにかくやってみます。ありがとうございました。

なんだろうこのモヤモヤ感

>>710
右クリックを押したままで左クリックを連打したら
ctrl+page ｕｐの設定が効いて
シートが順に変わっていくということです

今では最初の一つ目すら機能せず

>>709
マウ筋の動作環境にWindows7は含まれてないよ
http://www.piro.cc/software.htm#mausuji

>>713
どうでもいいけどクリックじゃなくてボタンだよ
言いたいことはわかるけどね

>>714
マウ筋　liteなんです　すいません

Excel2010です
最上と最左
両方ともウィンドウ枠の固定をやりたいのですが
どうすればできますか

>>717
B2セルを選択して「ウィンドウ枠の固定」をクリック

ウィンドウ枠の固定は、2003までは初心者に分かりにくかったけど、2007以降はもっと混乱させるようになったと思う・・・

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

2007と2010ですが、行で並べ替えをするとき、
罫線も一緒に動かすには
どーすればいいの？

>>720
う〜〜む、さすがその機能は聞いたことないな

罫線のプロパティでセルにロックするとか

2003で標準設定のままで出来たけど？

2003では無理だぞ。
2007、2010は知らん

>>720
VBA

2010 excelで
ルーラーの単位を変更する方法
[ファイル]タブの[オプション]を実行し、[詳細設定]を選択します。
「表示」で「ルーラーの単位」で使用したい単位を選択します。

とあるんですが「ファイル」タブがありませんし
「オプション」も実行できませんしその後もつづけません。
どうすればこの作業にたどれるんでしょうか？
よろしくお願いします。

>>726
ホームタブの左隣の深緑のタブに”ファイル”と書かれてないかい？

>>727
吊ってきます・・・
気を見て森を見・・・

　　　　英語　数学　世界史　地理
Aさん　80　　90　　 75　 （なし）　　
Bさん　80　　80　　　（なし）　　60　　　　
以下続く
こんな表を、

Aさん　英語　80
Aさん　数学　90
Aさん　世界史　75
Bさん　英語　80
Bさん　数学　80
Bさん　地理　60
以下続く
こんな風に変換するにはどうしたらいいでしょうか？

>>729
ピボットテーブルかVBA

　　　　英語　数学　世界史　地理
Aさん　80　　90　　 75　 （なし）　　
Bさん　80　　80　　　（なし）　　60　　　　
以下続く
こんな表を作ったやつを恨め
データが死んでいる

>>731
よくある表だと思うが・・・？
まぁピボットで縦に並べてちょいちょいといじったら終わり

ピボットテーブルは集計には使ったことがあるのですが
縦に並べるとはどういうことでしょうか？

>>733
行に名前
データに英語、数学、世界史、地理
これで縦に並ぶでしょ
完全に>>729の形にはならないのでちょっと加工が必要だけど大した手間じゃない

↑すいません
行フィールドに氏名、データフィールドに科目を突っ込んだら縦に並びました。
Aさん　英語　　80
　　　　　数学　　90
　　　　　世界史　75
　　　　　地理
Bさん　英語　　80
　　　　数学　　80
　　　　世界史
　　　　地理　　60

科目の空白にはNullでも入れるとして、氏名がひとつづつしか表示されていないのを
同じデータで埋めるにはどうしたらいいでしょうか？

>>734
更新してませんでした。ありがとうございます

>>735
色々方法あると思うけど例えば、

名前　科目　点数
Aさん　英語　　80
　　　　　数学　　90
　　　　　世界史　75
　　　　　地理
Bさん　英語　　80
　　　　数学　　80
　　　　世界史
　　　　地理　　60

って表だとすると、フィルタで名前列を空白セルで絞り込んで空白セルを全選択して
=IF(ISBLANK(A2),A1,A2)
を[Ctrl]+[Enter]で一気に入力して、フィルタ解除して名前列全選択してコピー→値の貼り付けで数式を消す
とか

↑のピボットテーブルやろうとしたけど、うまく行かない
2010のピボット嫌い

>>737
何書いてんだ俺、恥ずかしい

× =IF(ISBLANK(A2),A1,A2)
○ =A2

>>738
全てをピボットテーブルでやる必要はないと思うけど
ピボットテーブルをコピペして普通の表にしてから加工すればいい

科目数が一定だから、名前の下の数も一定ってのがヒントになるかとかいろいろ悩みましたが

>>737
できました！！！超うれしいです！

しかし空白セルを選んで最初に=A2だけを下にフィルするだけでなんでこうなるんでしょうか？？
すごく不思議です。ともかくありがとうございました。
※[Ctrl]+[Enter]は効きませんでしたので、マウスでドラッグしました。

>>722
罫線のプロパティってどこですか？

>>725
も少し具体的に書いて頂けませんか？

列全体に関数を適用させるにはどうすればいいのでしょうか

例えば、
A1からA10までデータが入っていたのでB1からB10までは隣のセルのデータを利用した関数を入れた
新たなデータが入ったのでA11にはデータを入れた
この時にB11は自動で関数が適用されるようにしたいです

予めドラッグでコピーする範囲を大きくして、空白なら何も表示しない、データがあったら関数
というIFを使う方法を考えたのですが、そのコピーした範囲も超えてしまいました

テーブルつかえば、行が増えれば自動で計算式も入る

>>743
名前ボックスにB:Bと入れB列全体を選択しフィル→下方向へコピーを選択すると
B列全体に関数が入ります。

【1 OSの種類 　 　 　 　 .】 Windows(32bit)
【2 Excelのバージョン 　 】 Excel2010

最も安くExcel2010を手に入れる方法を教えてください
WordとかPowerPointとかOutlookとかAccessとかは無くても構いません
物理的なメディアはなくても構いません(ダウンロード販売とかでも構わない)
ちなみに学生ではありません

スレチ

>>746
たしかフリーでExcelに似たソフトがあったとおもう。
Office Organizationなんとか、みたいな名前だったかも。

>>747
死になさい

ゴメン、テンプレの最後に技術的な質問のみって書いてあった
当面2003で頑張ることにする

マクロをキーボードショートカットに登録したいんですが
Ctrl+「」だけだといろんなショートカットとかぶりそうです。
標準的なショートカットとかぶる可能性が低いのは
どのキーでしょうか？

>>750
http://www.microsoft.com/japan/enable/products/keyboard/default.mspx

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

営業A〜Eおよび部長、リーダーのシフト表から
近3日の出勤名簿をVLOOKUPで出力(行＝日付、列＝名前)し
出勤名簿から担当営業場所へと出力したい

基本的に営業は1人につき1エリアを担当する(エリアAを営業Aといった形)
各営業(営業A〜E)が休みの日は部長とリーダーが代わりに営業へ出かける

部長はA〜Eの5エリア、リーダーはC〜Eの3エリアを担当出来る

部長がABエリアのどちらかを担当している日に
C〜Eエリアの営業が休みであればリーダーが担当

営業ABが出勤で営業C〜Eの誰かが休みの日は部長が優先的に担当

エリアABの担当者はABが同日に休むことがないので
if(営業ABが休み,部長,営業AB)として抽出した

エリアC〜Eの担当者は
if【営業C〜Eが休み,if(and {営業Aが出勤,営業Bが出勤} ,部長,リーダー),営業C〜E】
※括弧は説明しやすく使い分けただけ
※各営業および部長、リーダーはシフト表から出勤名簿へVLOOKUPで出力されたものを使用

としたのだがエリアC〜Eの判定が上手くいかない
部長がエリアAorBを担当していてもエリアC〜Eの代打として担当してしまう状況
ご教示お願いします

>>752
どこがExcelの質問なんだ？
単なる判定方法の質問でしょこれ
完全にスレチ

>>750
自分が普段使わないショートカットなら被っても気にせず使えばいいんでない？

>>752
部長よりリーダーを優先したらどうだろう
役職的に部長よりリーダーの方が下でしょ？
リーダーがいるのに部長が出て行くのはちょっとおかしいと思う

ヒント 名ばかり管理職

if【営業C〜Eが休み,if(and {営業Aが出勤,営業Bが出勤} ,部長,リーダー),営業C〜E】の
「営業Aが出勤」と「営業Bが出勤」の判定式が間違ってると予測

if【営業C〜Eが休み,if(and {営業Aが出勤,営業Bが出勤} ,部長,リーダー),営業C〜E】の
「営業C〜Eが休み」の判定式が間違ってると予測

>>752
部長が2人いるとか？

組織図のうpが必要か。

Windows版・エクセル2010にて質問があります

A1セルの中に追加で文章を入れたいのですが
ENTERキーで改行をさせると
A2セルにカーソルが移動してしまいます、

A1セルの中に改行して文章を追加したいのですが
操作方法を教えて頂けませんか？

>>761
ヘルプぐらい読め
http://office.microsoft.com/ja-jp/excel-help/HP010342494.aspx

>>761
Alt＋Enter

ありがとうございます

>>761 より

フィルタかけてるとマウスでオートフィルが効きません。
キーボードショートカットで何とかなりませんか？

↑完全に間違えました

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

日にちから期限を求め分類する式を簡単にする方法を教えてください。
いまは３つのセルを使用しています。
例a1に４月１日と入力しｂ１に１０日以内を表示しｃ１に１と表示。１０日以上をｃ１に２と表示する。
　　　　ａ　　　　ｂ　　　　　　ｃ　　　ｄ
１　4月1日　4月10日　　　１　　today

ｂ１にａ１＋9
ｃ１に=IF(A１="","",IF(today>ｂ１,１,２))
よろしくお願いします。

>>767
質問の意味が全くわからないんだけど、こういうこと？な訳ないよな・・・
=IF(A1="","",IF(TODAY()>(A1+9),1,2))

>>768
こうじゃない？
=IF(A1="","",IF(TODAY()<(A1+9),1,2))

>>769
式が簡単になりました。ありがとうございます。

上でピボットテーブルの質問してた人へだが、複数のワークシート範囲でピボットテーブル作って右下の総計のセルをダブルクリックすりゃ簡単。

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

テキストボックスに書いた文字が印刷時、微妙にずれてしまいます。
印刷プレビュー見ながら調整しても、やはりずれます。
解決法を検索してみたのですが、諦めるしかなさそうなのですが、やはり諦めて作り直すしかないのでしょうか。
どうかよろしくお願い致します。

作り直してもずれるから印刷結果見ながらちょうどいい位置になるように調整するしかないよ

>>772
印刷を主眼に置いてるんだったらExcel以外のソフトを使った方がいいよ

>>773 >>774
ありがとうございます。印刷プレビュー見ながら調整して、次回からは別のソフトを使う
ようにします。

時刻の引き算でマイナスになると表示されなくなるんですが
ちゃんと−の記号とそのあとに時刻を表示させるにはどうしたらいいですか？

あのー、720ですが誰かご回答をお願いします。

>>777
>>725

>>776
Excel 時刻 マイナス
でググれ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
よろしくお願いします

予定表で日曜日のセルを自動で塗りつぶししたい。
条件付き書式を使って曜日を入れているセルは色を付けられたのですが、その日の予定欄（隣のセル）にも色を付けたいのですがやり方が分かりません。

A　　　　B　　　　　Ｃ
日付　　曜日　　予定入力欄

B2〜B31までは文字列「日」の指定のみで出来ました。
Ｃ列は隣のＢ列に文字列「日」が入っていれば塗りつぶすという指定をすれば良いと思ったのですが、書き方が分かりませんでした。

>>780
=WEEKDAY(A2)=1

>>778
742で、具体的に書いてとお願いしてますが、
「具体的」の意味が分からなかったのでしょうか？

>>782
コードを貼り付けるかブックをアップしてくれないと第三者には分からないよ
「具体的」にどのコードのどこがどうわからないの？

>>782
>>1
>丸投げする場合は､必要に応じてブックをアップすること。

オートフィルタで、複数の列でOR条件にするにはどうしたらいいんでしょう？

例えば、B列で100以上またはC列で1000以上、という条件です。

>>785
フィルタオプションの設定で検索条件を異なる行に設定するとOR条件になる

自分なら作業列つくってORでフラグ立つ式をいれて、そこでフィルタかける

>>786
ありがとうございました。出来ました。
B列　　　C列
>100
　　　　　>1000

>>781
解決しませんでした
今、規制中なので解除されたらまた改めて質問させて頂きます。
>>780も今回も代レスして頂きました。

「マスタ」シートに
タカ
トラ
・・・・
バッタ

と、アイテムが並んでいる。アイテムは何十個かあるし、どんな名前のが並ぶか規則性はない。
そして「データ」シートに

タカ,100
クジャク,20
バッタ,50
クマ,90

という感じでアイテム・数字が並んでいる。この中で「マスタ」シートに存在するアイテムの数字だけを合計したい。
SUMPRODUCTだと、(A1:A100="バッタ")みたいな指定はできても、「マスタ」シートに存在する多数のアイテムと合致するものの合計というのは、
出せない気がする。どうしたらいいでしょうか？マクロじゃなく、計算式でお願いします。

>>790
「マスタ」シートに作業列を作ってSUMIFでマスタデータ毎に集計をしてそれをさらにSUMする
もしくは
「データ」シートに作業列を作ってFIND等でマスタに存在するか否かのBOOL値をセットして、
SUMPRODUCTでTRUEの行のみ集計する

その前に、「データ」シートの1セルに“タカ,100”の形式で値が入力されているのであれば、
作業列を作って名称と数値に分解しないと無理

A列　　B列
1　あ　　　　X
2　あ　　　　Y
3　あ　　　　Z

4　い　　　　X
5　い　　　　Z

6　う　　　　　X
7　う　　　　　X

というデータで、
1　あ　　　　XYZ
2　あ　　　　XYZ
3　あ　　　　XYZ

4　い　　　　XZ
5　い　　　　XZ

6　う　　　　　X
7　う　　　　　X

というように、ある列のキーに含まれる項目を一つのセルに文字結合させる方法はありませんか？
（6,7　XXになっても構いません）

Excel2010　＆　マクロ可能です。
よろしくお願いします。

>>791
試さずに書いてゴメン
後者はFIND関数とSUMPRODUCT関数じゃなくて、MATCH関数とSUMIF関数でした

>>792
ピボットテーブル使って、それを加工して、加工した値をVLOOKUPすればできるだろうけど
正確な要求仕様がわからないのでVBAで作り込んだ方がいいでしょうね

指定範囲の一列目で検索値を探してマッチする行の列番号のデータを結合する関数
=Ketugo(指定範囲,検索値,列番号）
C1に「=ketugo($A$1:$B$7,A1,2)」を張り付けて下にコピー

Function Ketugo(Hani As Range, Atai As Range, iti As Integer) As String
'hani=データ範囲、Atai=検索値、iti=結合するデータの列番号
Dim R As Range
For Each R In Hani.Resize(Hani.Rows.Count, 1)
If R.Value = Atai.Value Then
Ketugo = Ketugo & R.Offset(0, iti - 1).Value
End If
Next
End Function

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

出荷予定表2012_1.xlsへ、注文表2012.xlsに書かれた数量を書き足してます。
注文表の日付に対して、1日前倒しにした数量を出荷予定表に書きたいのですが
休日を避けなければなりません。休日は2行目のセルが着色されています。
ただ単に、1日だけずらすのは作れましたが、休日を避けるには
どうすればいいでしょうか？

Sub test1()
　a = "出荷予定表2012_1.xls"
　b = "注文表2012.xls"

　Set a1 = Workbooks(a).Worksheets("4月")
　Set b1 = Workbooks(b).Worksheets("4月")

　For j = 4 To 34
　　For i = 3 To 17 Step 2
　　　If IsNumeric(b1.Cells(i, j)) Then
　　　　If b1.Cells(i, j) > 0 Then
　　　　　a1.Cells(i, j - 1) = a1.Cells(i, j - 1) + b1.Cells(i, j)
　　　　End If
　　　End If
　　Next
　Next
End Sub

- 続き -

出荷予定表2012_1.xls
http://www1.axfc.net/uploader/File/so/77539.xls

注文表2012.xls
http://www1.axfc.net/uploader/File/so/77540.xls

出荷予定表2012_2.xls
http://www1.axfc.net/uploader/File/so/77541.xls


出荷予定表2012_1.xlsが追記前のファイルです。
これに、注文表2012.xlsのデータを追記して、出荷予定表2012_2.xlsのようにしたいです。

>>796
「休日を避ける」の意味がよくわからないけどこんな感じ？

k = 1
While a1.Cells(2, j - k).Interior.ColorIndex <> xlNone
k = k + 1
Wend
a1.Cells(i, j - k) = a1.Cells(i, j - k) + b1.Cells(i, j)

注文表2012.xlsのE列に数値が入っていたときの仕様が考慮されていないので
このままだとエラーになるけど

>>798
ありがとうございます。
「休日を避ける」の意味を汲んでくださった結果になってます。
ご指摘のように、月初に休日がある場合はエラーになりますね。
その場合は、シート3月に繰り越すので、なんとかやってみます。

While〜WEndなんて初めて見ました（＠＠；
Do While〜Loopと何が違うんでしょうか？

>>799
>While〜WEndなんて初めて見ました（＠＠；
>Do While〜Loopと何が違うんでしょうか？

Excelに関係ないのでスレチです
ヘルプ読むなりググるなり余所でやってください

Do Whileは絶対1回目は実行されて最後で再度ループするか判定
While Wendは合致しなければ1回も実行されない

>>801
いくらスレチな質問でも嘘を教えてやるなよ・・・
http://support.microsoft.com/kb/141762/ja

>>802
違うの？

>>803
違うよ

Do While ***
処理
Loop
は場合によっては一回も処理されない。

Do
処理
Loop While ***
は必ず一回処理される。

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

ユーザーフォーム内のテキストにかっこが含まれているか調べるマクロがうまく動作しません
どなたか原因教えてもらえませんでしょうか、また解決方法も教えてもらえると助かります
とても見にくいかもしれませんがコードです

Private Sub CommandButton1_Click()
'かっこ検索

Set Obj = UserForm1.TextBox1
If Not Obj.Find(")") Is Nothing Then
MsgBox "()が含まれています"
ElseIf Not Obj.Find("（") Is Nothing Then
MsgBox "()が含まれています"
Else
MsgBox "()はありません"
End If
End Su

>>806
> 原因教えてもらえませんでしょうか
TextBoxにFindメソッドがないから

> 解決方法も教えてもらえると助かります
String型の変数に代入してInStr関数使うとか正規表現使うとか色々あるけど、
ここはExcel総合相談所なのでスレチだ

>>799
>While〜WEndなんて初めて見ました（＠＠；
>Do While〜Loopと何が違うんでしょうか？

動きは同じ
Do While〜Loopで書く方が好ましい

スレチ厨は何が楽しくて生きてるんだぜ？

>>809
その質問はExcelに関係がないのでスレチですね

何度目だよこの流れもう飽きた

>>806
Private Sub CommandButton1_Click()
Set Obj = UserForm1.TextBox1
If InStr(Obj.Text, ")") Then
MsgBox "()が含まれています"
Else
MsgBox "()はありません"
End If
End Sub
でいいんじゃないの
>>807
エクセル"総合"スレなのにvba除外ってどういうことなのか教えて欲しいんだが

>>812
このスレではテンプレが一気に削減されて知らない人がいるかもしれないけど
前スレまではExcelに関係のないVBAの質問はお断りだったんだよ
ExcelVBAの質問スレでもそうだけどね
個人的にはそんなにガチガチに線引くことないと思うんだけどな

>>806
If UserForm1.TextBox1.Value Like "*[()]*" Then
MsgBox "()が含まれています"
Else
MsgBox "()はありません"
End If

いっそ誘導しようか。

Excel VBA 質問スレ Part23
http://toro.2ch.net/test/read.cgi/tech/1327763113/

Excelに関係のないVBAって・・・

VBAのAは何か知つてるのかひ？

>>816
まぁ、Wordとか他のoffice製品にもVBAは乗ってるからね。「excelに関係無いVBA」もあるにはあるな。
あげあしとりだけど。

てゆーか、

>>807　ここはExcel総合相談所なのでスレチだ　　　の意味がﾜｹﾜｶﾒなんですｹﾄﾞ…

>>815
>ExcelのVBAに関する質問スレです
>★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

ダメじゃんｗ

>>818
デパートへ行ったとする
トイレに行きたいとき総合案内で聞くのは場違いってことだ

>>820
それ総合案内の正しい使い方じゃん

VBA専用スレがあるんだからスレチだよ

>>820の例えがおかしい

デパート出すなら、売り場の商品の仕様について、売り場の店員にではなく
総合案内まで持って行って説明を求めるようなものだ

>>822
総合相談所なんだから、スレチと書いて突っぱねないで
適切なスレに誘導すればいいんだよ。
子供じゃないんだから、それくらいはお前にもできるだろ？

あるとは限らんし。
なくてもここではスレチ。
子供じゃないんだから、スレを探すくらいは質問者にもできるだろ。

メディアに騙されて、民主党へ投票した人へ

橋下維新が国政にでるそうです。
民主が売国だから次の選挙では、日の丸を大事にするイメージで橋下維新に投票は絶対だめです。
橋下も人権法案、外国人参政権、夫婦別姓等推進する民主以上の超売国です。
民主がメディアで作り上げて選挙に勝ったのとおなじように
メディアは今も在日支配であるのにもかかわらず
なぜか、橋下は日教組、労組を叩くヒーローみたいな扱いで報道されており
民主に騙された層の受け皿が維新だと、橋下のパフォーマンスで刷り込んでる最中です。
維新に投票したら、今回の民主に投票したのと同じ、それ以上に酷いことになります。
簡単に言えばやらせです、民主、維新、見た目は違いますが中では通じているようです（ﾊﾞｯｸは中国、韓国）。
民主対維新の構図を作り上げ、もう一度日本国民を騙そうとしています。

在日は、とっくに次の選挙のため対策を周到に準備して実施している。

自分もいろいろな場面で指摘します。

個別のURLを張ると削除されてしまう可能性もあるので
最初「橋下　売国」　くらいで検索してそこからいろいろたどって、自分で確認してみてください。
そのとおりだと思ったら、個々に情報発信してください。

ググりましたがＶＢＡを読み解ききれず、自分がしたい処理の為には
どのような編集が必要なのかわかりませんでした
御教授願います。

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

家計簿のようなものの費目別集計なのですが
列Ｇ・Ｈ・Ｉにそれぞれ日付・金額・小計が入ります
表最下部には合計を入れます。
１行入力する度に書式を引き継いだ空白行を合計行の上に自動挿入するには
どのようなコードを組めば宜しいでしょうか。

尚、Ａ〜Ｅ列には別の表がありＧ〜Ｉ列には費目毎に表を複数入れたいと思っております。

よろしくお願いします。

>>827
WorksheetのChangeイベント使ったらどうでしょう

>>828
そこまではなんとなくわかったんですけど

>>828
すいません誤投。。。

それはなんとなくわかるんですけど
ＶＢＡ組めるわけじゃないのでどう組めばいいのやらサッパリなのです。

そこまでの図々しいのは怒られちゃいますかね

>>830
G2〜I2が最終行、G3〜I3が合計行だったとして、
それを1行下に書式のコピペをするならこんな感じ

Range("G2:I3").Copy
Range("G3:I4").PasteSpecial Paste:=xlPasteFormats


丸投げしたいならブックをどこかにアップすれば優しい人がやってくれるかもしれないよ

>>827
最下行が合計行なら行挿入は必要ないと思われるが、、、
行の中で必ず入れる項目（セル）の値が変わった時をイベントにすれば行挿入、
その時日付や費目、累計式を前の行から持ってきたい、というのかな？

>>831 >>832
レスいただいて大変申し訳ないのですが
丸投げ希望です！テンプレに記載ありましたね、すみません。

常に次入力できる空白行があるようにしたいんです。

http://xfs.jp/MG0SS

これで大丈夫ですかね

行数が表毎にまちまちになるので、都度行を挿入していくような形をとりたいのです。

あー、これならvbaでなくてok。
簡単なのは印刷領域外に科目別に列を作って仕訳、それをsumすればいい。
で別表に代入ですね。

>>835
やっぱそうしろって感じですかね
それなら自分にもできるよなーと思ったんですけど
自動挿入してくれたら素敵やん？と思ってしまいまして。。。

↓かなり雑だけどこんな感じ？MACで動くかわからないですが

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Count = 1 Then
If (.Column) = 8 And .Value <> "" And .Count = 1 Then
If .Offset(1, -1) = "合計" Then
Application.EnableEvents = False
With Range(Target, .Offset(0, -1)).Offset(1, 0)
.Insert shift:=xlShiftDown
.Borders(xlEdgeTop).LineStyle = xlNone
End With
Application.EnableEvents = True
End If
End If
End If
End With

End Sub

そもそも最初から費目別の列入れて作れば良かったかなとも思うんですけど
それだと無駄セル多いなーと…

ま、ご覧の通りただの家計簿なんで力量ねーのにこだわるなよって感じですがｗｗ

>>837
！！！
ありがとうございます
試してきます！！！

>>836
例えば、
if mid(cells(n,5),1,1)="食" then range("h3").value=range("h3").value+cells(n,3)
とか即時に計算するタイプにすると、
あとで過去の行を修正した時にも対応しなければならないからね。

>>837
うごきませーん

ＶＢＥ開いてコードぶち込んで保存でいいんですよね？

マクロもＶＢＡも今回の処理の為に初めて触ったのでサッパリなんす
ほんとすみません

>>840
ごめん何言ってるかわからｎ・・・

>>841
こういう感じで
http://excelvba.pc-users.net/fol3/3_6.html

>>833
本末転倒かもしれないけど、B列とC列の間に科目って列を作った方が色々捗るんじゃない？

>>843
お手数おかけします・・・

試したところ虹色くるくる（応答まち？）が出てexcelフリーズ！ぎゃぼ

ちょっと用事すませなきゃならないんで離れます。
その間に復活してくれる事を願うー

みなさんありがとうございます。

まあ普通は左側の表に「費目」っていう列作ってそれを元にピボットテーブルとかで右の表作るよな

>>844
やっぱり？
うすうす気づいてはいたんですけどね・・・

>>846
普通がわからないのでＶＢＡなんぞに辿り着いてしまったのようです・・・
初めての家計簿だよ！


みなさんに頂いた助言通り左表のなかに費目も入れ込んで
単純にＳＵＭで出してく事にしまする。

>>837のコード参考に勉強します。
ありがとうございましたー！

マクロ気になっていたからこれを機にかじろうと思ってたんですけど

>>847
>マクロ気になっていたからこれを機にかじろうと思ってたんですけど

丸投げしといて何言ってんだよｗ

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
>>780で一度質問したものです。

>>781で回答を頂いたのですが出来ませんでした。
http://uproda.2ch-library.com/lib512051.xlsx.shtml
自分で作ったファイルは上記のものです。
ダウンロードキーはexcelです。
日曜日の行は全部赤く塗りつぶしたいと思っています。

曜日の列は、条件付き書式→文字列→日　で色を付けられました。
以上、よろしくお願い申し上げます。

>>849
C2〜G32を選択して、条件付き書式、新しいルールで「数式を使用して・・・」で
=$C2="日"
とすればOK

>>850
ありがとうございます
出来ましたー

新しいルールという所、クリックしたこともありませんでした。
まずはとにかく全部試してみる事ですね。
失礼しました。

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

会社のexcelが、2002から2010になりました。
そこでお尋ねします。

今まで、複数シートの特定の文字を黒塗り潰し白文字に指定するとき、
複数シートを選択し、シート全選択をし、条件付き書式で指定をして
出来ていました。

それが、Excel2010では、複数シートを選択すると条件付き書式ボタンが
灰色になり、使用できません。
他に、やり方があるのでしょうか？

シートの数が何十もあり、特定の文字もランダムにあり、一つずつ設定するのは、かなりロスです。

よろしくお願いします

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

=COUNTIF(a1:a5,"�@")+COUNTIF(a1:a5,"�A")
空白処理についておして下さい。
COUTA関数を使用すれば解決するのですがセルに式（空白処理済み）が入るために
完全な空白ではありません。

>>853
質問内容が理解できないので想像で答えてみる
=COUNTIF(A1:A5,"*?")

>>853
意味分からん
こーゆーこと？
=SUMPRODUCT((A1:A5<>"")*1)

>>854
補足です
=COUNTIF(a1:a5,"�@")+COUNTIF(a1:a5,"�A")
に空白処理を追加するにはという意味です。

>>856
エスパー参上！！
これでどうだ？
=COUNTIF(A1:A5,"*�@*")+COUNTIF(A1:A5,"*�A*")

回答者に伝わるかどうかスレスレのラインで質問するスレですか？

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 初歩クラス
【4 VBAでの回答の可否】 可

日付によって、列を非表示にしたいです。
1日なら何もせず、２日ならF列のみ、３日ならFとG列、４日ならF〜H列、31日ならF〜AI列を
非表示にしようと書いてみましたが、1列しか非表示にできませんでした・・・ orz

Sub 列の非表示()
Dim i As Integer
i = Format(Date, "d")
If i > 1 Then
Columns(i + 4).EntireColumn.Hidden = True
End If
End Sub

よろしくお願いします
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

社会保険料算出をしようと考えています。
http://www.kyoukaikenpo.or.jp/resources/content/91737/20120130-101400.pdf
こういったテーブルが存在して、

佐藤さんの報酬月額　150,000
鈴木さんの報酬月額　240,000
とかデータを入力していって、等級や控除金額を自動で出したいと考えています。
???円以上〜???円未満は○等級という判定方法を可能にするナイスな関数はありますか？


自分で考えてみた方法
力技で、０から1,000円刻みで並べて自力で表を見ながら??円〜??円の間を△等級というテーブルをズラ〜っと作成して、元データは1,000円未満切り上げ＋VLOOKUPで等級を割り出すという方法があるかなと思いました。
こんなことせんでも、範囲指定で出せるぞってのがあれば教えてください。

>>859
Columns(6).Resize(, i - 1).EntireColumn.Hidden = True
とか
Range(Columns(6), Columns(6 + i - 2)).EntireColumn.Hidden = True
とか範囲を指定する

>>860
ルールに従っていて計算式で出せるようなものなら計算式を考えればいいし、
計算式で出せないならテーブル作ってLOOKUPするしかないかと

> 自力で表を見ながら??円〜??円の間を△等級というテーブルをズラ〜っと作成して
PDFからExcelへコピペすればいと思う

>>860
ちょっと補足

> ０から1,000円刻みで並べて
PDFの「報酬月額」をそのまま使えばVLOOKUPでできるよ
VLOOKUPでググればサンプルいっぱいひっかかるから一度ググってみたらどうでしょ

>>856
空白処理ならTRIMの出番
=SUMPRODUCT((TRIM(A1:A5)="�@")*1)+SUMPRODUCT((TRIM(A1:A5)="�A")*1)

>>857,864
どうもありがとうございます。

ぽえーん

>>861
うほっ！
おじちゃん、ありがとう。

【1 OSの種類 　 　 　 　 .】 Windows XP3
【2 Excelのバージョン 　 】 Excel2002
【3 VBAが使えるか　 　 .】 はい(少しです。)
【4 VBAでの回答の可否】 可
アクティブセルが例えば、何行目にあるのかをA1に常に出力する関数と言うものはあるのでしょうか？
現在はVBAにて
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range(Cells(20, 1), Cells(最終, 1))) Is Nothing Then Exit Sub
Dim 行
行 = Target.Row
Sheets("処理").Range("A1").Valse="行"
End Sub
として社内のみなら問題は無いのですが、配布するに当たってVBAがＮＧな会社があり
困ってしまいました。
どうか宜しくお願いします。

>>868
=CELL("ROW")
出力できるけど再計算させるにはVBAが必要になる

>>869
ありがとうございます。
やはりダメですかね。
VBAのＮＧはセキュリティが…っと言うより、単に使い方が判らないってだけなので
セキュリティＬｖ下げても問題はなさそうなんですが、何かあった時が怖いですね…
うーんどうしよう。

>>870
「excel デジタル署名」でググるといいよ

>>871
ありがとうございます。
私自身も試したことが無いので、調べて試してみます。
判りやすい説明のＨＰ探してリンク貼り付けて、判らないなら個別に対応って
感じで上手くいきそうな雰囲気です。

アクティブセルが何行目にあるのかっていうのは目的なのかねぇ〜
何かの手段だったりしないのかねぇ〜
どーでもいいけどねぇ〜

>>210
＞"V5:W5"に求める値が入っている可能性はゼロなので範囲に含める意味がないと思います
亀レスですが、この言葉が聞きたかったのです。ありがとうございました
つまり職場の人が作った計算式はやはり違っていたのですね。ちょうど、キリがいいかんじ
なので、ついつい範囲に含めたいかんじなんですよね〜。ズラすとなんだかスッキリしないといいましょうか･･･

大変な亀レスお礼の直後に何なのですが、セルＡ２にある番号を入れると
隣のシートをVLOOKUPしてセルＩ２にみかん、と入ります。そのあと、セルＡ３、Ａ４
に続けて番号を入れていってもセルＩ３、Ｉ４に必ずみかんと入って欲しいです。
仮にセルＡ５にある番号を打って、間違えてセルＩ５にりんごと表示された場合（参照先の
隣のシートがすでにそうなっているので）セルＩ５がもしくは５行目全般が（セルＡ５からＫ５まで）
色が変わって欲しいです

条件付書式でセルＡ３以下に「セルの値が」「次の値に等しくない」「＄Ｉ＄２」
としましたが、これだと値の入ってない空白のセル（Ｉ１５あたり）も色が
ついたままになってしまうのです。これだと、間違えていることに気づきにくいので
空白セルは白くあって欲しく、Ａ列に間違えた番号を入れた場合のみ、どうにかなって
欲しいのです。つまりＩ列は絶対にみかんならみかん、りんごならりんご、と統一されて
いて欲しいのです。そうならない番号をＡ列に入れてしまった場合気づくような方法が
ありますでしょうか？？　よろしくお願いいたします

>>875-876
質問の意味が理解できないので想像で答えると、
条件付き書式で数式を
=AND(NOT(ISBLANK($I3)),$I$2<>$I3)
にしたらどうでしょうか

>>877
こうじゃないとダメじゃないかな
=AND($I3<>"",$I$2<>$I3)

MS12-027を入れてコモンコントロールを使ったVBAマクロが動かなくなったら
exdファイルを削除してね!
ttp://support.microsoft.com/kb/2664258/
To resolve this issue, you must delete the cached versions of the control type libraries (extender files) on the client computer.
To do this, you must search your hard disk for files that have the ".exd" file name extension and delete all the .exd files that you find.
These .exd files will be re-created automatically when you use the new controls the next time that you use VBA.
These extender files will be under the user's profile and may also be in other locations, such as the following:
C:\documents and settings\username\Application Data\Microsoft\Forms
C:\documents and settings\username\AppData\Local\Temp\VBE

>>876です
それがですねＩ列には=IF(ISBLANK(A18),"",VLOOKUP(A18,隣のシート!$A$2:$H$12102,5,FALSE))
このような式が入っていて、完全にブランクではないんですよ。どうしたものでしょう

>>880
>>878だとどうダメなの？

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

A行に日付、B行に曜日、C行に売上　が入力されている売上報告表があります。
祝日は曜日を入力するB行のセルに「祝」を入力する決まりになっています
毎日その日の売上を入力するので月の途中はC行は全て埋まっているわけではありません

上記のルールで毎月記入されている表から
土、日、祝の前日の営業日の売上合計と売上平均を
算出したいのです
月の売上がすべて入力済みならその月の合計と平均
第2週までの入力なら第2週までの合計と平均を算出する方法があるでしょうか？

取得するセルの条件
1.土、日、祝の前日の売上である
2.土、日、祝のいずれでもない
例：2012年5月、第一週のGW期間だとA行B行はそれぞれ
3日(祝)4日(祝)5日(祝)6日(日)という表記になり、祝前日は2日(水)になる
第2週以降は11日(金)、18日(金)、25日(金)となる
3.月を跨いだ翌月の初日が土、日、祝日でも算出結果に反映したい
例：元旦(1/1)の前日である大晦日(12/31)は祝前日としてカウントされる
4.売上が入力されていないセルはカウントしない(祝前日月に4回ある内の2回が入力済みなら合計を2で割る)

金曜だけ拾ってプラス祝日前を手動で足した方が早そうだが
関数で12か月分を何とか楽したいです

土曜の前日、日曜の全日、祝日の売上合計、平均を算出するの？それとも
土曜、日曜、祝前日　の平均の算出？

条件2の例だと祝前日は2日と書いてあるけど、3日や4日、5日はカウント対象外（お店がお休み）ってことでぉｋ？？

月ごとに別シートor、年ごとに別シートで、1年分の売上はダラダラ1シートに記入？

色々些細なことと思われるけど、仕様がしっかり固まってないと悲しいスレ違いがありそうなんで

>>882
条件を順番に数式にはめていったらこうなった
=IF(OR(B2="土",B2="日",B2="祝"),IF(AND(B1<>"土",B1<>"日",B1<>"祝"),IF(C1="","",C1),""),"")

>>883
細部が不明確で申し訳ありません
年中無休、24時間営業のサービス業で連休前に売上上昇が見込めるので
平日より高く、祝日より低いであろう土日祝日前の日の売上の平均がどれぐらいか？
というような事を知りたいがための質問になります

＞3日や4日、5日はカウント対象外
そうです3日、4日は祝日の前日、5日は日曜日の前日ですが、それぞれ祝日なので
祝前日にあたらない、という考えです
（集計するなら「日曜、祝日」というカテゴリで集計するため）

＞月ごとに別シートor、年ごとに別シート
月ごとに別シートを想定しています、ただし翌月初日が土日祝日であれば祝前日が1カウント増えるので
行数は最大で32行になり31行を範囲指定して合計、平均を算出する、というような考えです

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

集計する日は固定なんだから、作業列に手入力でフラグ立てればいいよ
それがいちばん確実でかんたん

横に長すぎて見づらいので、一行おきに薄く塗りつぶしたいのですが
簡単な方法教えてください。

>>887
条件付き書式で
=MOD(ROW(),2)=0
もしくは
=MOD(ROW(),2)=1

>>888
即答ｻﾝｸｽ！

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

IFERROR関数を2003で使えるようにすることはできますか？
自宅が2003で職場が2007がなもんで
IFとISERRORで同じ結果を出せるのはわかるんですが
短くできるなら短くしたいなと

>>890
http://support.microsoft.com/kb/280094/ja

Book2のA列にあるデータを順次読み取って、Book1のA列に該当するデータを
見つけて処理をします。このとき、Book1のデータに全角文字があっても
半角に変換して見つけたいのですが、作業列をつくらずに出来ますか？
全角を半角にする関数（マクロ）は調べましたが、組み込み方がわかりません。

---Book1-----------------
1Ａ　（←Ａが全角）　　りんご
2B　　　　　　　　　　　 みかん
3c　　　　　　　　　　　 ぶどう

---Book2-----------------
0A
1A
2A

Sub test1()

　Set BooK1 = Workbooks("Book1.xls").Worksheets("Sheet1")
　Set BooK2 = Workbooks("Book2.xls").Worksheets("Sheet1")
　LstA = BooK2.Range("A65536").End(xlUp).Row

　For i = 4 To LstA
　　Set A = BooK1.Columns("a").Find(What:=BooK2.Cells(i, 1).Text)
　　If A Is Nothing Then
　　　'何もしない
　　Else
　　　MsgBox A.Offset(0, 1)
　　End If
　Next
End Sub

>>892
Set A = BooK1.Columns("a").Find(What:=BooK2.Cells(I, 1).Text, _
　　　　　　　　　　　　　　MatchCase:=False, MatchByte:=False)
とか

>>881
遅くなりました。もしかして「セルの値が」でなくて「数式が」で正解なのでしょうか？？
これだとできたかんじがします。あちこちを参照する数式が散りばめられたシートで
下のほうに「循環」と出ているものですから、もう不可能なのかと思ったりしました
>>877さんもありがとうございました。この式だとＡ列に値を入れない間は色がついているような？
何故だかわかりません＞＜。二つの式の違いが・・・しかしながらお二方ともどうもありがとうございました！助かりました

>>893
ありがとうございます。
無事にできました。

職場では2003、2007、2010が混在してます。
2003で標準の赤い文字はFont.Color = 255ですが、2010だと-16776961です。
人によっては-16763905だったり、-16750849だったりします。

もし赤い文字だったら・・・という条件で分岐してますが、
簡潔に書く方法があれば教えてください。

If Cells(v, h).Font.Color = 255 Or _
　　Cells(v, h).Font.Color = -16776961 Or _
　　Cells(v, h).Font.Color = -16763905 Or _
　　Cells(v, h).Font.Color = -16750849 Or _
　　Cells(v, h).Font.Color = -16763956 Or _
　　Cells(v, h).Font.ThemeColor = xlThemeColorAccent2 Then
End If

>>896
RGB(255, 0, 0)
試してないけど

ん？

>>885
エラソーなこと聞いといてアレだけど、祝日の前の日は
B2に一日目の曜日、C2に一日目の売上が入るとすれば、
=AVERAGE(IF(B2:B32="祝",C1:C31))
な感じで範囲をいっこズラしてあげれば祝前日が求められるはず。
あとは作業列とかで金曜、土曜、日曜、祝日の各平均を求めて祝前日の平均と併せて平均すれば平均なんじゃね？

とりあえず説明するのが面倒だったのでシートを作ってしまったが何処にうｐすればいいんだ？？

=AVERAGE(IF(B2:B32="祝",C1:C31))
じゃなくて
{=AVERAGE(IF(B2:B32="祝",C1:C31))}
ね。

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

http://www1.axfc.net/uploader/Sc/so/336665.zip

上記のように作業量から資材の使用量を計算し､資材管理を行っています。
0が並ぶと邪魔なので、0の時は条件付き書式で背景色と同じフォントに見えなくしています。

ここに土曜日は背景色を青､日曜日は赤にしようと考えています。
通常であれば4や17行の値を参考に条件付き書式をつけると思うのですが
下の表ではすでに0の時の条件付き書式を使用しています。
困ったことに､Excel2003では条件付き書式は3つしか設定できないので
困っています。

VBAと考えたのですが､実際は項目が多く、結果としてセルがかなり多くなっているので
処理が遅くなることを懸念しています。
また、この表は8個ほどあり、しかも毎月作成しています。
何か良い案はないのでしょうか？

ダウンロードパスが抜けていました
12321
になります
よろしくお願いします

>>901
条件は3つなので足りると思うけど・・・？
・値が0の場合
・土曜日の場合
・日曜日の場合

>>903
フォントカラーを表示形式で設定するとさらに条件を1個減らせるね
仕様的に可能なら0の場合は空文字にしてもいい

>>901
VBAでやったとしても今時のPCなら一瞬でしょ
仮に数秒かかるとして、毎月作るときにかかる数秒が問題になるとは思えない

運用中にコピペで書式潰したりしてもVBA走らせれば書式を元に戻せるから
個人的には、条件付き書式で背景色設定するよりVBAで設定することをオススメするな

>>897
私の質問に対するご回答でしょうか？
意味がよく分かりませんでした。

しかし、例えばRGB(r, g, b)で、If rが204以上だったら Then で
分岐することは出来ますか？
255、-16776961、-16763905 …　を調べたら、GBのRが
204以上だったので、赤っぽい文字だったら処理という方法も
いいかなと思いまして。

>>906
http://msdn.microsoft.com/ja-jp/library/cc410286.aspx
あとは算数の問題

>>906
RGBのRだけで判断するならこうなる
If (Cells(v, h).Font.Color And &HFF) >= 204 Then

でもこれだと白でもTrueになっちゃうけどね
もうExcelの話じゃなくなってきているので
あとは「赤」の定義を>>896さんが決めるだけです

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

昨日の夕方にWindows（Office）アップデートがかかって以降と思うんですが、
一部のマクロファイルが保存できなくなりました
「保存中にエラーが検出されました。いくつかの機能を削除または修復することにより、ファイルを保存…云々」
.xls形式で保存しようとしても×
各モジュールをエクスポートして、別ブックにインポートしてから保存も×
同じファイルをまだアップデートのかかっていない2007で開いて保存はOKだったので、どぎゃんしようとね？
セキュリティ×２と更新×１のうちセキュリティはアンインストールしてみたけど症状変わらず…
おかげで今日は仕事にならなかったよ

>>909
http://support.microsoft.com/kb/954931/ja

これではない？

>>891
亀ですんません
ありがとうございますた

2010でグラフにデータをドラッグで追加って無理？

>>910
散布図なんて触ってないし…
更新シャットダウン前は普通に立ち上がってたし、保存もできてたんだけど
今日はファイル開けたときから、「参照できないオブジェクトを…」とか出てた

更新する度に別ファイル作ってるから、少しずつ遡ってったんだけど４日前ぐらいまで遡っても全部ダメ〜　＞＜

>>913
Excel再インストールしたらどうでしょ

>>914
退職者から引き継いだマシンなのでパッケージが行方不明・・・ぐはぁ

新しいPC買えや

>>915
マシンとパッケージに関連があるの？

>>917
プレインスコモデルなんだろ
一々つっかかんなよ

１２けたの数字を入れると1.23457E+11になっちゃいます＞＜
教えてー！

書式を文字列に

>>919
セルの書式→表示形式→”標準”を”数値”へ変更すればいい。
用途によっては>>920のように先に書式を文字列にしておくのもいい。

>>920
数字って書いてるでしょ？読めないの？

>>921
一番最後に空白ができちゃいました！
キモっ

文字列でも計算できるんよ

てゆーか、数字ならカンマ打っとけ

文句言う前に試さないから　いつまでたっても初心者なんだよな

エクセル2003のウィンドーズビスタでお願いします
総当たり表のようなものが完成しました
ただいわゆる勝敗表ではないので右上側と左下側では別の情報になります
　_Ａ_Ｂ_Ｃ_Ｄ_Ｅ_Ｆ_Ｇ_Ｈ_Ｉ_Ｊ
Ａ＼○□○△○○□○△
Ｂ■＼△□□△△○△○
Ｃ●▲＼○△□△△○○
Ｄ■●●＼□□□○□○
Ｅ●▲▲■＼△○○△△
Ｆ▲●■■■＼○○○△
Ｇ●●▲●▲●＼□□△
Ｈ▲▲▲▲■◎▲＼○○
Ｉ_▲■▲●■●●●＼□
Ｊ●●●■■▲●▲■＼
なおそれぞれ○や■などは計算式からの結果であって
Ａ〜Ｊの項目により自動的に計算されて表示されるものとします
最初は縦横5つくらいずつだったので一見なんとも思ってなかったのですが
今では10個になってしまい時々列を見間違えるようになってきました
そこでもっとずっとわかりやすくしたいと考えます
選択しているセルに対応した上と左の項目の色を変えることはできませんでしょうか
たとえば今◎のセルを選択していれば上のＦと左のＨの色が自動的に変わるとか
ぶっちゃけ選択しているセルから上下方向と左右方向にレーザーのように色が変わってもOKです
なんとかかんとかできますか？

>>926
色んな方法があると思うけどこんなのとかでいいんじゃない？
http://www.relief.jp/itnote/archives/001406.php

もし表が画面の左上付近にあるなら、別に何もしなくても
セルをクリックすれば列名と行名の部分の色が自動的に変わるから、それを見ればいい

【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007（問題のファイルは97-2003ブック）
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
今月（2012年4月）のWindows Update を適用してから、自作のExcelツールが保存できなくなりました。
現在、ファイルも開くし、VBAスクリプトもどれも問題なく動いているように見えます。
ただ保存しようとすると、Excelがエラーを検知して保存できません。
試しに参照設定を外せるもの全部外しても解消しませんでした。

※以下出力メッセージ内容※
�@保存しようとすると…
「保存中にエラーが検出されました。いくつかの機能を削除または修復することにより、ファイルを保存できる場合があります。新しいファイルで修復を実行するには[継続]をクリック〜」

�A[継続]をクリックすると…
「保存中にエラーが発生しました。ただし、ファイルの最小限の情報を〜に保存することができました。」

�B修復のログファイルを開くと…
「ファイルの破損が深刻であり修復は不可能です。数式と値の保存を試みましたが、消失または破損したデータが含まれている可能性があります。」

>>929
http://support.microsoft.com/kb/2664258/

>>930
ありがとうございます。解消しました。

…でもツールを使用する全PCでexdファイルの削除作業が必要なのか。
正直しんどいけどツール作り直す手間に比べたら全然ましですね。
ユーザーにここまで手間を強いるパッチなんてありなんだろうか…

>>927
これはすごい！
こんなことを発明する人がいるんですね・・・地球って素晴らしい！
ありがとうございました！！

エクセル2007でＸＰです。

Ａ1のセルの中に例えば"みかん400"とか"りんご400個"とかあるとします。
A1に400と言う数字があったらA2に1を返すって事をやりたいのですがどうすればいいですか？
お願いします。

>>933
FIND関数とかSEARCH関数を使えばいいと思うよ

とんくす

　　　データＡのフィールド：　[ID1]　[氏名]　[性別]　[住所]　[生年月日]
　　　データＢのフィールド：　[ID1]　[ID2]　[氏名]　[仕入]　[納品]
　　　データＣのフィールド：　[ID1]　[氏名]　[連絡先]　[住所2]　[送金]

これを、
　　　　データのフィールド：　[ID1]　[ID2]　[氏名]　[性別]　[住所]　[仕入]　[納品]・・・
というようにしたいのですが良い方法はないでしょうか？

>>936
何がやりたいのかよくわからないなぁ
3行のデータを何らかのルールに従って1行にしたいの？

>>937
A、B、Cとも複数のデータがあり
[ID1]で揃えて一つのデータにまとめたいと考えているのですが無理でしょうか？

>>938
多分ピボットテーブルでできると思う
やりたいことがよくわかんないので外してるかもだけど

[ID1]はどの道抹消が必要
データAはBCに対して１対多の関係だから
Aの[性別]　[住所]　[生年月日]をBCの同一氏名の列全部に展開

BとCは送金と納品の記録だから重複はあり得ないので
そのままBをCにコピペすればいいだろう

普通にVlookupで良くない？

[性別]　[住所]　[生年月日]列をBCに追加して
VLOOKUPで［氏名］をキーにしてAのページから引っ張ってくればいいでしょ

>>936
３つの表を「ID1」をキーにして１つにまとめるってことでいいのかな？
データがA、B、Cでそれぞれ別表になってたらVlookup関数使って何とかできるけど
1枚の表でごちゃ混ぜになっていたら分類することから始めないといけない

「ID1」と「氏名」の組み合わせが違ってるデータあったりしたらどうするのとか考えると
まず「ID1」に重複がないことチェックして
「ID1」と「氏名」で結合フィールド作って組み合わせキーにして照合かな
その後再び「ID1」に重複がないとか付加フィールドに空白がないことチェック

フリーの照合ツール使って
１．A+Bを作る
２．A+BにCを合体させる
方法もあるけどレコード数が多いとにツールによってはどえらく時間がかかる

シート上にあるオブジェクト（フォームとかオートシェイプ）の一覧表を、右のウィンドウ（ヘルプなどがある場所）
に出す方法があったと思うのですが、ど忘れしてしまって・・・・教えていただければ幸いです。

>>944
シート上にあるオブジェクト（フォームとかオートシェイプ）の一覧表を、右のウィンドウ
でググれ

>>945
言い訳になりますが、「エクセル」「オブジェクト」「ウィンドウ」「リスト」などでは検索しまくったんですｗ
ありがとうございました！

>>946
まったく気にしなくていいと思うよ
このスレの質問の９割はググって回答されているから

2003から2010に変わったんだけど、お前らは
こんな汚い色パレットでグラフとか作ってんの？

標準で用意されてる色も、緑とか青は2003と違うし、
標準色で作ったのに2003と互換性ないし、
どーすりゃいいの？

どうするも何も、色なんてどうだっていいだろ。
デザイナーの使うDTPソフトじゃないんだから。

「デザイナーの使うDTPソフト」ですか・・・
イラレとかフォトショのこと？
こいつらは昔から揃ってるけどね。
まさか、モニタのキャリブの話じゃないよね？
もう馬鹿丸出し＆知ったか乙で腹ｲﾃｰ

>>950
まあ落ち付け。
表計算ソフトで色味が過去バージョンと異なることが
そんなに問題なのか？
どーすりゃいいのって言っているけど、どうにかしなきゃ
ならん状況とは思えないが。

>>948
制限の多い2003に合わせてブックを作るしかないと思うよ
面倒だけど仕方ない
可能であれば2003はもう切り捨てた方がいい

ほっとけよ

中小は2007とか2010が多いけど、大企業はおっふぃせ２００３のライセンスを
大量に買ってるから安易に2010にできないんだよね〜

パソコンのリースが切れてハードが変わっても、２００３なんだよね〜
大企業は辛いよね〜

大企業は辛いね。
OSは未だにXPだし、数年ごとに昇給試験はあるし、
月給から引かれる税金は多額だし、
GWは9連休もあるし、
ほんと辛いわ。

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

　名前 りんご みかん ・・・
1 鈴木　　1　　　　4　　・・・
2 佐藤　13　　　　-5　 ・・・
3 田中　　　　　　　3　 ・・・
4 ：　　　　：　　　　 ：

エスパー！エスパーはおられませんか！！

ホリエモン　　元ニート　　でググれ


腹よじれてﾜﾛﾀｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

>>956
ピボットでおｋ

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

セルのコピーなんですが
複数のセルの内容を１つのセルにコピーする方法を教えて下さい

５個のセルをコピーしてペーストすると
指定したセルから下に５個コピーされます
これが普通だと思うけど
５個のセルの内容を一つのセルに
コピーしたいです。

できません

はぁ？
マクロ使えよ

エクセル標準のコマンドではできないのですか？

できません

５個のセルの内容が複数ある時点でマクロでも�_

x ５個のセルの内容

o ５個のセルの書式

a1の中身　あ
a2の中身　い
a3の中身　う
a4の中身　え
a5の中身　お

a1からa5までコピーして
b1にペーストすると

b1 に　あ
b2　に　い
b3　に　う
b4　に　え
b5　に　お

となる
これが普通だと思うけど

b1にあいうえお

もしくは

あ
い
う
え
お

と一つのセルに
入れる事は無理です？？

できる。
予めメモ帳に貼り付けて、もう一度コピーしなおし
F2押して編集状態にしてから張り付ければok

>>968
できました！
どうもありがとう！

質問です　他のファイルを外部参照しているセルがあるのですが、
そこをオートサムにするにはどうしたらいいでしょうか？

入っている書式は

=SUM([外部ファイル.xls]外部セル!$A$1)　のようなかんじで

=SUM([外部ファイル.xls]外部セル!$A$2)
=SUM([外部ファイル.xls]外部セル!$A$3)…　というオートサムにしたいです

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

>>970

すみません自己解決しました

一度
=SUM([外部ファイル.xls]外部セル!$A$1)
=SUM([外部ファイル.xls]外部セル!$A$2)
=SUM([外部ファイル.xls]外部セル!$A$3)…　という文字を
メモ帳で作ったものをunicode形式で貼り付けたらうまくいきました

数字を与えると、その数字から1まで加算した数字を
返してくれる関数はないでしょうか。

例えば、7を与えると7+6+5+4+3+2+1=28が返ってくるように。