Excel総合相談所 100
http://toro.2ch.net/test/read.cgi/bsoft/1325935411/
▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問テンプレ(雛形)は必須じゃないけど、出来れば使ってね
▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
ここは技術的な質問のみで。
思い切って削ってみた。
出来たら>>1だけでまとめちゃった方がいいと思うんだが行数か字数制限で無理なんかな。
ttp://www.forest.impress.co.jp/docs/news/20120223_514076.html
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 むり
【4 VBAでの回答の可否】 むりだよ
毎日の売上を週ごとにまとめたものを作っているのですが、めんどくさいのでWEEKNUMでまとめたところ、上司にドヤされてしまいました。
SUMとかAverageしか使えないような人間なので、分析ツールのインストールとかできないからだと思うのですが、WEEKNUM以外の関数でWEEKNUMを代替えすることは可能でしょうか？
便利な関数なのにデフォルトで使えないようにしてあるってどうなですかね
関数の組み合わせでできるけど、間違えてても知らん。
=INT(((A1-DATE(YEAR(A1),1,1))-WEEKDAY(A1,1))+7/7)+1
Excel WEEKNUM 代替
でググれ
やっぱり間違えてた。カッコの位置を訂正。
=INT(((A1-DATE(YEAR(A1),1,1))-WEEKDAY(A1,1)+7)/7)+1
分析ツールをインストールしてやれよ
グラフを作成しました。
データ系列の書式設定でY誤差範囲を設定しています。
誤差範囲はセル範囲を指定しています。
ここでセル範囲の×３倍を指定することは可能ですか。
うまく説明する自信がありません。これでわかりますか？
ほんとだ。2010で使えた。
インストールされてないとかじゃなく、Excelの仕様の話です
52 週の年と 53 週の年があるから？
>>8
ありがとうございます。やっぱこの方法が一般的なのですね。
>>9
検索したら>>8が出てきました！
でも、プライバシーポリシーの変更があるのでグーグル先生は今後使いませんっ！
>>11
最初は送ったファイルの数式にエラーが出ている、数式をいじるのはいいがちゃんと動くものを作れと怒られ、
分析ツールの指摘をすると、そんなめんどくさいものを使わずに確実にできる方法でやれ？
な感じです。
毎月、週ごとの売上のファイルを作るたびに手動でAverageかますよりは遥かに効率的で確実な方法だと思いますが。
>>13
インストールは不要ですが、チェックは入れないと動かないっぽいですね。
> やっぱこの方法が一般的なのですね。
何が「やっぱ」なんだよ。実は知ってましたみたいな格好付けなくていいんだよボケ。
> でも、プライバシーポリシーの変更があるのでグーグル先生は今後使いませんっ！
お前の好きにしたらいいがスレ違いだ。馬鹿なんだからせめてマナーを守るぐらいの事はしような。
どやされた原因がはっきりしてるの？
そうならいいけど、たとえば単に週の始まりが日曜からじゃだめだとか、
過去データで集計してみたら、weeknhumの関係で2010/12/31と2011/1/1が
別な週に集計されちゃったとか。そんなことだったりして。
業務上使用する可能性のある機能を一通り把握したいのですが
どういう本がいいですか？お勧めあったら教えてください。
グラフは作りません。
http://www.amazon.co.jp/dp/3827321891/
従業員5000人企業の情シスってこんなにレベル低くてもいいのか
ありがとう、自信が沸いてきたよ
【2 Excelのバージョン 】 Excel 2007
データベースから情報を読み出すのはデータ→その他のデータソース→microsoft queryから出来ますが。
insart文を発行してDBにデータの更新をかけるのはVBAが必須でしょうか？
出来ればコードを描かない方法が良いので調べてるのですが、ご存知の方居ませんか？
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】否
ある値が、正規分布の+-２σの範囲外の場合削除したいのですが、
ttp://www.ipc.shimane-u.ac.jp/food/kobayasi/normdist%20by%20excel.htm
こちらのサイトを見ながらNORMDIST関数を使ってチャレンジするもわからず・・・
どなたかご教授宜しくお願いします。
http://office.microsoft.com/ja-jp/excel-help/HP010335651.aspx
ある値ってどういう状態？セルに入力された値？1つの値？たくさんの値が並んでるの？
削除ってどういう状態？フィルタで消すのは？条件付き書式でフォントカラーを白にするとか？
わからないポイントがわからないので答えようがない
NORMSDIST,NORMINV,AVERAGE,STDEVP辺りか?
ググったら出てきた
http://www.excelio.jp/
明示的にINSERT文を発行したいのかな？
それともINSERT文が発行されるのはブラックボックスでいいのかな？
DBから吸い出したデータをテーブルで出力しておいて、
直下のセルを編集したら、追記された分だけinsart文を発行して欲しいなと。
insart文の発行タイミングはボタンを押すなどのアクションで任意にでき、
エラーはセルの書式で赤文字や赤背景などで分かるようにしておいて、
insert文はエラーでinsert出来なかった物だけ確認できるぐらいの物が有れば。
前はもっと大きい会社だったよ
（就職人気ランクでトップ10に入るような大企業）
そのときは情シスじゃなかったけど
ありがとう
自分にはかなり難しそうだけど眺めてみる・・・
VBAよりまず関数覚えろよ
それをVBAなしでできないかとよく思えたなｗ
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】否
ハイパーリンクを使用しA1の文字にリンクを貼りました。リンクの移動先の
B1の文字に「ここを表示しているよ」と変更したいのですが、どうすれば
変更できますか？ファイルの保存はWebページで保存します。
[右クリック]→[ハイパーリンクの編集]
B1の文字列にリンクが移動したことを表示させたいと思っているのですが
[右クリック]→[ハイパーリンクの編集]をしても上手く行きませんでした。
B1の文字列にリンクが移動したことを表示させたいと思っているのですが
[右クリック]→[ハイパーリンクの編集]をしても上手く行きませんでした。
B1の文字列にリンクが移動したことを表示させたいと思っているのですが
[右クリック]→[ハイパーリンクの編集]をしても上手く行きませんでした。
>>34を何度読んでも質問の意味が理解できなかったのだが、そーいうことなのか？
VBAが使えるって設定になってるから、そんな事ではないと思ってたのだが…
なんかB1にシート名とかを入れて、シート1のC１セルを指定とか、そんな感じにしたいのかと深読みしてた
あと、webページで保存っての意味がわからんのだが、HTMLだったらエクセルで作った表なりをwordやパワーポイントに持っていったほうがキレイになると思うのだが
すみません。なかな書き込めなくて連続してしまいました。
意味が分からないから想像で適当に答えただけですはい
結局>>34と>>36を読んでも質問の意味は理解できなかったけど
BeforeとAfterを分かりやすく提示してもらえるとまともな回答が貰えるかもよ
セレクト文に関してはExcelで記憶してるからな。
同様にテーブルやカラム名記憶できれば、エラーの処理ぐらいだろ。
insertのタイミングだって勝手に30分毎とかじゃ使いずらいからそれらしいのを言っただけだし、
select文と違ってDB登録出来なかった物が分かるようにするのも当然の内容じゃないか？
追加できなかった物に対して処理しないじゃinsert文使えるような追加のツールですらないし。
ごめんごめん、ちょっと>>33の書き方だと分かりづらいよね
>>29はVBAじゃないと実現できないないです
ちょっと訂正
×>>29はVBAじゃないと実現できないないです
○>>29はVBAじゃないと実現できないです
取り出したいときにはどういった式がいいでしょうか
例えばＴ１０に午後、Ｒ１０にお茶、だｔったらＸ１０にお茶、という
値がほしいです。しかし午後という値はＱ１０、Ｗ１０、など、どこにあるか
わかりません。Ｏ列からＷ列のどこかに一箇所だけ入っています
取り出したいときにはどういった式がいいでしょうか
例えばＴ１０に午後、Ｒ１０にお茶、だｔったらＸ１０にお茶、という
値がほしいです。しかし午後という値はＱ１０、Ｗ１０、など、どこにあるか
わかりません。Ｏ列からＷ列のどこかに一箇所だけ入っています
取り出したいときにはどういった式がいいでしょうか
例えばＴ１０に午後、Ｒ１０にお茶、だｔったらＸ１０にお茶、という
値がほしいです。しかし午後という値はＱ１０、Ｗ１０、など、どこにあるか
わかりません。Ｏ列からＷ列のどこかに一箇所だけ入っています
=INDIRECT("R"&ROW()&"C"&(MATCH("午後",$O10:$W10,0)+12),0)
ttp://i.imgur.com/bNgkL.png
こんなかんじ？
>>34と同じ人かな？
連投していたようですね。申し訳ありません(>_<)
ＩＥの更新ができないばかりか、フリーズしてしまい、おそらく書き込めなかったのだろうと
諦めました。>>48>>49>>50さん、すぐの返信をありがとうございました。
夜、これらの式に挑戦してみたく思います。
ところで、諦めたのち、ガイドを見て自分で作成した式の意味がさっぱり判りません。
＝offset(A1,sumproduct(row(O10:W10)*(O10:W10=X1))-1,sumproduct(column(O10:W10)*(O10:W10=X1)-3
これでセルＸ１に午後、といれると、たしかに欲しい値を拾ってきたのですが
SUMPRODUCTを手持ちの本で調べると積和、とだけあるのですね。これは一体なんなのでしょうか
エクセルのヘルプでも積和の話ばかりのような？
こんなイメージ
=SUMPRODUCT(COLUMN(O10:W10)*(O10:W10="午後"))
↓
=(COLUMN(O10)*(O10="午後"))+
(COLUMN(P10)*(P10="午後"))+
：
(COLUMN(W10)*(W10="午後"))
ＶＢＡでコード書いてなら分かるのだが、
関数だけで出来ないか？
マクロが入ると、開いたときにダイアログが
出るもんだから、上司が、「セキュリティが～」
とか言い出して、うけつけてくれない・・・
当たり前だけど、数式の表示じゃダメなんだよね？
http://www.excel.studio-kazu.jp/kw/20030520203126.html
これだと上司が「セキュリティが～」って言い出しますね
上司の信用なさ過ぎｗ
そうです、そんなかんじです！>>49さんも合わせてINDEX関数というのは、取り沙汰されている
セルがO10からW10にも関わらずその二つ左の値が欲しいばかりにM10からU10という全然関係なさそうな
セル範囲を絡めるのですね！素直に「-2」といかないのが、とても不思議です
ありがとうございました
これは、、、SUMPRODUCT同様ちんぷんかんぷんですね；（アホなので･･･）
二つ左、を示すものがどこにあるのかわかりませんが＋１２あたりが鍵のような？
でもセルにあてはめるとばっちりです。ありがとうございました
一列ずつO列から順々に見に行ってるかんじなんですかね？
積と考えるより、一個一個足していった、と考えるほうがいいっぽいですね？
皆様、体裁の整ってない質問にすぐ答えていただき、ありがとうございました。
実は初めて仕事場から２ちゃんに接続したのですが、怒られないかとひやひやしました
家でゆっくり聞いたほうが精神衛生上もいいようです？ｗ 昼に、すぐ見に来れずすみませんでした
直接入力した後も、『=TODAY（）』といちいち直さなくてもいい良い方法はないでしょうか。。
意味が分からない
「=TODAY()」
を消滅させなくて済む方法は思い浮かばんが、そんな画期的な方法があるの？？
俺の足りない頭ではこの辺が精一杯
ttp://i.imgur.com/7B5JZ.png
うｐしてから、肝心な部分にモザイクが入ってるのに気づいた。
連投スマソ
たとえばセルA1がその「ある一つのセル」だとして、
「過去の日付」とやらを直接入力しちゃったら
当然「=TODAY（）」は消えちゃうでしょ。
「過去の日付」は別のセル（たとえばB1）に入れるようにして
A1には「=IF(B1="",TODAY(),B1)」でどう？
B1に入ってる数値が目障りなら
フォントの色を白にすれば見えなくなるから
それで対処できるんじゃない?
excelは数式の入ってるセルには直接入力出来ない
直接入力したら、消しても元の数式には戻らないからね
どうしてもしたいなら>>64だな
やっぱりそれしかないよね?
Worksheet_Activate()やWorksheet_Deactivate()で元に戻すとか？
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 得意ではないけど一応 はい
【4 VBAでの回答の可否】 否 しかし「ねえよそんなもん！」だったら別。
以下のようなデータがある（実際は数万件ある。死ぬほど重い）
Yuki,Watanabe
YUKI,WAtanabe
Aaa,Bbbという書式になっていないセルに色を付けるにはどうしたら良いでしょうか。
条件付き書式の数式でいけるかと思いましたが、先頭文字だけ大文字になっていることを判定する
方法が分かりません；
セル変更時のマクロ Worksheet_Change
分かりません！ じゃねえよ
Excelの知識とか関係ねえよ
ちっとは頭使えよ
一例
1. ピリオドの前と後に分ける
それぞれの文字列に対し
2 1文字目が大文字かどうか
3 2文字目以降が、2文字目以降を小文字に変換したものと等しいか
4 2と3を同時に満たしているか、で判定
じゃダメ？
クソ重いとの事なので、ツール→オプション→計算方法を手動にして最終行まで展開→自動に戻す
Sub Worksheet_Change(ByVal trg As Range)
If trg = 該当セル And
trg.Value = "" Then
trg.Value = "=TODAY()"
END If
END Sub
かな？
ありがとうございます！
やってみます！（仕事で使ってるのでこんな返信ですみません
パソコンはWINDOSXPでEXSELは20003になります。
今とあるリストの中でISPというG列がありまして
たとえば
111.222.333.444.aho.baka.manuke.jp
だったり
long.black.oinarisann.big.com
だったりみたいなのがたくさん並んでいきます。
あ、今書いたのは私が思いついた架空のもので本当にはこんなデータはまだないです。
それでこれらのデータをある程度分類したいと言われて
なんでも「ドットを後ろから数えて、3つめより後ろの文章を取り出して欲しい」とのお達しです。
つまり上のやつだとbaka.manuke.jpとかoinarisann.big.comにしたいらしいんです。
マクロっていうのはよくわかりません。
右にはいっぱい空いてる列が使えるので関数でなんとかかんとかできないでしょうか。
ヤフーでググってみたりしましたがドットの場所が固定されていないと数えるのが大変みたい？でした。
突拍子すぎて難しいかもしれませんがご指導ご鞭撻大変恐縮します。
質問が3つ
セカンドレベル登録ドメインでも機械的に第3ドメインまで取り出すのか(そもそも最初から第2ドメインまでしか存在しないドメイン名もある)
ユーザー定義関数(ようするにVBA)は使ってもいいのか
そのマシンはネットにつながっているか
セカンドレベル？というのはよくわかりませんが
機械的にやっちゃっていいと思います。
ドットが2つしかないみたいなのはエラーになっちゃても構いませんし
そのまんま同じのが出てきても構いません。
VBAはちょっとわかんないので遠慮しておきます。
ネットにはつながっていますがウイルスとかがまずかったりとかしますか？
B1=MAX(SUMPRODUCT(1*NOT(ISERROR(SEARCH(".*.*.*","."&A1,ROW(OFFSET($A$1,0,0,LEN(A1),1)))))),1)
C1=RIGHT(A1,LEN(A1)-B1+1)
とりあえず作業列なしにこだわってみた
「2ch.jp」みたいな短いやつはそのまま返す
=IF(LEN(G1)-LEN(SUBSTITUTE(G1,".",""))<3,G1,MID(SUBSTITUTE(G1,".","/",LEN(G1)-LEN(SUBSTITUTE(G1,".",""))-2),SEARCH("/",SUBSTITUTE(G1,".","/",LEN(G1)-LEN(SUBSTITUTE(G1,".",""))-2))+1,255))
神！ゴッド！GODDO！ゼウス！アポロン！アンドロメダ！ペガサス！ドラゴン！フェニックス！！
http://nicovideo.jp/watch/sm12052293
このエクセルマリオはできないのですか？
試せばいいじゃん
「ツール」が無いんだもん
そうか、残念だな
【excelの種類 2010】
すいません、質問なんですが同じPCで作成、保存していたファイルです。
先ほど開こうとしたら(拡張子とexcelの形式が一致しません)とエラーが出て開けません。
試しに極窓で拡張子をxlsxからxlsに変えたら今度は(ファイルが壊れています)と出てしまいます。
何とか開く方法はないでしょうか？
重要なファイルでかなり困っています…
拡張子はファイルの名前の一部だから
もし拡張子を表示する設定にしていないなら
フォルダオプションで拡張子を表示してみることだ
別のバージョンのExcelのPCかなんかあれば試しにそっちで開いてみたら？
拡張子を.zipにして開ける？
メモ帳で開くとどうなる？
根本的な解決じゃないけどこんなのも
http://windows.microsoft.com/ja-JP/windows7/Previous-versions-of-files-frequently-asked-questions
xpのPCで試してみたんですが元のPCと同じエラーが出ました。
皆さんありがとうございます！出張で明日の夕方までPCに触れないので明日試してみます。
"拡張子とexcelの形式が一致しません"でぐぐったらこんなん出てきた。
破損したブックを修復する - Excel - Office.com
http://office.microsoft.com/ja-jp/excel-help/HA010097017.aspx?CTT=5&origin=HA010246470
2007で動いたから2010でも大丈夫じゃない？
もう一台のパソに2010入ってるけど立ち上げるのめんどくさい
【2 Excelのバージョン 】 2000～2010までなんでも
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
セルに入力された文字列を反転させたい
例えばセルに“あいうえお”と入力されていたら“おえういあ”にしたい
例えば
“あいうえお
１２３４５６７８９”
と入力されていたら
“９８７６５４３２１
おえういあ”
にしたい
文字は1文字以上250文字以下で、1～3行(Alt+Enterで改行されてる)です
色々関数使って試行錯誤してみたけどいい方法が思いつかないです
単純に対象セルの右側252列使って一文字ずつ切り出すしか思いつかない…
その場かぎりのマクロを作って結果のみ貼りつけじゃダメなん？
zipにすると「破損書庫です」と出て解凍できませんでした。txtにしたら文字化けしますが開けました。
>>92
このHPの方法は一通り試しているのですが、どの方法もダメでした・・・。
これってVBAなしで簡単に出来るん？
横にずらーーーーーーーっと1文字ずつ切り出したのを結合するしか思いつかないんだけど
関係ないかもしれないけどこんなのが検索にひっかかった
http://tamm.exblog.jp/15984887/
これでダメなら見込みは薄いけどリペアソフト使うぐらいしか思いつかない
拡張子を.xlsbに変えてもダメかな？
重要なファイルじゃなければどこかにアップしてって言えるんだけど
Ａ列からL列のこと、みたいなことなのでしょうか？？
ＲＣ方式でセルを呼び込むのだろうまでは判ったのですが「午後」とあるセルの
二つ前を拾う、というのがこの式のどれにあたるのか、どなたかご教示いただけないでしょうか
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
A列に
A1→2、A2→10、A3→空欄、A4→空欄、A5→空欄、A6→2、A7→10・・・
など数値と空欄が混ざっている場合に、空欄のところをA2とA6の平均値を
入れ、その値はさらに比で変えていきたいのですが、どーしたら良いのでしょうか？
ちなみにこの場合あと、A2が10でA6が2なので、
A3→8、A4→6、A5→4
と入ります。
空欄にAVERAGE(A2,A6)でいいじゃん
比で変えるっていうのがよーわからんけど
ホーム→フィル→連続データの作成→（とりあえず増減値を確認）→OKボタンを押す。
すると空欄に希望するような値が入ります。
そのやり方で出来ますか？
>>105
おお～ありがとうございます。こんな感じです。
あと、空欄のところが一か所だけなら良いのですが、
他にも空欄のところが1000カ所以上あって、
行が3万行くらいあるんです(涙)
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
VBAで改行、Tabの横に移動する動作はどうにやるのでしょうか
ﾏｸﾛが呼び出されたらある文字や数が自動で入力され(ここまではできます)その後
改行又は横のセルに移動する動作ができません
初歩的かもしれませんがよろしくお願いします
マクロで改行を記録してその編集を開いてみてどう記述されてるか見てみれ。
すみません、わかりません。
改行という動作ではなく記録したセルにいくという風にしか
私には思えませんでした。
普通にoffsetで右に移動させたらあかんのか？
【2 Excelのバージョン 】 Excel2003、2007、2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ボタンをクリックしたとき、カーソルの位置をI列に動かすには
どう書けばいいですか？
例えば、A6セルにカーソルがあればボタンクリックでI6セルへ、
M10セルにカーソルがあればボタンクリックでI10セルへ
移動させたいです。
自宅のPCはXP、2003ですが、会社のPCは2003、2007、2010があります。
何をしたいのかよくわからんが・・・
こんな感じ？
Application.MoveAfterReturnDirection = xlToRight
SendKeys "{Enter}"
それを使ってできるなら問題ないです。
よろしくお願いします。
Private Sub CommandButton1_Click()
Range("i" & Selection.Row).Select
End Sub
>>100
この方法もダメでした・・・。
>>101
ダメでした・・・。組合の会計資料なので個人情報がかなりあるので・・・。すいません。ありがとうございます。
ウィンドウズ７なら、とりあえず以前のファイルが復旧できるのでは？
http://snow-white.cocolog-nifty.com/first/2010/06/windows-7-2fdf.html
O列からW列のどこかに一箇所にある"午後"を見つけて、
その2つ左のセルを返すってことは、
返す可能性があるのはM列からU列のどこかってことでしょ?
"Match"はO列～W列の何番目に"午後"があるかを調べる関数だから
仮にO列にあったら"1"を返す。
で、このときにはM列(=左から13列目)を選択したいのだから、
1+12＝13でM列になる。
こんな説明で分かる?
INDIRECT("R10C12",0) は INDIRECT("L10",1) と同意
MATCH("午後",O10:W10,0) はO10:W10に"午後"がある相対的な位置が数値で返される
仮にO10に"午後"が入力されている場合、MATCH("午後",O10:W10,0)が返す値は1
INDIRECT("R10C"&(1+12),0) ＝ INDIRECT("R10C13",0) ＝INDIRECT("M10",1)
ありがとうございます。こういう処理です。助かりました。
できました。
ありがとうございます。
SelectionはSelectとペアで使うものだと思ってましたが、
こんな使い方もあるんですね。
グラフを描かせた時に空白部だけ値が飛んで困るというなら、
IF(A1="",NA(),A1)とかで空白を#N/Aにしてやればいい。
あきらめてVBAで対応することにしました
作業を引き継ぐ人間がVBAがわからないのでなるべく関数で解決したかったのですが
返信頂いた方々どうもありがとうございました
>>90や>>117の「以前のバージョンの復元」が無理なら
拡張子を.zipにして↓この手の修復ツールを使えば少しはxmlが取り出せるかもしれない
http://gigazine.net/news/20110117_diskinternals_zip/
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 少々
【4 VBAでの回答の可否】 可
やりたいこと
IputBoxを使って、オートフィルタの「～を含む」ように行を抽出したい。
元データ（5行目以降）
E列 F列 G列
5 あいうえお かきくけこ さしすせそ
6 abcde たちつてと なにぬねの
7 はひふへほ zabcabc まみむめも
8 あいうえお わいうえを ぱぴぷぺぽ
9 かきくけこ だぢづでど xyzabccc
IputBoxに「abc」と入れたら、次のように抽出するには、どう書けばいいでしょうか？
6 abcde たちつてと なにぬねの
7 はひふへほ zabcabc まみむめも
9 かきくけこ だぢづでど xyzabccc
H列でフィルタ
検索条件をSheet2シートに書き込んでいいならこんな感じかな
ただし、元データの4行目に見出しとして"E列"、"F列"、"G列"という文字が入っている前提
Sub 絞り込み()
Dim key As String
key = "*" & InputBox("検索キーワード") & "*"
With Sheets("Sheet2")
.Range("E1").Value = "E列"
.Range("F1").Value = "F列"
.Range("G1").Value = "G列"
.Range("E2").Value = key
.Range("F3").Value = key
.Range("G4").Value = key
Range("E4:G9").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=.Range("E1:G4"), _
Unique:=False
End With
End Sub
こんな感じにしていきたいのですが簡単な方法はありますか？
シート3までは手動でいれたのですがシートを50位まで増やしたいので簡単な方法があればと思いまして。http://beebee2see.appspot.com/i/azuY-bTyBQw.jpg
セルの中の頭は＝です。
他のシートに入れたのをリンクさせたくて悩んでいます。
こんな感じ？
=INDIRECT("Sheet" & (ROW() - 12) & "!A1")
=INDIRECT("Sheet" & A13 & "!A1")
>>131さん
ありがとうございます。
教えてよ頂いたのですがうまくわかりません。
cの13にはシート1のリンク
cの14にはシート2のリンク
と行きたいのです。
説明も下手ですいません。
Excelを触り始めてまだ一週間ほどなのですがなんとかうまく出来る方法を考えています。
ありがとうございます。
Sheet2（というか余分なシート）は設けたくないので、
Range("P1").Value = "E列"
Range("Q1").Value = "F列"
Range("R1").Value = "G列"
でやってみました。
しかーし、、、
抽出を解除するには、どうやればいいのでしょうか？（´ヘ｀；）
Worksheet.ShowAllDataメソッド
もしくは
[データ]→[フィルタ]→[全て表示]
>>130と>>131だと何がダメなの？
質問の意味がわからないし何がしたいのかもよくわからない
仮に手入力した場合、C13とC14にはどんな値を入力するの？
000002---
000003--- な感じで、数字6桁数字+半角スペース3文字分のセルの列があります。
これを
000001
000002
000003 にしたいのですが、セルの書式で文字列にしても、ｽﾍﾟｰｽを取り除いたら、
1
2
3 と数字になってしまいます。０を残すいい方法を教えてください。
表示をユーザー定義にして000000にしても、セルの値は数字1桁のみになってしまうので、文字列のままで・・
セルの表示形式を「文字列」にしておけばいいんじゃないの？
最初に書式を000000に変更しておいてからスペースを削除
http://officetanaka.net/excel/function/tips/tips67.htm
セルの一番外側は黒い実線
その内側に白でふちどりして
さらに内側は真っ黒け
みたいな感じにしたいんです(あくまで見た目的な感じ)
またそのセルを並べたりとかもしたいんですが
書式でやることは不可能ですか？
【A1からC5の範囲でE2の値があるか検索し、
E2のある行でA列の右のセルの値を抽出する。】
上記の内容を実現したいときに
=VLookup(E2, A1:C5, 2, 0)
と書いているのですが、上手くいきません。
添削を頂けないでしょうか。
3*3のセルを用意して、周りのセルは細くするとか
>>141
コピーしたけどうまくいったよ
同じ数値が2つあるとか、半角全角が間違ってないか確認してみて
なるほど3x3・・・悪くないかもしれません！
良いアドバイスありがとうございました
VLOOKUP関数はセル範囲の最初の列を検索するので
=VLookup(E2, A1:C5, 2, 0) だとA列しか検索しない
A1～C5の範囲でE2の値を検索したいならLOOKUP関数だと思う
=LOOKUP(E2,A1:C5,B1:B5)
【2 Excelのバージョン 】 Excel2002
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
"0 "を頭につけて入力した分数部分でセルの列幅の自動調整をした場合、左側に空白ができてしまいます。
この空白をなくす方法はありますか？
一つの事項につき、データの項目が7つあるので複数のシートを使っており、それぞれに分数を扱う部分があります。
多量のデータを一度に効率よく見たいので、全体でセルの幅を統一しようと思ったのですが、分数入力したところだけ左側に空白が残り、効率が上がりません。
（計算結果を分数表示したところは、全く問題ない。）
手動でセルの幅を狭めても、まだ空白が十分残っている段階で数値が#になってしまい、うまくありません。
再現しないから確実に再現する値を1つだけ教えて欲しい
・数式バーに表示されている値
・セルに表示されている値
・セルの表示形式
>計算結果を分数表示したところは全く問題ない
これもあった方がありがたい
・セルに表示されている値
・セルの表示形式
1/243を数値として扱いたいので（計算に使うため）、
0 243と入力。
数式バー：0.00427350427350427
セル表示：1/243
セルの書式設定は 分類：分数 種類：3桁増加 です。
>>147
数式バー：="1/"&ROUND(1/(Sheet2!F25*(Sheet6!F25-Sheet4!F25)/Sheet6!F25),0)
セル表示：1/234
セルの書式設定は 分類：分数 種類：3桁増加 です。
（計算式はSheet2!F25に上記の値が入り、他は整数です。）
書式設定の他の部分はいじってません。
分数にしたら表示形式が「# ???/???」とかになるから値によってスペース余るって事
たとえば正の数しか取らないなら「[<1]##0/##0;# ##0/##0」にしてみるとか
表示形式が3桁増加の分数？
そんなもんそのまま使うなよ
それだとたとえば 467/234 は 1 233/234 って表示されるんだ
仮分数じゃなくて帯分数の表記になるわけ
それをそのまま使ってるから 1/234 の場合でも _ __1/234 っていうアンダースコアの幅が取られる
ありがとうございます。
できました。
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
検索したい文字に対して、半角スペース、全角スペース、アンダースコアが
入っていても見つけるようにするにはどうすればいいでしょうか？
検索する文字が りんご のとき、
りんご
りん ご
りん ご
り_んご
のすべてを見つけたいです。
Sub test()
Dim RNG As Range, MOJI As String
MOJI = Range("N2").Value
Set RNG = Columns("a").Find(What:=MOJI)
If RNG Is Nothing Then
MsgBox "データがありません"
Else
MsgBox RNG
End If
RNG = Nothing
End Sub
Replaceでスペースとアンダースコアを全部消してから比較するか、正規表現
[ﾛ□_]*り[ﾛ□_]*ん[ﾛ□_]*ご[ﾛ□_]*
ﾛ 半角スペース
□ 全角スペース
Replaceはどこに書けばいいでしょうか？
Set RNG = Columns("a").Find(Replace(What:=MOJI), " ", " ", "_")
ではダメでした・・・orz
ありがとうございます。
元のデータが（分子が1、分母が3桁の）分数なので、仕方がありません。
それに、これは確率なので、小数で表すと意味が分かりにくくなります。
書式のユーザー定義をいじる、という事でしょうか？
今の場合、分子は1のみ、分母は二桁もしくは三桁、なのですが、どういう表記をすればいいのですか？
あるいは、参考になるURLでも教えてくれるとありがたいのですが。
自己解決できました。
ありがとうございました。
（書式の頭の部分を削った。
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
(★)を実現するにはどうしたら良いでしょうか？
前スレの>>760
それExcelの質問じゃないから余所でやってくれ
前スレで解決してないし、
実際今の瞬間でも問題が解決してないから
質問したのですが。
こうなるべき、ってのはあなた独自の考えであって、それがExcelの仕様と一致していないだけです
1セルずつ手作業でコピペするか、VBA使って貼り付ければいいと思いますよ
仕事で毎回こういう作業があるんだ。
もし1回限りですむなら手作業コピペですませるし
2chに粘着しないよ。
ある条件で抽出させてでてきたデータに
別で用意したデータ(これすら10行以上もある)をかぶせるようにしてコピペで更新する作業。
数個なら手作業で貼るのが一番早い
大量にあるなら作業列にVLOOKUPとかVBAとか
非表示のセルがあるとコピペが思った通りにできないのはExcelの仕様
同じ作業を毎回やるんならVBAでそういうのを作っとけ
手作業が無理ならVBAでやればいいし、VBAがわからないならVBAを勉強するかあきらめるか
VBAで可視セルを扱うにはどういう機能またはプロパティまたはメソッドを使いますか？
Range.SpecialCells(xlCellTypeVisible)
(1)フィルターかけてるとき
(2)非表示にしてるとき
以外にありますか？
また、(1)(2)で各種操作にて振る舞いの違いはありますか？
初心者は適切な検索キーワードすらわからないもんだよ
誰にでもそういう時期はあるし、あなたにもそういう時期はあったでしょ？
簡単にググって出てくるなら検索キーワードを教えてあげれば質問者のスキルアップにも繋がるよ
ググるのもいいけど、マクロの記録もいいですよ
だいたいそれで傾向と対策がわかります
ない
ウソいうのやめたまえ
(1)はコピペはそのままだけど
(2)のコピペは不可視セルまでコピペされる
さてsubstituteで例えば1匹を1にしたのはいいのですが
数字として認識せず、セルの左側に文字として扱われていて
数字の計算が出来ないのですが、どうすれば数字として認識されるでしょうか？
セルの幅や高さを0にしても同じ結果になる
幅を0にしてからプロパティを調べるとHidden属性がTrueに変わってる
Cells(1, 1).RowHeight = 0
Debug.Print Rows("1:1").Hidden
計算できる
A1 1匹
B1 =SUBSTITUTE(A1,"匹","")
C1 =B1+2
で、ちゃんとC1には3と表示される
Substituteはわからないけど、
セルの書式設定を開いて
0"匹"
でぉｋ？
ttp://i.imgur.com/cLWhR.png
もともとのデータに匹が入っているようであれば、置換で匹を削除すればただの数字になるはず
直にＢ1＞3とかだと計算できないみたいだったので
一度Ｃ1に出してから比較しました。 ありがとうです。
ユーザー定義でつくればいいんですね。
勉強になりました。やってみます。
Excelの質問だと思ってますが、違うなら誘導してください。
VBAで
If (moji Like "り*ん*ご") Then
'なんらかの処理
End If
a1:a5の範囲でみかんが何個あるかなら=countif(a1:a5,"みかん")でいいですが
b1がみかんじゃなくりんごだとしたら=countif(a1:a5,"b1")にしたら出来ないのですが
何がまずいんですか？
>検索したい文字に対して、半角スペース、全角スペース、アンダースコアが
>入っていても見つけるようにするにはどうすればいいでしょうか？
Excelは一切関係していないと思うけど？
2chなら http://toro.2ch.net/tech/ とか
OKWaveとかYahoo!知恵袋とか適切なところで聞いた方がいい
その場合で言えば
"みかん" なら「みかん」という文字を検索するが
"b1" なら「b1」という文字を検索する
a1からa5の中にはb1という文字が入っているかい？
b1セルの内容で検索したいなら=countif(a1:a5,b1)だろうな
=countif(a1:a5,b1)
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
http://www.vector.co.jp/soft/win95/business/se419604.html
このエクセルブックの項目の名称を変更したいのですが、
どうすれば変更することができるのでしょうか・・・
くだ質で本当にすいません。
VALUE関数を使って文字列を数値に変換すればいい
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
■ 本システムのカスタマイズ ■
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
●カスタマイズの請け負い
本システムのカスタマイズをご要望の方は、下記のサイトをご参照くだ
さい。有料にて請け負い致します。
◆http://4--d.com/
●システム上の禁止事項
本システムでは、下記のことは行わないでください。もし行うと、正常
に作動しなくなります。
◆各ワークシートのシート見出し名は、変更しないでください。
◆[フォーム]シートのセルに設定されている「名前」は、変更や削除を
しないでください。
◆[テーブル]・[リスト]シートの２行目の「セル1」などの名称は、変更
や削除をしないでください。
>>192って説明も読まずに勝手に改ざんしようとしてんの？
人間として最低のクズだな
ばいいのに
【2 Excelのバージョン 】 Excel
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
シートに入力した値を自動で源泉徴収してくれる
マクロを作りたいんですが、どうすればできますでしょうか。
http://vbae.odyssey-com.co.jp/study/
ＶＢＡでの回答は否です
だから独学でVBAを覚えるか誰かにVBAを教わる手段を回答したまで
VBAってのはマクロを作るための道具のことだから、VBAを知らずにマクロを作るのはほぼ不可能
「マクロの記録」って手もあるけど、できることが非常に限られる
まずはVBAを勉強してください
他人に迷惑だけかけて当然のように振る舞うとか
さっさとばいいのに
できないんならできないっていえよ
そりゃできるわけねーだろｗｗｗｗｗ
おまえちょっと江頭さんに
生まれたときから目が見えない人に、
空の青さを伝えるとき何て言えばいいのか
教えてあげてこいよｗｗ
生まれつき足がないやつに自転車をプレゼントしてみるか？ｗｗｗｗｗ
それくらい不可能なレベルだってことくらい気付けバーカ
まず拾ってきたほうが早くて正確な上
それでもつくろうとするなら関数をいくつも覚える必要があるし、
年によって変わるものを作るセンスも必要
そしてそれを教えるのはさらに無駄な労力と言えよう
それでもやりたいというならこのスレで回答し続け、他の人の回答と照らし合わせるとイイ
センスが勝手に磨かれるから
3桁増加分数のデフォルト書式設定は # ???/???
これを ?/??? に変える
お前、ダメだわｗ
真実は一つだけ
怒りは自然な感情
戦争・テロは無くならない
死刑には人の抑止力がある
虐められる側にも虐めの原因がある
自己チューな人間ほど自己愛が強い
などの間違いを解説ちう m9(｀･ω･)ﾋﾞｼ
義務教育では教えない最新哲学 感情自己責任論
回答をありがとうございました。皆さん、、、、頭のいい方たちなのですね
二つ前の意味が少々わかりかけてきましたが、ということは、、職場の別の人がみつけた式
＝index(M5:W5,match(2,O5:W5,0))では、最初のＭ５からＷ５はＵ５にならないと
おかしい、ってことでしょうか？今のところ、Ｗ５まで引っ張っても支障はないようですが、
こちらはどうして左に二個ずらした式ではないのでしょう？？
“午後”という値はO～W列のどこかに入っていて、
取得したい値は“午後”の文字の2つ左のセルだからM～U列に入っているってことですよね？
であれば、“午後”を探索するMATCHの範囲は"O5:W5"で
対象を求めるINDEXの範囲は"M5:U5"になりますよね？
"V5:W5"に求める値が入っている可能性はゼロなので範囲に含める意味がないと思います
質問の意味(というかどこに疑問をお持ちなのか)があんまりよくわからないです
単なる算数(足し算引き算)の問題だと思うのですが？
127さんのマクロで動作しましたが、該当するデータがないとき
全ての行が隠れてしまいます。
該当データがないときは、全ての行を出すにはどうすればいいでしょうか？
アンインストールも修復もエラーが出るのを確認して3分で解決。
正常にインストールできたw
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")
度々ありがとうございます。
【2 Excelのバージョン 】 Excel2010
以前のバージョンだとファイル→プロパティでブック全体に対するコメントを
書くことが出来ましたよね？
2010だとそういうのはもう出来ない？
ファイル→情報
遅くなりましたが、ありがとう。見つかりました。
データの入力規制でリストで[ ,0,1,2,3,...]としたいのですが
そのセルを[ ]ではなくて未入力の状態をリストに入れるにはどうしたらよいのでしょうか？
未入力状態に戻る
“',0,1,2,3”にするとか
セルに値を並べておいて空欄のセルも含めた範囲を「元の値」に設定するとか
これがよさそうですが'は空白扱いですか？それとも'？
やってみれば分かるだろ、バカか？それとも？
すみません。バカです。
でも分からないならレスしないでもらえませんか？
そういうレスする暇があるなら、まずは試してから結果を書き込むべきだと思います。
あなたは助け合いという言葉を知らないのですか？
じゃあとっとと試して結果を報告しろよ
それくらいバカでもできるだろ
パソコンにExcelが入っていないから試せないんです。
試せるなら試してます。それくらいバカでもわかるでしょう？
分からないならレスしないでもらえませんか？
ましてやバカに───
ﾜﾛﾀｗ
俺もﾊﾞｶな様だｗ
初段以上の人お願いします
エスパー７級(´・ω・｀)
あなたの文章も意味がわからないのだが
マクロでインプットボックスを出したとき、
強制的に半角英数字モードにするには？
この辺が参考になるかも
http://officetanaka.net/excel/vba/tips/tips16.htm
もしくはInputBoxに代わるものをフォームで作ってもいいかもです
ま、Excelと関係ないのでスレチですね
【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)))
エラーになっちゃいました。
けど、ご回答ありがとうございました。
TIME関数は1日を「1」とするものなのでそもそも24時間以上の計算はできない
日数分のカウントをする作業列が必要
と、おーけーうぇぶが引っかかりました
ひとりごとに1シートか１テーブル使って、出勤時間をカウントして計算させるんじゃダメですかね？
ttp://i.imgur.com/ENS2A.png
なるほど。そういうことなんですね。
納得しました。ありがとうございました。
エクセルブックで例えばAというフォルダーのabc.csvという
ファイル内をコピーして
sheet1のa1に貼り付けるってのはマクロで出来るもんでしょうか？
普通にファイルをコピペしてa1に貼り付ければいいんですが
量が多いとそれも手間が掛かりますので。お願いします。
マクロ(VBA)で実現可能です
以下のキーワードで検索してみてください
excel vba csv 読み込み
時間部分だけを取り出したいのであればシリアル値にして切り捨ててもいい
ROUNDDOWN(A1*24,0)
名簿の方は個人情報なので、一人一人に番号をふってローカルにおいて
それを項目Ａのファイルと対応させることで利用したいのですがどうしたらいいですか。
上手く説明できてると思えないですが。
001; A山A男;
002; B川B子; シャツ
003; C野C助; クツ
VLOOKUP関数でどうでしょう
読み取りパスワードかけてさらにzip圧縮時にもパスワード
感謝！！！
でけました。ありがとうございます。
>>245
それも必要ですね。ありがとうございます。
【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.
この小数点を表示しない方法はありませんか？
よろしくお願いします。
With ActiveCell.Validation
.Add Type:=xlValidateInputOnly
.IMEMode = xlIMEModeOff
End With
って書いてみたけどエラーでだめだった。
表示形式だけでは無理。別セルに関数で工夫しないとダメ
ありがとうございます。
具体的にどの関数を使えばいいのか教えて貰えますか？
自分で考えつくのは、一度テキスト形式に変換してSEARCH関数で小数点の位置を検索、
MIDBで小数点の位置+1に値があればそのまま、なければMIDBで
1～小数点の位置-1を取得してVALUE関数で数値に戻す。
ってややこしくしすぎでしょうか。
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/
>>249じゃないけど
a1 - int(a1) = 0
だと小数点以下の数値はないってことになる。これでif分岐、text関数に放り込むのがいいんじゃないかな
なんか美しくないな…
=IF(A1<0,"▲","")&TEXT(ABS(A1),IF(TRUNC(A1)=A1,"#,##0","#,##0.####"))
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
【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()の結果を先に用意しておく作業用の列は使いたくないです。
=COUNT(A1:A6)
【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
仕様がわからないのでなんとも答えようがない
以下、それぞれどのような期待結果を想定されているのか教えてください
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：無 ⇒
また、「無視されてしまいます」の意味がわかりません
何が誰にどのように無視されるのかを具体的に書いてください
思いっきり間違えた・・・>>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：無 ⇒
また、「無視されてしまいます」の意味がわかりません
何が誰にどのように無視されるのかを具体的に書いてください
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
こんなことがしたいんじゃないかと予想
数値が入っているセルの合計なら
=sum(a1:a6)
で行けるけど、これじゃまずい理由が何かあるの？
>>256
ごめんセルの数ね
だったら >>256 だね
出来ました。
ありがとうございました！
文字列じゃなく数値確定なら、
=COUNTIF(A1:A6,">0")
とかでもいけそうだな
これでいいのかあorz
難しいほうばかりに目が行ってました
>>261
平均出したり、色々分析したいんです
>>265
今回は正数のみなのでそれもありですね
ありがとうございました
.Value → r.Value
.NumberFormatLocal → r.NumberFormatLocal
じゃね？
ご回答ありがとうございます。
すみませんが、11日の夜に改めてレスします。
おやすみなさい。
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 むり
【4 VBAでの回答の可否】 だめ
3H
３Ｈ
３H
など、1バイトと2バイトの入り混じったものを、1バイト2バイトの区別なく全て同じものとして収集することは可能でしょうか？
3H…2人
4H…5人
な感じでデータがあるので、うまいことまとめたいです
作業列を作ればいくらでも合算可能ですがスマートでないので…
スマートじゃないってどういうこと？初心者は作業列嫌がるけど、設けるほうがよっぽどスマートだと思うけど
=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様には申し訳ありませんが、諦めて作業列をつくろうと思います。
【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)が難しくてできません。方法を教えてください。
なんか色々分かりづらいな…
(1)が条件で(2)(3)が期待結果かな？
=IF(COUNTBLANK(B1:D1)<3,"→",IF(COUNTIF(A2:A$65536,"→")>0,"↓",""))
回答ありがとうございます。説明が下手糞で申し訳ないです。
仰るとおり(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,"↓","") みたいに繋げばできそうに感じたのですが
循環参照になってしまって無理でした。
(4)はじめて→が出てくる行（A4）より上の行では空白（A1、A2、A3）とすることはできないでしょうか
でした。
循環参照しないようにするなら作業列を作るしかないかと思います
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でやった方がいいと思いますよ…
=IF(COUNTA(B$1:D1)=0,"",IF(COUNTA(B1:D1)>0,"→",IF(COUNTIF(A2:A$65536,"→")>0,"↓","")))
回答ありがとうございます。
お二方の両方の方法で実現できました。
作業列はなるべく作りたくないので
>>277さんの方法でやってみようと思います
>>273 >>276 >>277
回答してくれた皆さんありがとうございました。
【2 Excelのバージョン 】 Excel2008
【3 VBAが使えるか .】 初歩
【4 VBAでの回答の可否】 出来れば避けて。
下のキャプチャは、あるシートで作ったグラフで表示されるデータの領域指定（グラフデータの選択タブ）ですけれど、
http://thuploader.orz.hm/1mup/dat/1mup_04698.png
Y軸の値の部分が、【Y軸の値】【（最初にグラフを作ったシート名）！＄A＄１：＄A＄１０】になっていてシート名の部分が固定になっています。
「！」以前（！含んでも含まなくても）を削るとエラーが出ます。
できれば、「今現在のシート（ブック同じ）の指定セル」の値を読んでくれるようにした上で、
全シートにコピー&ペースとしたいのですけれど、どうすればよろしいでしょうか。
初心者な質問で済みませんがよろしくお願いします。
ペーストしたあとにデータ範囲を書き換えるしか無理です
セルに納める方法を教えてください
セルの中に入れればいいよ
まずシートが３つあります。（甲シート 乙シート 丙シート）
甲シートのA1に、りんごと記述。
甲シートのA2には、乙シートのりんごの個数が自動的に入るようにし
甲シートのA3には、丙シートのりんごの個数が自動的に入るようにします。
乙シート・丙シートとともに
Ａ１～５ Ｃ１～５ Ｅ１～５に、りんごと書かれたセルが１つだけ
Ｂ１～５ Ｄ１～５ Ｅ１～５に、そのりんごの個数が書かれたセルが１つだけあります。
なるべく短く御願いしたいのですが
どうしたらいいでしょうか？
わかりにい説明ですいません。
「りんごと書かれたセルが１つだけ」なのであれば
「りんごの個数」は常に「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
個数の位置には数字しか入らないならば
=SUMPRODUCT((A1:E5="りんご")*1,B1:F5)
=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の使い方と違うので理解できてませんがコチラでは動いたのでよしとしときます。
解決しました。
とあり、出てきた数字を,区切りスタイルにしたいんですが
どうしたらいいですか？
H6＝8500
AD6=5850と入れると
【売上 (合計14350円）】と出てくるのですが
これを【売上 (合計14,350円）】という感じにしたいのです。
=IF(AD6>=1,H6+AD6,"売上")
こうしておいて、あとはセル書式で
すみません。
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ハイパーリンクが設定されているかどうかを判別する方法はありますか？
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
VBAをつかって複数のワークシートに列を挿入する方法を教えてください。
書式で検索するとか
マクロの記録
[Alt]+[F11]でVBEを開く
[Ctrl]+[G]でイミディエイトウィンドウを開く
“? ActiveSheet.Hyperlinks.Count”と打ち込んで[Enter]
For Each sh In Worksheets
sh.Columns("B").Insert
Next
ありがとうございます
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
A列にA2からA2000ぐらいまで日付データが並んでいるんですけど（昇順に並べ替え済み）
同一日付があるかどうか素早くチェックできる方法はありませんか？
上と比較する。
条件付き書式で色つけるとか作業列とか・・・
これじゃ「素早く」ない？
b2=if(countif(a:a,a2)>1,1,0)
でオートフィルハンドルをダブルクリック、下まで一気に入力できる
B列を選択して1を検索ってのはよくやる
それ以上は考える時間のほうがなぁ
http://www.eurus.dti.ne.jp/yoneyama/Excel/jituyou/jyufuku.htm
今回は>>306さんの案でやらせていただき、ダブりを発見出来ました。
>>307さんの紹介してくれたスレ、後でじっくり見てみます。
>>305さん
ちとしんどいです^^;
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 no
【4 VBAでの回答の可否】 ok
簡単な入力方法教えて
世界時計的な表を入力したいんで1から24までを
下のような感じで入力する時の技を
123
231
321
この123は1時23分を表していて、たとえば
23時43分なら2343にしたいということでいいの？
やたら多いのは何故なんだ？
ここには日本語が得意な人はこない
A1=1
A2=A1+1
B1=A1+1
B2=IF(B1<24,B1+1,1)
でB1:B2をB1:X2までフィルコピー、A2:X2をA24:X24までフィルコピーに違いない。
今回もエスパー検定取れなさそうだ
ただ普通であればそれだけでいいんだ
なのに、なのにどうしてなんだ
暗号かもしれん
なんだか悲しいね
2007は2003に比べて
大変使いよくなったと思う。
2003よりも昔のヘルプ見たことないだろ
驚くほどに使い勝手がいいぞ
ブラウザがタブブラウザになったくらいに違う
2chを専ブラで見るくらいにと言うかそれくらいに
2007のリボンは今までの素っ気無いスタイルから比べればライトユーザーに使いやすくなったのであろう。と思う。
ただ、16:9とか横長の画面がスタンダードになってきてるの知ってて、縦画面を狭くしているのかと意が湧いてくる時がある。
【1 OSの種類 .】 windows7 home 64bit
【2 Excelのバージョン 】 2010
【3 VBAが使えるか .】 no
【4 VBAでの回答の可否】 ok
上面じゃなくて左右にリボンを配置できませんか？
できない
excel 2010にした場合、次の処理が高速化されるか教えて下さい
・１０MBくらいのファイルを開く
・大量の行数（６万行くらい）のデータを、オートフィルタ → 任意の値のみフィルタ → 解除
・再計算
PCのスペックはwin7(64bit)、cpuはcorei5(2500)、メモリ8Gです
評価版でお試し下さい
http://www.microsoft.com/ja-jp/office/2010/trial/default.aspx
結果報告もお忘れなく
結果報告わすれんじゃねーぞ
OSが64bitならExcelも64bitを入れれば、間違いなく32bit版よりは速くなるよ
【2 Excelのバージョン】Excel2003
【3 VBAが使えるか】勉強を始めたばかりです
【4 VBAでの回答の可否】可
予約リストシートに載った商品がラインアップに出ているかを検索して、
あればラインアップのシートからデータを引っ張って抽出シートに書き出したいです。
その際、目視確認のため、ラインアップのシートのチェック欄に黄色を塗りたいです。
例としてシートはこのようになっています。
「予約シート」
Ａ Ｂ Ｃ … Ｆ
１ 氏名 電話 … りんご
「ラインナップ」
Ａ Ｂ Ｃ Ｄ … Ｌ
出荷日 産地 値段 りんご（青森） … チェック欄
出荷日 産地 値段 王林りんご … チェック欄
ラインアップの商品名は完全一致ではないので、検索は部分一致でやりたいです。
例の通りだと、「りんご」を含む、という条件で検索したいです。
下記のコードで
If FoundCell.Value Like "*" & mykey & "*" Then
ここで、型が違うエラーがでます。value同士になっていると思うのですが・・・。
部分一致、抽出、excelVBA、Like演算子等で検索しましたが直すところがわかりません。
アドバイス頂けませんか？
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を消し忘れました、すみません。
よくわからないけど適当に回答
エラーが出た時は優先順位とか疑ってみる
If FoundCell.Resize(1,1).Value Like ("*" & mykey & "*") Then
If FoundCell.Text Like ("*" & mykey & "*") Then
>>335
に先をこされたけど、ちょっと説明してみる
FoundCellはrange、つまり配列（セル範囲）だな。
配列なのに添字も付けずにいきなりvalueをとりだそうとするからおかしくなる
Range("a1:b2").Value のような感じ。どのセルのvalueなんだよと
解決するために、Resizeでセル範囲を(1,1)にしている
>>336はわかんね
レス下さってありがとうございます。
335さんのも336さんのもエラーはでなくなりました！
しかし抽出が一件も出てこないので、そこのコード見直してみます。
337さん、解説ありがとうございました、なるほど・・・。
Resizeの使い方も確認してきます。
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
エクセルでプリントの四方に枠線を引きたいのですが
図形の挿入→角丸四角形でやると
四隅の丸が大きすぎる形になってしまいます
四隅の丸のカーブを小さく（なだらか）にするにはどうすれば良いでしょうか？
よろしくお願いします
今回の件に関係ないけど
Dim i, s As Long
だと
Dim i As Variant, s As Long
だから、1行にまとめるなら
Dim i As Long, s As Long
にしないといけない
アドバイスありがとうございます、直します。
できました！できました！ ありがとうございました！
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】 可
A1～A3のセルにそれぞれ「1 2 3」 とうようなエクセルで作成したデータをｃｓｖ保存し、
メモ帳で開くと下のようになります。
1,2,3,
これを
"1","2","3"
のようにするにはどうのようにすればよいでしょうか。
excel csv ダブルクォーテーション 保存
でググればいいと思うよ
サンクスです。
評価版インストールできません。
「このパッケージのインストールが失敗しました」と表示されます
いろいろ調べてみたんですが今日はムリっぽいです
インストールに失敗するのは64bit版です。
とりあえず32bit版はインストールできました。
ひとまず使った感じは「速すぎ」です。
・１０MBくらいのファイル
Libre/Kingsoft・・・開くのに10秒くらい
2010・・・5秒かからない
・オートフィルタまわりの動作
Libre/Kingsoft・・・若干もたつく
2010・・・もたつかない（ただ、空白をのぞくセルとかの選択が面倒）
コピペ（大量データ5列×6万行）
Libre/Kingsoft・・・コピーに数秒、ペーストに5秒くらい
2010・・・コピペあわせても数秒
びっくりするほど速くなりました。
しかし64bit版でインストールにコケたのがちょっと気になります。
できたら64bit版で検証してみたい
http://excelnavi.livedoor.biz/archives/2603086.html
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
ソートに関する質問です。
文字列に入力した文字の3番目の文字でソートをする方法を教えてください。
作業列に=MID(A1,3,1)って入れてソート
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
お世話になります。
２つのファイルを使っての質問です。
まず１と２のファイルがあるとします。
１のファイルのＡ列に１０００件ほど名前が書いてありＢの列には数字が入ってます。
２のファイルにも同様にＡ列に名前が入っていますがＢ列は空白です。
２のファイルのＡ列に入っている名前と同じものを１のファイルから探し出しその数字を２のファイルのＢ列に入れたいのですがそのような事は可能でしょうか？
初心者なのでVlookupの使い方わからないです。
おいおまえふざけてんのか？
ちょっとツラ貸せや・・・ひさびさにブチきれたわ
のことを馬鹿にするやつは何人たりとも許せねえ
B列に文字だけ
C列に数値だけ といったように振り分けることって出来ますでしょうか？
そんな便利なワークシート関数がありましたら教えてください。
ABC123 → ABC 、123
string32.1→string、32.1 小数も少数あります
0x35 → 数字から始まるとかはﾊﾅから検討しなくて結構です。
VBAﾏｸﾛで一文字ずつﾁｪｯｸするのが面倒だなぁ、他に方法あるのかなぁ
=RIGHT(A1,MATCH(TRUE,ISERROR(RIGHT(A1,ROW($A$1:$A$10))*1),0)-1)
式は入れた後に、CTRL+SHIFT+ENTERで確定（式の前後に｛ ｝がつく）
↑これで数字部分
文字部分は
=SUBSTITUTE(A1,B1,"")
とかで出来るかと
型が一致しません というエラーが出ます。
どこがダメぽなの？
【2 Excelのバージョン 】 Excel2010
セルに'90120906と数字が入っていますが、先頭の'が消せません。
セルの書式の分類を標準から文字列に変えても消せませんでした。
どうやれば消せますか？
これを右隣のセルにはみ出してもよいので、書かせたい場合どうすればよいのですか？
セルには数値というよりは数式を書き、その計算結果が溢れる場合を想定しています。
どなたかよろしくお願いいたします。
5つのセルをいっぺんには比較する方法が違う
色々あるけど、とりあえずわかりやすいのは
If Range("A11") = "" And Range("A12") = "" And Range("A13") = "" And Range("A14") = "" And Range("A15") = "" Then
もうちょっとかっこいいのをお願いします
特にこういったコードではな、誰でもパッと見てすぐそれとわかるほうが万倍優れている
ありがとうございます。
どこかに数字の1を入力
コピーして、'9012090のセルを選択して形式を選択して貼付けで「乗算」にチェックしてOK
あなたはそう思うかもしれないけれど
見た目も大切ですよ
世の中見た目重視ですからね
ほら見事にブーメランされて今の気持ちはどうだ？
悔しいのう悔しいのうｗ
いえいえ
この場合の見た目というのは
かっこよさのことを言っているのです
あなたには分からないかも知れませんねw
プログラマでもない若造が何を偉そうに言ってんの
かっこいいだけの自慰コードなんて誰も要らないよ
じゃあ自分でかっこいいコードに改良して晒してみなさいよ
どんな評価を受けるか楽しみだわ
形式を選択して貼り付けで「値と数式の書式」で貼り付け
これで君も明日から身長が伸びるわ宝くじにあたるわモテモテだわで大変です
For Each r In Range("a11:a14")
t = t & r.Value
Next
If t = "" Then
さいあく
右隣のセルを結合すればいいんじゃないかな
.Value
がダメぽです
かっこわるぅー
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 WorksheetFunction.CountA(Range("A11:A15")) = 0 Then
とかwww
http://dreamy.boy.jp/tec3_37.htm
>string32.1→string、32.1 小数も少数あります
むむむ。。。。
俺の変換だと「少数も少数あります」となってしまった。。。
とりあえず、セル幅変えずに数字が表示したいなら
セルの書式設定>配置>縮小して全体を表示する
=text(数値,0)
とか使ってかな
ありがとうございました！
A 商品1 20個 1000円
A 商品2 10個 2000円
B 商品3 50個 2000円
商品の種類は無視して合計個数と金額を横に並べるにはどうしたらいいですか？
ウィザードだとデータテーブルが縦に並んでしまいます。
A 30個
............ 3000円
B 50個
.......... 2000円
A 30個 3000円 ← にしたい
Range("A11").Formula="="""""
MsgBox Range("A11")=""
MsgBox WorksheetFunction.CountA(Range("A11")) = 0
値だけコピペしたいとき、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
簡単だよ
Workbooks("Book2").Sheets("Sheet2").Range("C5") = _
Workbooks("Book1").Sheets("Sheet1").Range("B3")
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
場合によるけど↑みたいな感じにするかなあ
×拡張子
○ぷろぱてぃ
なだ
.xls は拡張子だと思うが？
.valueのこととを指してると思ったんだが
最初から
デフォルトプロパティも省略せずに書いた方が分かりやすいでしょう
って書けよ
てか、お前みたいに書いたり書かなかったりするのが一番分かりにくいだろ
今後>>400は書き込む前に3回は読み直して、
母ちゃんにもチェックしてもらえよ
クズが
ゆとりかいwww
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 OK
【4 VBAでの回答の可否】 OK
ピボットテーブルを作成する場合、Defaultで画像の部分にチェックを入れておきたい。
何か方法はあるでしょうか？
http://www.dotup.org/uploda/www.dotup.org2755489.jpg
できましたーｔｈｘ
【2 Excelのバージョン 】 Office X, Office 2011
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
OSX Lionに上げるとOffice Xが使えなくなるのでOffice 2011を試用して
いるのですが、一部の列を非表示にしているテーブルを選択範囲限定で
「Webページとして保存」にすると、非表示セルも全て表示した状態で
htmファイルが生成されるようになり困ってます。Office Xでは見た目通り
非表示セルは抜いてhtml化されたのですが・・。
どこかにスイッチがあるんでしょうか？
ありがとん
>>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")に図形が入ってるとこれもコピペされちゃうのれす。
セルの色とか文字の色とかはコピペしたいんだけど図形はいらないのれす。
ど～すればいいのか教えてほしいのら。
図形の書式設定で「セルに合わせて移動やサイズ変更をしない」にチェックを入れる
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 OK
【4 VBAでの回答の可否】 OK
Sheet1を午前の件数結果sheet2を午後の件数結果として合算し、
Sheet3にカレンダーの日ごとに（例えば、1日○件、2日○件･･･）と集計
出来るようにしたいのですが、どのような関数を使えばよいでしょうか？
ｴｽﾊﾟｰを待て。
君の説明ならこういうことになるけど？でもVBA使えるのにこんな質問しないよな
=SUM(Sheet1!B2,Sheet2!B2)
sumif
>>389
ありがとうございます。
わかっちゃいるんですが、、単純にはみ出てほしい。
昔のExcelはそうだった気がするんだけど。。
文字と式を別プロパティにしだしたあたりからの仕様なのか。。。。。
>>390 はダメなの？
やってみたら図形はコピペされなくなったけど
「セルに合わせて移動はするがサイズ変更をしない」の設定なのれす。
毎回設定を変えるのはメンドいのよね～
「セルに合わせて移動はするがサイズ変更をしない」に変更する頻度がそんなに多いの？
bootcamp（vm系でもいいけど）つかってWindows入れよう
"形式を選択して貼り付け"でオプション"すべて"でペーストすれば
図を貼り付けずにセル内容をコピペできる。
何のためのVBAだよ、VBAでやれ
できた！できたよ～ん
ありがと～～ん
>>424
だからぁ～VBAでやってるっつーの。
411から読み直してみれ。
>毎回設定を変えるのはメンドいのよね～
これをVBAでやれつってんだよ
子どもたちを守るためには必要だよな
ものの本質とかけ離れたことをやっても意味ねーよｗ
やっぱ無理っすかー？？
VLOOKUP、SUM、COUNTIF、SUMPRODUCT
この辺使えばできると思う
なるほど、納得
好きなんだよExcelが
オレの波長とExcelがピタリと合うんだヨ
Excel、Excel、Excel
命をのせて戦うんだ
いちばん好きなソフトでいくのが当然だろう
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
のように、どちらかにまとめるのが一番早いと思う
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 勉強中
【4 VBAでの回答の可否】 可
よく使う処理を標準モジュールに「Public sub」で書いて、複数のユーザーフォームやシートから
Callで使おうとしています。
ワークシートだと、呼び出したシートを「ActiveSheet」と書いておけば動くのですが、
ユーザーフォームだと「ActiveForm」では、変数が宣言されてないというエラーになります。
どのユーザーフォームで開いても動くように、そのときアクティブになっているフォームを指定するには
どう書けばいいんでしょうか？
ActiveForm Excel VBA ユーザーフォーム 参照などで検索しましたが、
Ａｃｃｅｓｓの解説ページに迷い込んだりして、解決できませんでした。
よろしくお願いします。
ちょっと方向性が違うかもしれないけど引数でフォームを渡すとかどうだろう？
Subプロシージャ定義
Sub foo(form As Object)
Debug.Print form.Caption
End Sub
フォームからの呼び出し
Call foo(Me)
その発想は無かったです！
ちょっとやってみます、レスありがとうございます。
もうすぐ出勤なので、また夜に改めて結果ご報告します。
い A 1
ろ B 1
ろ C 5
は A 2
こういう行列を
品 A B C
い 1
ろ 1 5
は 2
こんな感じに出来ますが、
逆はどうやるんでしょうか？
別シートの゛テータ領域をそのまま見えてるセルにだけコピペするのって
どうやってやる？
少しずつコピペするかVBAでやるか
それがイヤだから聞いておるのだが
条件後出しとかさすがにないわ
VBAでやるならそっちのスレで質問しておるのだ
バカボンのパパなのだ
フィルタがかかっている方に貼り付けるのは無理なんだから
フィルタがかかってる方をコピーして別シートのデータ領域の横に貼り付ければいいんじゃないの？
結果は一緒でしょ
スマン忘れてくれ
VBAでしかできないからそっちのスレで質問してこい
呼び出す列内のセルをAltなどで改行している場合に、VLOOKUP関数で呼び出したセルには1行で表示されますよね。
それを呼び出したセル内でも改行されるようにしたいんですが、何か方法はないでしょうか？
例
「A1」セル内には、改行された文章がある
VLOOKUP関数を使用して「B2」セル内に「A1」を読み込んだときに「A1」と同じように改行された文章にしたい
セルの書式設定で「折り返して全体を表示する」のチェックをONに
回答ありがとうございます。
その手法はググったときに発見したのですが、反映させるセル側に十分な列幅を確保する必要がありますよね。
読み込む幅バラバラなので、できれば反映されたときに列幅も反映されるようにしたいのです。
やはりその方法は無理なんでしょうか。
>>451と質問内容が変わってしまってるような気がするけど…
残念ながらVLOOKUP関数に列幅を変更する機能はありません
あらかじめ余裕をもった列幅にしておくしかないと思います
ですねｗ説明不足でした。
やはり無理そうですか。
丁寧なレスありがとうございました。
VBAならできなくはないと思う
http://msdn.microsoft.com/ja-jp/library/cc390843.aspx
できるに決まってるだろ
どんだけVBA知らないんだよ
例えばRange.Findメソッドで検索して
Range.ColumnWidthプロパティで取得・設定するだけだ
切り取りでいける
切り取った元データは保存ぜずに呼び出せばおｋ
ただし、オートフィルタや集計でやや挙動が違う
質問者はVLOOKUP関数の質問だと言ってるだろ
これはVBAでの回答を求めているわけではないということだ
なのでVBAでならできることを示唆するにとどめただけ
どんだけ読解力がないんだよ
できなかったぞ。
>>161のデータで実験したけど、やっぱり下のようになった。
1 1号
2 2号
しっこ 3 3号
4 4号
5
6
7
8
9
10
>>456のリンク先が的外れすぎるw
ホントだなｗ
平成は24年まで。
そして今年の平成24年＝□□元年となる。
将来□□を表示させるにはどうするの？
OfficeUpdateすればいい
パッチ待て
自分でできない？
たとえば今年は「化成元年」になったとシミュレートして、
今後の予定は「化成元年」「化成2年」・・・・・と今から表示させたいんですけど。
それに気になったのは正式表記は最初の年は「元年」なのにExcelは「1年」なんだよな。「平成1年」とか「昭和1年」とか表示される。
またその話題か
去年やっただろ
今平成だからいいじゃん
ごめん、勘違いしてた。がまぁできなくもない
http://www.dotup.org/uploda/www.dotup.org2771287.xls.html
コピーすると、見えてるセルだけが抽出される
それを利用して、予めインデックスをつけておき、そのインデックスを下に振り直せばおｋ
VBAでユーザ関数作ればできる
もう西暦使わせろよ
普通に平成50年とかって書くよ
それで問題ない
セルの書式設定→表示形式→ユーザー定義で設定できる。
いや問題ってか面倒なんだよ
たとえば西暦なら単純に引き算ですむのに
元号だと昭和20年から平成23年って何年間だとか
パッと出てこないのが不便でしょ?
きっと頭がボケ始めてるんだ。
西暦：ボケたり老化したりしても問題がない優秀なシステム
元号：欠陥のある劣ったシステム
ってことだな
人間誰しも老いるんだぜ
それを否定するのは自己否定にほかならんよ
まではパッと出るぜ
その引き算はニガテだけどな
上から借りてくる上から借りてくる・・・
申請や提出する書類で過去の日付を頻繁に書くのか？
Excelに西暦と和暦の変換できるし無問題だよ。
vba
イミディエイトウインドウを使ったことがほとんど無く、Debug.Printを調べるところから
やっていたのでお礼報告が遅れまして申し訳ありません。
イミディエイトって便利ですね！
キャプション＝フォームの名前をイミディエイトに書き出す、というコードだというのは
分かったのですが、そこからどう名前を引っ張ったものか分からず・・・。
そこで、
Dim myForm As String
myForm = "ユーザーフォームの名前"
この２行を呼び出す方のフォームに書き込んで、Call 処理、にしてみました。
そうしたら今度は別のエラーが・・・。
フォーム自体にコードが書いてあったときにはきちんと動いていたので、
もうちょっと勉強してみたいと思います。
イミディエイトの便利さが分かって捗りそうです、ありがとうございました。
仲良く使ってね
>>440は、フォームをfooサブプロシージャに渡して、
サンプルとしてフォームのCaptionをイミディエイトウィンドウに出力しただけ
別にCaptionが重要なわけじゃないからね
55＋11だ
中学の時の数学の教師が教えてくれたわ
ピボットテーブル使うか
キャッシュから戻す(キャッシュが残ってる場合)か
ワークシート関数使うか
VBAでマクロ組むか
ウォッチ式調べてきました。
使ったこと無かったです、ありがとうございます！
>>483
アドバイスありがとうございます！
【2 Excelのバージョン 】 Excel2000
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
あるフォルダにある複数のtextファイルの最終行だけを一つのシートに読み込むマクロを教えて下さい。
フォルダ一覧の取得
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html
ファイルを開く
OPEN ステートメント
最後の行
http://officetanaka.net/excel/vba/file/file08b.htm
コピーはマクロの記録
これを組み合わせれ
サンクス
やってみる
【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が部品名に変わります。
Ｆ２キー、エンターと押印しなくても表示される方法を教えてください。
やってないけど値で貼り付けしてみてはどうかな
=if(and(a1*24>15,a1*24<23),2,0)
ｍきたいなー
再現しないからブックどこかに上げてくれ
日付もいれなければならないんです。それでもいいんですか？
表を用意して
VLOOKUP
張り付け方はどのようにしてます？
そのまま貼り付けてますか？
それとも、形式を指定して貼り付けを選んで、値貼り付けにしてますか？
だめだね
=if(and(hour(a1)>15,hour(a1)<23),2,0)
だね
>>493も頭わるいけど
お前も相当だな
課題を満たせないことに気付け
=VLOOKUP(TEXT(A1,"hh:mm"),{"00:00",3;"07:00",1;"15:01",2;"23:01",3},2)
押下でした・・・
>>492 >>498
コピーして値だげ貼り付けって書きましたけど？
>>495
会社のファイルなので無理ぽ。
2010でフツーに作れば再現すると思いますが、2003だと
再現しないですね・・・
そう？酔っ払ってて試す気が起きないや。
>>502
A2を文字列に設定しておく
なんだろうな、valueが"0"と0でかわってんのかな
2010でフツーに作ればって
お前が作れよ！！
お前が作って例を上げろって言ってんだよ！！
うｐロダ教えて
自分で調べろや
教える側だって嫌な気はしないよ
学校でも会社でも同じだと思うがな
ネットでもな
フツーに作れないバカｗ
あるいは、面白い質問なら
教える側だって嫌な気はしないよ
学校でも会社でも同じだと思うがな
ネットでもな
lzhに圧縮してみたけど、これもダメ・・・
助けてください
コピーして値だけ貼り付けというのは
「形式を選択して貼り付け」＝＞「値」 という事を言っているのだろうから、
シート１のＡ列の属性が数値になっていて
そこに値だけ張り付けたので、Ａ列属性が数値属性のままで
比較されてるんじゃないかな。
その状況でテストしてみると、私の環境でも再現する。
文字属性にしておいて値を貼り付けるか、
コピー元が文字属性ならば、値貼り付けでなく、そのまま貼り付けすれば
大丈夫じゃないだろうか。
http://ynib.info/up2/10m/
罫線とか、セルの色があったりして値だけ貼り付けてましたが、
そのまま貼り付けると表示しますね・・・
もうちょっと考えてみます。
ありがとうございました。
今の形のまま生かすなら下のようにvlookupにText関数をつけてやれば
いけるんじゃないだろか
=IF(A2<>"", VLOOKUP(TEXT(A2,0),Sheet2!$A$1:$C$5,2,FALSE),"")
http://www.forest.impress.co.jp/docs/review/20120322_519415.html
Excelのショートカット一覧みたいな参考サイトがありましたら教えてください。
基本機能だけではなく、セルの結合、行や列の表示/非表示、選択セルの内容に合わせて列幅調整、あたりも
キーボードで素早く操作していたので、マネしたいのですが・・・。
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
ヘルプにもあると思うけど？
http://office.microsoft.com/ja-jp/excel-help/HP010342494.aspx
レスありがとうございます。
やはり公式のが一番詳しくて見やすいんですね。
印刷用のカードもありますし。
できれば、「Alt、O、C、R」で列幅調整とか、「Ctrl＋スペース」で列選択、あたりまで
印刷しやすい形になってるのが無いかなあと思って探しているのですが・・・。
そのあたりになると、Excel2003あたりのサイトを見た方が良いのでしょうか。
自分で好きなような作ればいいんじゃないの？
Excelで作れば楽ちんだよ？
【2 Excelのバージョン 】 Excel2007と2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
入力規則をリストで作って、更にその規則に則って入力されたものに該当する数値を隣のセルに自動で入るようにしたいです。
説明が下手なので、何をしたいか下記ろだにうｐしました。
http://www.uproda.net/down/uproda464747.xlsx.html
IFを延々作っていく方法しかないでしょうか？
本来は30通り位あります。
うｐのもののように、テーブルは整列させて置いておけます。
ご回答お願い申し上げます。
C2に
=IFERROR(VLOOKUP(B2,E:F,2,0),"エラー")
下にコピー
ありがとうございます
VLOOKUPですね
エラーと出したい場合は更にIFERRORを使うと（こだわらないので使わずにFALSEとしておきます）
簡単にできる方法があったはずなのに、、という事で質問してしまいました。
お世話になりました。
遅くなりましたがレスありがとうございます。
ピボットテーブルでやってみたら
い
A1
B
C
ろ
A
B1
C5
は
A2
B
C
となってしまいました。
空白は表示させたくないのです。
もう少しヒントお願いします。。
そうですね。
使いたいショートカットも限られてますし、公式のものをベースにして
自分好みにアレンジしてみます。
【2 Excelのバージョン 】 Excel2002
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
Excel以外のファイルの作成日時といった情報をExcelを起動したら自動で読み込みたいのですが
そういったことができる方法があればヒントでもいいのでよろしくお願いします
「Excel以外のファイル」って世の中には無限にあるけど？
「作成日時といった情報」ってなんだ？
「読み込みたい」ってどういうことだ？
全く意味がわからないので具体的に書いてくれ
ここ参考
http://www.atmarkit.co.jp/fdotnet/dotnettips/370timestamp/timestamp.html
ファイル作成日時の取得って言えばいいよ
すみません用語に詳しくないので分かりにくかったですね
>>529さんのおっしゃる通りです
>>529
情報の後出しで申し訳ないのですが、URLにあったサイトの説明に
>ファイルのタイムスタンプは、ファイルが「使用中」もしくは「読み取り専用」のときには設定できない。
とあったのですが、まさにファイルの使用中に読み込みたいのですがいい方法はないでしょうか
具体的にはゲームを作っているのですが
ゲーム起動時にゲームランチャーのExeファイルの作成日時を取得したいのです
Excelに関係ない話は余所でやれ
ファイル作成日時の取得
でぐぐえ
Excelで取得したいと最初に書きました
>>532
その方法で勉強したいと思いますがVBAは初心者なのでまた何かあったらお願いします
http://toro.2ch.net/test/read.cgi/tech/1327763113/
こっちに行ってみるといいよ
Excelは関係ないってことに気づかせてくれると思うから
そうなんですか
スレチだったのならごめんなさい
スレチなんだからしっかりと謝れよ
(⌒)､ .人 λ＼､ .＿＿＿
＼. ＼ 、 ヽ.／ ー ー＼
|＼ ＼ ヽ.／ （ ●） （ ●）
| ＼ ＼ ／ （__人__） ＼ はいはい、どーもすみませんでした
|. ＼ | ｀ ⌒´ |
. |. |.＼_ノ＼ /
. |. | | ＼＿＿＿＿＿_／
. | ) .| ￣￣
. | | .|
| |.| .|
. | | .| .|
／ / / ヽ,
(＿_ノ ヽ、__つ
手に指を付け加えればちょっとはわかりやすくなるかな？
直立して腰から120゜くらい折り曲げた最敬礼みたいな感じになってるのかな
あと顔も一段下げてみるか
,rm⌒ ⌒ヽ,ヽnn
.c( ) . λ＼､ .＿＿＿
＼. ＼ 、 ヽ.／ ＼
|＼ ＼ ヽ.／ ー ー_＼
| ＼ ＼ ／ （ ●） （ ●） ＼ はいはい、どーもすみませんでした
|. ＼ | （__人__） |
. |. |.＼_ノ＼ ｀ ⌒´ /
. |. | | ＼＿＿＿＿＿_／
. | ) .|
. | | .|
| |.| .|
. | | .| .|
／ / / ヽ,
(＿_ノ ヽ、__つ
【2 Excelのバージョン 】 Excel2007か2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
名簿を作っていて、入社～退社までの期間を表示させようとしています。
Ｇに入社年月日、Ｈに退社日を入力。
在職者には本日迄での期間を出そうとしました。
=DATEDIF(G11,=IF(H11="",TODAY(),H11),"Y")
ＩＦで退社日が空欄ならTODAYを表示させてという式にしたつもりですが、エラーでダメでした。
良い方法を教えてください。
=DATEDIF(G11,IF(H11="",TODAY(),H11),"Y")
なんか・・・すいません
関数の前は=入れないといけないものと思ってました。
ありがとうございました。
勉強になった
DATEDIFを知らない人間がいたことにビックリだよ
今までどうやって日付計算をしてきたのか
むしろ興味深い
俺にしてみればヘルプに載ってることを質問してくる方がビックリだわ
DATEDIFは暗黙の常識
どうやって日付計算してたの?
97の頃はどうだったんだろう
ヘルプは読むけど入門書なんて買ってまで読まないからな・・・
どうやって計算してたんだろう？
VBAでやってたのか今まで必要になる機会が無かったのかだと思う
っていうかネットで調べたりしないの?
DATEDIFでググってみれば
どれだけ自分が無知だったのか
気づくかもね
調べないといけない状況に陥ったら調べるけど
そうならなかったってことは今まで必要になる機会がなかったんだろうね
たかが非公式の関数1個で無知呼ばわりはどうかと思うけど、大人なので許してあげる
さすがだな、大人のExcel
無限ループに陥ったときは[Ctrl]+[Break]で止めることができますよ
「あれ? 何ですか、この計算…。普通DATEDIFじゃないですか?」
「ん? DATEDIF? そんな関数聞いたことないな。ヘルプにも載ってないし」
「って言うか、ネットで調べたりしないんですか? 日付計算でDATEDIFはある意味、常識ですよ」
「今まで調べないといけないような状況には陥らなかったからな。
そうならなかったってことは今まで必要になる機会がなかったんだろうね」
「ヘルプ見るのもネットで見るのも手間は変わらなくないですか?
僕はヘルプよりネットでいろいろ見る方が分かりやすいですけどね」
４月１日に入社して、翌年３月３１日が退職だと１年として計算しないの？
【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 もも 山梨 福島 山形 岡山 和歌山
----------------------------------------------
式が使えないんだからVBAでやるしかないと思う
VBAが使える人なんだから自分で組めるでしょ？
組んでる時に分からない事が出てくれば改めて具体的に質問すればいいからね
http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_event.html#change
ヒントはこのへん
そういや2010あたりではDATEDIFのバグって完全に直ってんのかなあ
この空白行だけを削除するのに、
１．A列を挿入
２．A1セルに1（ダミーデータ）を入力
３．A1セルをコピー
４．A2から一番下の行（B列一番下の左隣り）にペースト
５．1行目を挿入
６．A1とB1にオートフィルタ
７．B列から空白行を抽出
８．空白行を削除
９．オートフィルタ解除
１０．A列削除
をしています。
途中で送信してしまいました。
４の A2から一番下の行（B列一番下の左隣り）にペースト が少々手間取ってしまいます。
もっと効率よくするにはどんなやり方がいいでしょうか。
できればマクロはなしでおねがいします。
ESPを待て
B列を選択してオートフィルタするだけじゃ駄目なのか？
残念です
B列を選択してオートフィルタだと、全てが空白セルになってしまいます。
だから、それを削除すればどうなる？
1行目のデータ以外が全て消えてしまいます。
（すべて）
（トップテン）
（オプション）
（空白セル） ←これを選択したとき
（空白以外のセル）
例を上げるか
エスパー板に行ってこい
そこは分かってんだよw
会社のデータなので無理です＞＜
>>582
分かってるなら教えてください。
あっすまん。B列じゃなくA列だった。
要は566の6から9を実施したらいいんじゃないのということ。
おおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおおお
できたぁああああああああああああああああああああああああああああああ
もっと伝える努力をしろよ
ホントに会社行ってんのか
Windowsうｐダテで2002（OfficeXP)でも.xlsxが読み込めるんだよ（ﾌﾟ
ごめんなさい。
途中まで書いてて寝ちゃいました＞＜
さすがだな
すげええええええ
http://toro.2ch.net/test/read.cgi/tech/1327763113/836
この人に聞けばわかるかと
統計の相関係数を求めたい？
マイニングのアソシエーションの相関を取りたい？
どっち？
ダミー列を１列挿入して、１から昇順で番号打っておく
その他の列でソートすれば、上か下に空白行集まるから
それを削除。
その後、ダミー列で昇順ソート。
ダミー列を消す。
で良いでしょ。
>>561
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
「はい」と「いいえ」のボタンと作って、ボタンを押すたびに
その隣に押した回数が表示されるようにしたいんですがどうすればいいんでしょうか？
作ったぞ
http://www.dotup.org/uploda/www.dotup.org2794734.xls.html
隣というのは指定できるかどうか知らない
引数で指定してsubに渡せばいい
「はい」と「いいえ」のボタンを作って
「はい」のカウンタと「いいえ」のカウンタを作って
「はい」もしくは「いいえ」のボタンが押されるたびにカウンタをインクリメントして
それぞれのボタンの隣にそれぞれのカウンタを表示すればいい
excel2010で「はい」と「いいえ」のボタンと作って、ボタンを押すたびに
その隣に押した回数が表示されるようにしたいんですがどうすればいいんでしょうか？
マルチすみません。
こっちに投稿したんですが、人がいなさそうだったので向こうで
質問してしまいました。
解凍してくれた方、ありがとうございます。
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
指定したフォルダにあるExcel以外の複数の大きいバイナリファイル（20MB程度で同一フォルダ内にあるファイルのデータサイズは全く同じ）から途中の指定したアドレス1～2バイト分のデータを抜き出して、その情報をセルに表示して並べて行く。
そう言った使い方って出来ないでしょうか？
よろしくお願いします。
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
Sheet1で
りんご 120円
みかん 200円
Sheet2で
りんご 120円
みかん#2 180円
いちご 250円
と入力しました。
Sheet3に
りんご 120円
みかん 200円
みかん#2 180円
いちご 250円
と自動的に出すにはどうすればいいでしょうか？
ダブってた場合、どちらを優先させるんだ？
仮に同じ物のシート1とシート2で値段が違う場合はあるのかないのか？
Excelのみ、VBA無し
ではできない。
PowerShellでも使ったら。
値段の違うものは#なり番号なりで区別するつもりでした
>>611
VBAが必要なのですね。これを機に勉強することにします
う～ん、この場では出来ないと考えたほうがいいだろう。
VBAでできるがExcelに関係ないのでスレチ
↓これをSheet3に入力すればいい
=Sheet1!A1
=Sheet1!A2
=Sheet2!A2
=Sheet2!A3
できなくもないが死ぬほどだるいな
いみわかんないわね
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 むり
数式とかの質問じゃないんですけど大丈夫ですかね？
名札みたいなのが作りたいのですが、
ワードアートかテキストボックスあたりを使った時に、文字数が変わってもセルの大きさを変更しないようにするかつ、複数行にならないようにするようなことはできないでしょうか？
（例：志村だと2文字だが、いかりやだと4文字なのでだいぶ長さが変わる）
設定とか見てみたのですが、該当する箇所にチェック入れてもうまく反映されません。
文字サイズはタテに長くなってしまっても問題ありません。
よろしくおねがいします。
質問の意味がわからん
学生ならまず先生に文章を見てもらってくれ
社会人なら手遅れだ
要するに枠いっぱいに入れたいってことかね
2つテキストボックスを用意して、
一つは実線の枠、
一つは枠なしで、文字のレイアウト用に使ったらどうかな
もしかして、「テキストに合わせて図形のサイズを調整する」の逆で、
「図形に合わせてテキストのサイズを調整する」としたいわけ？
残念ながらExcelのオートシェイプではできません
配置を均等割付にするとかじゃだめなんかな
空白セルがなければ、１から昇順で番号を打つのは
手間を掛けずに済むけど、空白セルがあるときはどうやるの？
>>573では、ダミーデータのコピペに手間取ってるみたいだけど、
これより簡単な方法なの？
>空白セルがあるときはどうやるの？
データ行が多く、途中に空白あるとき、連番がそこで止まっちゃう
という問題ですね。
私の場合ですと、行数が多い時は、初めに画面分割の行のバーで
画面を分けちゃいます。そして上半分には行のトップ。
下半分にはデータの最後の行が表示されるようにしてから処理を
行っています（これは連番に関係なく、常にそうしてます）。
こうすると、１行目から最終行まで選択可能になるので、そこで
１行目にたとえば１と打って、２行目から最終行を選んで貼り付け。
そして、１行目に１、２行目に２と打って、それを選択して
セルの右下をダブルクリックで、最終行まで連番がつく。
文章で書くと大変そうですけど、実際にやってもらうと、簡単に
できるのが分かると思います。いつもデータ行数が多いので
こんな方法を多用してます。
[Ctrl]+[End]とか使えば簡単だよ
間に何度もスペースセルが入ってきた場合に
その方法が使えないんで（大変なんで）質問してるんじゃないかな。
Excel2002ではできないのか
Excel2003でしか試してなかった
それはスマンかった
今年は何年か知ってるか？
2012年です
これ以上はスレチなので余所で質問してください
やめたほうがいいのかな
いつの間にかオフになっててエラーでて
かっこ悪い
[Ctrl]+[End] と [Ctrl]+[↓] を混同してないか?
[Ctrl]+[↓] は空白セルがあったらその手前までしか飛ばないけど
[Ctrl]+[End] なら空白があってもシート全体の最終セルまで行くよ
正しくは"シート全体"ではなく"使用されているセル領域を含む矩形"の最終セルだね。
出された問題がシート全体を選ぶ問題じゃないからね。
ごめん
出された問題が使用領域全体を選ぶ問題じゃないからね。
細切れデータがあって空白列を作って連番をどうふるのか教えれ
連番振りたいならROW関数とか使えばいい
1行目に1を設定して、2行目以降は+1するとか
例えば、A1に1、A2に=A1+1、A3以降はA2をコピペ
関数打ってコピーするくらいなら
１，２と売ってコピーする方がまともじゃない？
そもそも、問題の目的でいえば、並び替えするんだから
Row関数使ったら、並び替えたらもとの順番が分からなくなっちゃうでしょ。
目的がめちゃくちゃになってるおー
1行目にROW関数を入力して、2行目以降はそれのコピー→貼り付け
貼り付け直後はROW関数のセルが全選択されているのでそのままコピー→値の貼り付け
文章にすると長くなるけどたいした操作じゃないよ
１，２と打ってコピー、ってのがどういう方法なのかよくわかんないけど
こんなの各自好きな方法でやればいいと思うよ
どんなやり方でもそんなに手間かかんないでしょ
10000行やるのに20秒くらい掛かる。
この20秒が手間なのだ。
10000行目からA2セルまで一気に選択して（名前ボックスでA2:A10000と入れる）
=A1+1
でCTRL+ENTER
独り言ならツイッターかブログへどうぞ
でもどんなExcelファイルなのかちょっと気になるｗ
もともとの、>>566 の問題分かってる？
>>566は>>587で既に解決している
この一連の流れは>>626の質問から始まっているって分かってる？
単に連番を打つのは分かってる。
そんな質問してない。
その通り、だから元々の>>566は既に関係がないわけ
でも関係ないこと答えてるよ。
もともと質問されてる本人が私だから。
お前が誰かなんて知るかボケ
>>640の質問に対する回答はもう十分出そろったからあとは好きな方法を取捨選択しろ
回答に不満があるなら改めてテンプレに則って再質問しろ
質問してない回答してるだけ
＞もともと質問されてる本人が私だから。
とか、頭悪すぎ
【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行まで対応できればと思っています。
よろしくお願いします。
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
映画のタイトルをA1に入力すると
自動的にネットから監督名、製作年、俳優名などが取得できるようなものを作りたいと思っていますが
そんなのは可能でしょうか？
DBから取得ではなくあくまでもネットから拾う形にしたいです、
教えてください
WindowsXP
2003
否
不可
Excelのマクロの記録でピボットテーブルオプションを開き中央広い場所に合計、縦または横の項目に依頼理由と入れましたが、依頼理由を置いた行が黄色になるのはどうしたら修正できますか？
マクロ記録でピボットテーブルはできないのでしょうか？
>>127とか参考になるんじゃない？
可能です
>>564が参考になるでしょう
マクロの記録というのは、一連の操作を記録してVBAのコードとして出力する機能ですよ
過去ログで似たようなのがあったなぁと思いながら>>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
同じ行にキーを設定するとAND条件になってしまうので、
OR条件で検索したいなら全部違う行に設定しないとダメだと思うよ
G2、H3、I4、…、N9みたいに
データ→フィルタ→フィルタオプションの設定と同じなので
まずはマクロを使わず期待通り動くか試してみたら？
あとセルの色は書式置換でやれば簡単かな
Application.ReplaceFormatとRange.Replaceで
これも、編集→検索→置換で同じ事ができるので試してみたらいいと思う
じゃあ見出しと検索条件もG列からAC列まで入れないとダメだと思うよ
フィルタじゃないけど、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
ネットから取得したいというのは
データを用意せずに、世界中のWeb上に転がっているデータから
抽出したいということでしょうか。それを前提にこたえれば、
次のようになります。
検索エンジンと連携する必要があるのですが、これは
難しくなく、その情報があるWebページを取得することでよければ
それも難しい問題ではない。
なんですが、その情報を（ある程度）正確にその部分だけ持ってくると
いうのは、至難の業になります。
この辺は近年研究が進んで来ているんですが、公開された物は少ないと
思います。たとえば、文字からではないがiPhoneのsiriなども、同じような
技術を使っています。それができれば、そのまま商売できます。という代物です。
もうひとつ、セマンティックウェブという考えが合って、そういうものが
当たり前になれば、簡単に採って来られるようになります（あくまで将来）。
ということで、Excelとは関係ない部分が問題になります。
自分でWeb上にデータを用意しておく、ということであればその限りでは
なく問題はなにも無いですけど。
>技術を使っています。
勘違いするといけないので補足しときます
SiriがWebを読んでいるという意味ではなく、構文を解釈する部分の
技術のことね。
その状態で入力というかデータの更新をするにはどうしたらいいですか？
何かいい方法あったら教えてください。
それはExcel側の問題とは異なる。
DB側に寄った部分でそういうソフトを作る（やりたいと言う事は、そういうニーズもあること）か、
そのためにExcelを使っても良いが、それはピボットテーブルでなく、新たにそういう
アプリをExcelで作らないとできない。
似たようなツールがDBに用意されてない？
そのExcelファイルを見てみないとなんとも言えない
どっか適当なアップローダに上げてよ
それを例えば更新したとして
どうやってデータベースのデータに展開出来ると思ってんだ？
データベースのカード型とかフォーム入力ならわかるが
ピボットテーブルをコピーして別のセルに値の貼り付けすれば入力できる
ではとりあえずフォームで、と思いましたが
データ＞MS ACCESSのフォーム とやってみたところ
「MSACCESSのフォームまたはレポートの作成中にエラーが発生しました」
となりました。どうしたらいいですか。。
>>676
状況を詳しく説明できないならモノを見せろ
元のデータベースにフィルタかけたりして見やすくすればいいんじゃないの
サンプルどこにうｐればいいですか？
まさか聞かないとわからないのか？
ttp://www1.axfc.net/uploader/File/so/77203.xls
ピボットテーブルとフォームはいったん置いといて、
先月分の実績に、連絡事項が追加されて渡されて
それに今月分の実績を入力して返すって感じなんですが
量も多くてワークシートのデータベースのままだととてもやりづらいです。
みなさんならどういう方法をとりますか？
なにそれ
小学生はExcel使うなよ
VLOOKUP程度のレベルか
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
４０名のクラスにＡ／Ｂ／Ｃの成績ランクを５科目に付けました。
これにＣを一個でも付いた人の人数を数えたいのですが・・・
=IF(1<=COUNTIF(A1:E1,"c"),TRUE,FALSE)
これで４０人分のTRUEを数えてという感じで作りました。
一応完成はしたのですが、もっと簡単な方法があったような気がするのですが気のせいでしょうか？
もしくは自分ならこうやるぞみたいなのがありましたらお教え願います。
何をどうしたいのかってのがよくわかんないな
今月分の実績を楽に入力する方法？
連絡事項に書かれた内容を今月分の実績の表に対して更新かける方法？
十分簡単だと思います
IF関数は余計だと思いますが
2 Excelのバージョン Excel2010
3 VBAが使えるか いいえ
１件あたりの処理時間を出したいのですがうまくできません
A1に要した時間30分、B1に件数50件、C1に1件あたりに要した処理時間を
がんばれ
=A1/B1
(´・ω・｀)
>>686 すいません、VLOOKUPは使ったことありますがこの場合何に使うのでしょうか。。
>>687 データベースのまま扱えということでしょうか。しかしこれは変更できないので、なんとかヒントだけでも。
>>690 まさに今月の実績を楽に入力する方法です。連絡事項は今月分とは限らず更新されない雑多な情報も含んでますです。。
先月分の実績の表があって、その上に「今月の実績データ」と「連絡事項」を上書きしたいの？
Before/Afterと使用されるデータの形式がわからないので答えようがない
中途半端な回答ばっかりなのはあなたの質問からやりたいことが読みとれないからだよ
Excel以前の問題だ、まずは質問内容を上司に添削してもらうところから始めたらどう？
そこに「今月の実績データ」を上書きして、それを返す。
サンプルに書いたつもりでしたが
商品名と数量の実績を上書きしていきます。（基本は先月の実績とイコールです）
普通は同じデータベースソフトで同じデータを共有していくのでこんなことで悩まないのですが、
説明もうまく出来なくてすいません。
サンプル.xlsの「先月の実績」って表がBeforeで、「今月の実績」って表が更新すべきデータってこと？
「今月の実績」って表をインプットとして、「先月の実績」って表に上書きしていくの？
ピボットテーブルとかフォームとかどう関係しているんだ？
マジで意味わかんないので、エスパーが現れるのを期待しましょう
今月の実績として更新して返して、
次の月にはそれが「先月の実績」として帰ってくるんですが、
その際に連絡事項が更新されてるかもしれないということです。
んで、更新の際にこの表のままでは扱いにくいので
なんかいい方法ないですか？
もらうとか、返すとか、帰ってくるとか、扱いにくい、とか、どうでもいい情報はいらないよ
サンプル.xlsを元に具体的に言うと、C14:G19を見ながら、
E6セルに“AAA”って入力して、F7セルに“20”って入力できればいいってこと？
もしこれを楽にやりたいってことならVBAになる
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 どちらでも
罫線を引いても引いても、保存したファイルを再度開くたびに消えてしまう。
罫線以外の値は正しく保存されています。
シート数が多くなると顕著に出てくる気がします。
何か改善策は有りますでしょうか。
先月の連絡事項と今月の連絡事項を比較して変化してるとこだけ背景色替えるとかしたら
やりやすいんじゃね
そもそもが普通じゃないんだしわかるわけない
やめとけ
それか更新情報だけ貰え
C14:G19が今月実績ってこと？
連絡事項はよくわからんが
元々データベースを集計して表示させたものがピボットなんだから
不可逆なことは無理っつってんだろ
何のためのデータベースだよ
データ変更は専用のフォーム作るか、普通にデータベース更新しろ
保存形式間違ってんじゃね？
拡張子 .xls で保存しろ
現状がxls形式で保存していたので、2010形式でしばらく様子を見てみます。
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
マウ筋の設定で右クリック押しながら左クリックやホイールを押すとシートの切替をできるように
設定していたのですが
2010になってから上手く作動しません
右クリック押しながらホイール等を連打すると「officeのアクセスキー」という表示がでてきます
2003では問題なく連打で切替できましたので同様にしたいですが何か策はありますでしょうか？
リボンのショートカットキーが悪いのかなとも思いましたが無効の場所が見つかりませんでした
キーボードでctrl+page upでは切り替えられます
連打？？？
みなさんありがとうございます。
>>700 >>704のとおりです
>>702 変化してるところだけ色を変えたりっていいですね。
>>703 アホな仕事だと思います。。。
>>704 そです。連絡事項は変わってたら見つけるようにします。
>>705 フォーム！
前にフォームのアドバイスを頂いて「MS ACCESSフォーム」を見てしまいましたが
EXCELにもフォームがあるんですね。これは光が見えてきたような気がしてきましたーー
先月実績をフォーム+サブフォームで見て変更があればそのまま更新して
上書きしたものが今月実績になる、と。
とにかくやってみます。ありがとうございました。
右クリックを押したままで左クリックを連打したら
ctrl+page ｕｐの設定が効いて
シートが順に変わっていくということです
今では最初の一つ目すら機能せず
マウ筋の動作環境にWindows7は含まれてないよ
http://www.piro.cc/software.htm#mausuji
どうでもいいけどクリックじゃなくてボタンだよ
言いたいことはわかるけどね
マウ筋 liteなんです すいません
最上と最左
両方ともウィンドウ枠の固定をやりたいのですが
どうすればできますか
B2セルを選択して「ウィンドウ枠の固定」をクリック
ウィンドウ枠の固定は、2003までは初心者に分かりにくかったけど、2007以降はもっと混乱させるようになったと思う・・・
ありがとうございますできました