Greenroom?

ぁ、別インスタンスってのは思いつきませんでした。
ありがとうございます。m(_ _)m

だいたい同名Bookが開く、ってないですよね。
..んー。
でもLoop中のMsgBoxには出てこないしなー。
何かなー。
..
...やっぱりぎヴ。...orz

こっちはちゃんと読んでないので
たぶんアサッテなレスですが。

　#　もう一方がアサッテでないと言ってるわけでは…　orz

・同名のブックが複数開いてる
・Workbooksコレクション回しても捉まらない

となると、
Excelのインスタンス(っていうの?)が複数立ってるとか
そういうオチでは？

ネットワーク上の場所によっては
DDEがどうたらで新しいExcelが立っちゃうとか。

　#　で、だとしたらどうってハナシになるとサッパリですがw
　#　VBAで現に立ってる他のExcelって触れるの？
　#　触れるよね、きっと。…エラい人なら。　orz

■エクセル２００７で既に開かれているCSVファイル
http://oshiete.goo.ne.jp/qa/7670116.html?order=asc

>ご提示頂いたコードですが、try_2()と同様にアクティブになるのは、先に開いた、(1),(2)になりました。
wbでもダメなら...
ぎヴ。...orz

■エクセル2007のセキュリティ警告(長文御免)
http://bekkoame.okwave.jp/qa7681942.html

なんでこの質問で「反省」する破目になるかなぁ…　orz

------------------------

>メモ帳にコピーしたTXTデータを
>新規のエクセルに取り込んだときは警告現れませんが、
>一旦 *.xslxで保存してから開らくと警告が出る。

あ…。

テキストファイル読み込むのに
[外部データの取り込み]使ってるのね。

そりゃ「操作を誤って偶然」もなにも、
デフォルトで[クエリの定義を保存する]ことになるから…。

触れとかなくちゃ…ってもう閉められてるし…orz

------------------------

なんとなく、
Webクエリかな？　って思ってたのよね。

　質問文ちゃんと嫁　＞　わたし

2003以前だと、
テキストファイルに接続するの結構大変だったから
「素人がうっかりテキストファイルに接続」
って状況なかったし。

わたしが初心者のころは
[新しいデータベースクエリ]
とか、完全に未知の領域だったし。

　#　…今でもよく判らんけど　orz

------------------------

ところで
「ついうっかりWebクエリ」を再現しようとして
なんかうまくいかないなぁって思ったら…

　　Operaからコピペしてたり　orz

ぇっと、

　【　慰めていただきました　】

■Excel2003　Match関数について
http://bekkoame.okwave.jp/qa7656350.html

やさしい質問者さんでよかった(T_T)

　#　わたしが質問者なら即ブロックなんだけどな(ぉ

■Excel2003　Match関数について
http://bekkoame.okwave.jp/qa7656350.html

やらかしちゃいました。(T_T)

【　締切り後に粘着訂正入れてなお違う　】

あたりも含めて
ブロック級…いや、バン級の大ポカですね。
海豚の黒歴史にまた新たなる一章が…orz
-----------------------------------

●Resizeに引きずられた

Resize見た時点で
「端を検索するんだ」って思いこんじゃったんですね。

中途の列取るのにResize使おうとか思わないし。
Resize知ってる人がColums知らないとは思わないし。
エラートラップまでしてたわけだし。

つ
　＞（EXCEL極意6VBAという参考文献の一部を利用）

…引き写しだったのね　orz　

　◆教訓　　
　　初心者が「やりたい事」は、
　　元コードとはあまり関係ないことが多い

------------------

●「無指定」に惑わされた

現行のExcelには「ゆんゆんUI」は搭載されていないんだから
「指定が無いんだから、
　指定が無くても通る状況か、でなけりゃ探す状況」
って思いこんじゃったんですね。

qa7635479の#1も、
「パス指定してないんだから、
　パス指定しなくても通る状況なんだろ」
って安易に考えちゃってるし。

　◆教訓
　　「ゆんゆんUI」はExcelではなく
　　初心者の脳内に搭載されてることが多い

------------------

●「ぱっと見て違う」箇所に脊髄で反応した

「Ａ列(Ｂ列？)検索してるのに、当たるわけないじゃん」
って、ぱっと見てぱっと反応しちゃったんですね。

　◆教訓
　　「ぱっと見て違う」箇所は
　　問題の本質ではないことが多い

------------------

●「地の文」読まなかった

いや、目は通したんですけどね。

Resizeに引きずられて
「第１行(見出行)を検索して対象列を見つけて、
　対象列の値を転記する」
みたいに思ってたんですね。

　◆教訓
　　質問文読むのが面倒だったら回答するな

------------------

●川蝉にキレてた。

＞明示的に指定すれば

ぢゃねーだろ！！
【[データ]の左端列】を「明示的に指定」してるだろが！

＞理由はよく判りません。

ぢゃねーだろ！！
【[データ]の左端列】を検索して当たるわけないだろヴォケ！

とかね、「ヒュンッ」って感じでキレちゃったんですね。
キレるとただでさえ低いスキルがさらに低くなるという…。
…って前にも書いたよね。

　◆教訓
　　もちつけ

------------------

●自惚れてた

自分の立場とかレベルとか誤解してました。
ってゆうか、あくまで相対的な意味でね。

■Excel vbs AppActivate エラー
http://bekkoame.okwave.jp/qa7640004.html

とか見るとね
「海豚の正しい立ち位置」を自覚できるんだけど(苦笑

■「列1」とかを消す方法
http://bekkoame.okwave.jp/qa7653704.html

とか見ると
つい「ちゃちゃっと片付けたく」なっちゃうのよね。

「ちゃちゃっと片付ける」ようなスキルはないんだけれども。orz

　　◆教訓
　　　消えろ

------------------

#4についても一応。

●慌ててた

以上。

　#　あ「カンマ」については、
　#　「元コードに入ってたのを消すの忘れてた」
　#　です。

…とかいいつつ、プロフの方では言い訳してるけど。

■VBA ソートに関する初心者の質問
http://bekkoame.okwave.jp/qa7635479.html

#2は結構「自信あり」だったから
正直アタマ抱えちゃったけど
とりあえずうまくいったようでよかった。

思うに、たぶん、きっと
【　アンダースコア無しのダミーデータでテスト　】
してたんぢゃないかしら。

素朴にID番号で前方一致検索しちゃうと
1234で12345がヒットしちゃうから
区切文字…つか終端文字は必須なんだけど

「bシート検索IDは、
　ID番号の後ろにアンダースコアが付いてなきゃダメ」
なんて一言も書いてないし
「1234で1234がヒットしない」
って罠みたいな仕様だよね。　orz

ブラックボックスなら、動作仕様キッチリ書かなきゃいけないし
動作仕様書かないなら、ちゃんとリクツ説明しなきゃダメだよね。

反省します。

-----------------------

…の前にさ。

そもそも
bシート検索IDの後ろに終端文字つけとけば
済むハナシだったよね。思いつかなかった。

つかさ、思いつくとか思いつかないとかぢゃなくって
普通そうするもんぢゃないかしら。忘れてた。　orz

海より深く反省します。　<(_ _)>

-----------------------

　#　でも、こういう「明らかに回答者の不行届」なケースでも
　#　「要求仕様は充たしている。質問者が【ウソ】ついたのが悪い。」
　#　みたいなこと言ってキレる人いるよね。

■共通の値をもつ座標の組み合わせについて
http://bekkoame.okwave.jp/qa7621154.html

#13　海豚

【　自分ならこうだと披露するような、自己満足のコード　】
　　　　　　　　　　　　　　　　　　　　　　by 御大

…だよね。orz

------------------

何しろ半月以上やりとり追ってて
自分でもコード書いてたもんだから
「ずっと前からその場にいた」
気分になっちゃってたのよね。

もちろん
質問者さんや1185672さんにとっては
「突然あらわれていきなり…」
なんだけど。

------------------

#11で

【　既回答を少し修正　】　by芋

みたいな真似して、
思いっきりハズしちゃったもんだから
慌ててたのよね。

自分のコードも出さずに
他人様のコードに勝手に手を入れるのってどうよ？
な感じで。

------------------

いわゆるひとつの【ブレイクスルー】だったの。

この課題、部分和と違って枝を刈るのが難しい課題で
Sample1以降、再帰回数はまったく動いてなかったのよね。

速くなってるのは単に計算を効率化しただけで
計算量自体は変化してなかったわけね。

で、
Sample8　⇒　Sample9
で初めて再帰回数を減らすことができたもんだから

　【　はしゃいじゃってたんです。　】

すみません。

-----------------------------------------

#15もなぁ。
あんまりフォローになってないような…。

「自分ならこうだと披露するような…」
ではなくて、技術的な興味関心から出てきました
…って言いたかったんだけど…。

-----------------------------------------

ところで

　With rtSht
　　rtSht.Cells.ClearContents
　　rtSht.Cells(2, 2).Resize(rtCnt, mySiz).Value = dpAry
　End With

って…　(ーー;)

■VBA ソートに関する初心者の質問
http://bekkoame.okwave.jp/qa7635479.html

＞走らせるたびにエラーの内容が変わっているみたいでした

珍奇な再帰コードが書けても
普通の転記マクロが書けなかったら
VBAプログラマとしては完全にアウトだよね。orz

　#　まぁ、自分のことを
　#　「プログラマ」だと思ったことはないんだけど。

　#　いゃ、「素人プログラマ」を称したことはあるか。

----------------------------------------

ブック　＞　シート　＞　セル範囲　＞　値　と、
段階踏んでガッチリ変数に入れてる…
もとい、入れようとしてる割に、

　・bブックはパス指定してないよね。
　・bブックが開いてるかどうか確認してないよね。

実を言うと一瞬「？」ってなったものの
質問コードでもそうなってるし、手元でもそれで通るし、
「パス指定しないとThisbookのある場所見るんだったっけ？」
とか思ってました(ぇ

質問コードに引きずられたとはいえ、..ぃや

　【　異本的なことの不知があります　】(ママ)　by　芋

----------------------------------------

セルの値を取ったVariant型を
何も考えずにString型に投げたりしたらマズいよね。

コードは数字なんだし、文字列ぢゃなくて数値で入ってる可能性もあるし
「857」を表示形式で「0857」に見せてる可能性もあるよね。

で、Textプロパティで取れば大丈夫なんだろうか？？？(ぇ

　※bシートid列の方は
　　「後ろに文字列がついてる」ってことだからそのまま。

----------------------------------------

途中で止まる可能性の高い試作コードなのに
コードの上の方で

Application.Calculation = xlCalculationManual

とかしちゃイカンよね。

コメントアウトしとくとか、
せめて貼る直前に切るとか。

テストコードの方でも直してないし　orz

----------------------------------------

そもそも
このコードがaブックに記述されているという前提はどこから？？

----------------------------------------

元々開いてたかもしれないbブックを
勝手に閉じたりしちゃいけないよね。

----------------------------------------

　【　エクセルの解説書を余り読んでない証拠　】　by　芋


　　　　　　　　　___________________rz

o______________________

■共通の値をもつ座標の組み合わせについて
http://bekkoame.okwave.jp/qa7621154.html

予想通りというか予定通りというか

　【　　大ポカでした　　】


　　　　　　　　　　　　　　_______________rz


　　　　　　　　____________


　o______________


そうね。きっとデータが偏ってるのね。
なんかわたし、
途中で「数式入ってるに違いない！」って思い込んじゃってたもんだから…。

最悪計算量とかね。最初は考えてなくもなかったんだけど
なんかわたし、
途中で「ぇっと、刈れてるよね？」って思い込んじゃってたもんだから…。

ALL1とかね。解が一つしかないケースも考えた記憶があるんだけど
なんかわたし、
途中で「ん～っと、止まるよね？」って思い込んじゃってたもんだから…。

♪　重い～、コンダァラー　♪

最近の反省ものと言えばこれ。
■FileSearchがExcel2010でできない
http://oshiete.goo.ne.jp/qa/6683940.html?order=asc

コンパイルエラーなもんを出しちゃイカンですね。
最後のコードでは変数宣言が抜けてます。
Dim shl As Object
やり取り自体が長くなってグダグダ状態。
もともと、Loop内で無駄にCreateObjectしてしまってたとこからバツなんですけれども。

他にも

＊エラー原因の追究が甘い

　階層が深すぎて文字列長？などとハズれなアタりをつけた事が敗因...orz
　フォルダに対してgetfileって..そりゃあダメですよね。気づくの遅すぎ。

＊InputBoxの戻り値？

　>buf = InputBox("検索したいファイル名を入力してください" & vbCrLf & _
　>　　　　　　　 "ただし、複数キーワード検索はできません" & vbCrLf & _
　>　　　　　　　 "キーワード入力後、「ＯＫ」ボタンを選択", "キーワード入力")
　>If buf = "" Or buf = "False" Then Exit Sub
　"False"は要らんだろ。
　質問コードに引きずられたとはいえ、..ぃや言い訳です。



>最近の反省もの..
#他には無いという意味ではない..orz

■Excelで埋め込んだPDFを開く
http://oshiete.goo.ne.jp/qa/6213822.html?order=asc

反省といえばこれも挙げとかないとね。
安易に再インストールすすめちゃダメって事なんかな。
Adobeは守備範囲外に認定したい...orz

#..といいつつ
#http://oshiete.goo.ne.jp/qa/6429113.html?order=asc
#放置ぎみ

■エクセルで二つの列を結合して作ったセルと、一つの列で作ったセルがあるの
http://oshiete.goo.ne.jp/qa/6300319.html?order=asc

おもむろに反省の弁。
『..同じ桁数でも、文字の高さが違う状態になってしまいます。』
ここで『文字の高さ』に着目し過ぎかな。
『桁数』なので数字のような気がしたんだけど、
『文字数』って事だったのかしらん。
だとするとプロポーショナルフォントの問題で#1さんの回答で充分だったのかも。

■Excelの並べ替えについて
http://oshiete.goo.ne.jp/qa/6060775.html?order=asc

il||li orz il||li

例えば15文字だったらP列までひっぱって５回に分けて並べ替えやるって事なのねきっとそうなのね...
#ぃや2007だったん？

■Excel VBA でコピー＆ペーストを何回もしているます。処理の途中...
http://oshiete.goo.ne.jp/qa/6025725.html

んんー...。
BA入れないと締め切れないシステムってなんか嫌ですね。
全然役に立ってないレスなのに。
しかもノーリアクションで〆られるのって実は放置より痛いのです。

http://oshiete.goo.ne.jp/qa/6025988.html
これもだし。



最近放置も多いし。
...すみません、グチですorz

■OKWaveでユーザーの画像をクリックして出てくるデータの一覧はどうや
http://bekkoame.okwave.jp/qa5891792.html

うん、これはまぁ、わかってたんだけど
脊髄反射で拾っちゃっただけだから(^^;;;;

それに、「実際的な解決」としてはやはり[F5]が最短だろうし。
（【別の】ユーザの画像をクリックするという手も…）

でも、こういうのってスルーできない体質なのよね　orz

-----------------

で、どちらかというと管理宛だったり。

bekkoameは【この点に関しては】ちゃんとしてるよね。
…「既読リンクの色が変わらない」謎仕様の割に。

　#そういえばココもそうだ;;;;;;;

■エクセルで完全一致でないデータを抽出したいです。
http://bekkoame.okwave.jp/qa5889713.html

これも、#1＆MVP氏の「勉強すればできます」式の怪答に
「カッチーン」ときて拾ったんだけど…

「検索値が空白だと"*"を検索してなんでもヒットしちゃう件」
に触れるの忘れてた。　o ...rz

======================

それから

　-------------------------------
　[2010/05/12]
　　ん～、もしかしてホントに「取り違え」たかな？
　　「VLOOKUPのようにワイルドカード使って、フィルタすることが可能か」
　　ってハナシだったかしらん？
　　…デキマス。
　-------------------------------

一応、テクニカルタームとしては　[抽出]=[フィルタ]　だしね。

でも、もしVLOOKUPでワイルドカード使えること知ってたら
オートフィルタやフィルタオプションでも試すよね。

「数式フィルタ」を念頭においているんだったら
「Vloolupのように」とはしないだろうし。

そういう読みでした。

■エクセルVBAで別ファイルのデータを取得しに行ってます。
http://bekkoame.okwave.jp/qa5888879.html

明らかに「ハズ」で書いてる#1の怪答に
「カッチーン」ときてつい拾ったんだけど…。

質問者さん、
そのあたりのことは質問文のページにも書いてありますって…　(ーー;)

つか、地雷だった？

●エクセルのマクロであるフォルダ内にある全エクセルファイルのシート1！（
http://bekkoame.okwave.jp/qa5876862.html
↓
●エクセルVBAで別ファイルのデータを取得しに行ってます。
http://bekkoame.okwave.jp/qa5888879.html
↓
●エクセルVBAでフォルダ内の全てのファイルにマスタファイルのsheet
http://bekkoame.okwave.jp/qa5890651.html

「いろいろやってみる」のはべつにいいんだけど
「いろいろやらせてみる」というのはどうかと思うなぁ…。

======================

さて。

較べやすいようにそれぞれ書いたんだけど
内容の割に長い…というよりくどいよね　orz

おまけに…

●Sample2_4　

　bufの宣言イラねぇ　o ..rz

●Sample2_3,Sample2_4

　なんで値入れるときもクリアすんのさ？

　If buf = 0 Then
　　Cells(i, 1).ClearContents
　Else
　　Cells(i, 1) = buf
　End If

　o　　　　　　　　　　　　　.....rz

---------

動作確認せずに「動くハズ」で回答するのもアレだけど
動作するからといって「やっつけ」のまま回答するのもいい加減……。

■１

　●qa5877931
　http://abyssinia.bbs.fc2.com/?act=reply&tid=2820395#5290989
　●outlook2003のメール送信についてですが、
　http://bekkoame.okwave.jp/qa5877931.html

今の今気付いたんですが

　　1.5． [ユーザー設定(C)]をクリック

が抜けてますね　o rz

===================

■２

　●qa5825393
　http://abyssinia.bbs.fc2.com/?act=reply&tid=2820395#5293790

　>もしかして、本サイトに「OutlookVBAできる人」って今いない？

とか寝言吐いてますが、いらっしゃいました。　o ..rz

■数式をまとめる方法はありませんか？
http://bekkoame.okwave.jp/qa5803049.html

#1,#2は例によって寝言。

現に1発で処理してる数式をさらに【まとめたい】ってハナシだろが！

#3,4さんのアプローチがまぁ、標準的だよね。

もし
「こういう計算をしたい」って質問だったら後出ししなかったんだけど
「まとめたい」って質問だったのでつい。

だけど、#3,4さんの後ろから
「票を入れつつ」やるのって実は初めてじゃないんだよなぁ。
嫌われてるだろうな、きっと　orz

■パソコンを買い変え、excel2007に引っ越したデータのことなのです
http://bekkoame.okwave.jp/qa5811357.html

いや、実は知らなかったんだけどね(ぉ

でもまぁ、そこらあたりだろうとは思うよね、普通に考えて。

====================

●参考画像の意図がわかりにくい

[日本語入力]タブが本来あるあたりを丸で囲むとかしろよ。　＞　わたし

●優先順位からすれば「再現した証拠」より「操作の実演」ぢゃね？

いや、
「異本的なことの不知があります(ママ)」とか
「わたしの環境ではちゃんと表示されます」とか
「再インストールしてください」とか
変な怪答がつきそうな悪寒がしたのよね。

　奴はもういない！　忘れるんだ！　＞　わたし

なんかもうトラウマになっちゃってる;;;

■Excelデータの照合
http://bekkoame.okwave.jp/qa5809147.html

なにこの変なテンション？　我ながらウザい。

いや、普段がウザくないと思ってるわけでは…　orz

■VBAのプログラム
http://bekkoame.okwave.jp/qa5813244.html

これねぇ、ちょっと悩んだのよね。

いや、質問内容ではなくてね。
課題自体は見りゃ判るハナシで、#1や#2,4がアレなだけなんだけど…。

　●何をしたいのかわかります
　http://abyssinia.bbs.fc2.com/?act=reply&tid=2811806#5261905

当日の回答日誌

　　===============================
　　【2010/04/09】
　　そうなりそうな気がしたから急いだんだけど、
　　ギリギリ間に合ったような間に合わなかったような…(^^;;

　　配列で作って貼付け／セルを直接読み書き
　　片側回して二度書き／全部回して除外処理
　　といったあたりで迷ってたのよね。

　　自分用ならもちろん迷わないけど、
　　サンプルコードとしては…ん～、どうなんだろ？
　　ケースバイケースと言えばそれまでだけど、
　　その「ケース」の判断にいつも悩むんだよなぁ。

　　ちなみに、ヤマカンでもキメウチでもエスパーでもありません。
　　私のブラウザでは"崩れて"ないので…。
　　＼(^o^)／
　　===============================

■コード

つまり、こうすべきぢゃなかったかってハナシ。
いや、これが「良い」とも思わないんだけど…。

'------------↓　ココカラ　↓---------------------
Sub Sample2()

　Dim orgAry　As Variant
　Dim rtnAry(1 To 10, 1 To 10)　As Variant
　Dim rtnRng　As Range
　
　Dim i As Long
　Dim j As Long
　Dim k As Long

　Set rtnRng = Range("C5:L14")
　orgAry = Range("A1:C2").Value

　rtnRng.ClearContents
　
　For i = 1 To UBound(orgAry, 1)
　　For j = 1 To UBound(orgAry, 2) - 1
　　　For k = j + 1 To UBound(orgAry, 2)
　　　　rtnAry(orgAry(i, j), orgAry(i, k)) = 1
　　　　rtnAry(orgAry(i, k), orgAry(i, j)) = 1
　　　Next k
　　Next j
　Next i
　
　rtnRng.Value = rtnAry

End Sub
'------------↑　ココマデ　↑---------------------

「判りやすさ」優先で本サイトコードのようにしたんだけど
全部回して判定で除外するのって
あまりに迂遠過ぎてちょっと恥ずかしかったり。

■ケース

「最初だけ」とか「ヒント」とかって言ってるから
「少しは」できるんだろうけど
「ちゃんと」できるなら自分でできてるよね。

実務課題でないのは明らかだけど学習課題でもないよね。
こういった数理っぽい課題ってたいていは「ギャンブル統計」

・判りやすく書いた方がよいのか
・オーソドックス(?)に書いた方がよいのか
・動作を変更しやすく書いた方がよいのか

■そうえいば

本サイトの方のコードで
　orgRng(i, j)
とかやってるけど、Cells省いたら怒られちゃう？

■【OUTLOOK2007】VBAを使用して送信済みメールの宛先メールア
http://bekkoame.okwave.jp/qa5825393.html

もしかして、本サイトに「OutlookVBAできる人」って今いない？

わたしも基本的に「できない人」だから
ほんとはスルーしたいんだけどねぇ…。

まぁ、まいなーな分野だから仕方ないっちゃ仕方ないけど。

　・複数バージョン共存できない
　・バージョン差が激しい
　・書籍もサイトも少ない
　・アプリの性質上動作確認が困難
　・そもそもOutlookユーザが少ない

========================================

追記　10/05/11

「いない」どころか「凄い人がいる」よ！　
おまけに、お名前にも記憶が… o rz

849066さん。

※「楽屋落ち」記事を分割移転
　元記事：　http://abyssinia.bbs.fc2.com/?act=reply&tid=2800138#5276545

■エクセル2007をつかっています。「会社で何月何日に、誰がどこへいった
http://bekkoame.okwave.jp/qa5829569.html

なんか、無駄に荒れちゃって
すぐ閉じられちゃいそうな雰囲気だったのでつい拾ったんですが…。

==============

●甲案　：　完全に【寝言】　orz

作業列使うなら
　
　Sheet1!C2：　=C1+(A2=Sheet2!$A$1)

でカウントアップして

　Sheet2!A2：　=INDEX(Sheet1!B:B,MATCH(ROW()-ROW(A$1),Sheet1!C:C,0))

で片付くハナシでした。　orz

上方を見るので
【元シートに見出行があることを想定してよいか】
迷ったんですよね。

==============

●乙案　：　間違えてる　orz

間違えてるというか【　1/　】が抜けてる…なんで？

おっかしいなぁ…。
動作確認してるハズなんだけどなぁ…。
というより、これって「ソラ」では書けないハズんだけどなぁ…(ぇ

配列数式から書き直したときにしくじって、その後確認しなかった？
投稿時にどこかいぢって、その時間違えた？
丙案つくるのにあっぷあっぷだった？　w

==============

●丙案　：　

なんで範囲固定？　…あ、思い出した。

　　『やさしくわかるVBA入門』レベルのコードでも片付くだろ！
　　コードも書かずに場違いな寝言やりとりするのヤメレ！

ってニュアンスで
可能な限り【素朴】に書いてみようとしたんですね。

キレてたんですね、わたし。
キレると、それでなくても低いスキルがさらに下がるという…　orz

==============

まぁ、質問者さんも

・「シート１」とか「シート２」とか書いてたり
・VBカテで「INDIRECT、SMALL、ROWの機能」とか言ってたり
・元シートに見出行があるのかないのかわからなかったり

もつれる要素はけっこうあったんですが…　←逆ギレ？

==============

最後に希望が…出てこない　orz

■入力した通りに表示されない
http://bekkoame.okwave.jp/qa5830038.html

#1&#2

【　質問文でピリオドもコロンも使ってあるだろが！　】

==================

実はわたし
「オートコレクト使ってテンキーで時刻をダカダカ」
回答したことあるんだよなぁ…(汗

■エクセル　コロン抜き時刻入力方法
http://bekkoame.okwave.jp/qa5102075.html

もしかしてわたしの回答が遠因？　…まさかねw

普通に思いついて、以前から結構使ってるんだけど
どれくらい一般的なんだろうなぁ…
と思って調べてみたらけっこうあった。ほっ

http://www.google.co.jp/search?hl=ja&source=hp&q=Excel+%E3%82%B3%E3%83%AD%E3%83%B3+%E6%99%82%E5%88%BB+%E3%82%AA%E3%83%BC%E3%83%88%E3%82%B3%E3%83%AC%E3%82%AF%E3%83%88&btnG=Google+%E6%A4%9C%E7%B4%A2

■条件付き書式で色を変えたいのですが
http://bekkoame.okwave.jp/qa5830117.html

#1も#2も…Excelの前に日本語を(ry

------------------

=RIGHT(A1,3)="(日)"

で足りるかなぁと思いつつも
【括弧の全半角でトラブリたくなかったので】

------------------

TEXT(WEEKDAY,"aaa")

ってときどき見かけるよね。

qa5856249で90334さんも触れてるけど
どこかのサイトでウソ吐いてるの？

ココ？ｗ

■Operaの履歴
http://bekkoame.okwave.jp/qa5831256.html

「のようです」がまずかった？

メモ帳で開いてみれば一目瞭然なんだけど…。

■ExelVBAでのアクティブセルの記述
http://bekkoame.okwave.jp/qa5836868.html

ActiveCell.EntireColumn.Address　=　"$D:$D"

いったいなにが言いたいのか…　orz

=============================

いや、つまり
「"D"という列記号を使って判定する場合は…」
ってことなんだけど…どうするべき？？　(ぇ

If ActiveCell.hoge = "D" then

みたいな記述ってできないんだっけ？　(ぉ

■エクセル2007について質問です。
http://bekkoame.okwave.jp/qa5837105.html

サンプルブックの作り方が最悪　orz

なんでセルに"赤"とか入れるの？　ばかなの？

【　ぜんぜん情報がない　】じゃん。

消えたセルと残ったセルがわかるよう、連番振るべきだったよね　orz

■上書保存しコピーするVBA
http://bekkoame.okwave.jp/qa5836905.html

■>他には、>また、

そうですよねぇ。
【わたしもそう思いました】(ぇ

■/n

…要りましたね　orz

そっか、ふむふむ、ナルホド。
勉強になります　<(_ _)>

■a = .Range("A1").End(xlDown).Row

本コードは「途中に空白がない前提」ですから
End(xlDown)で良かったですよね　orz

■.Sort

!!　
あ、でもわたし的には微妙に前提違反ｗ

■.Item(1).Resize(b).Copy .Cells

Sample3で、貼り付けるんだったら回さなくてもよかった…　orz

■.Range("A1:B1").Insert Shift:=xlShiftDown

!!!!!　　orz

------------------------

■>Loop処理が基本なのでしょうけど

これってもしかすると
人によって意見が分かれるのかなぁと。

１．マクロ記録や逆引きから入った人
　基本：コピペとかソートとかフィルタとか
　応用：変数とかループとか判定とか

２．入門書や他言語から入った人
　基本：変数とかループとか判定とか
　応用：コピペとかソートとかフィルタとか

わたしはどちらかというと２の方で
Sortメソッドの引数の多さに眩暈がしちゃうという…w

試しに書いてみたら、【冗談】みたいになりました...orz
>これをもとに繰り返し処理を行い、...
って事なのでLoop処理が基本なのでしょうけど、
捻くれモノが書くと、↓こうなっちゃいます。

Sub Macro1()
　　Dim a As Long
　　Dim b As Long

　　ActiveSheet.Range("A1").CurrentRegion.Copy
　　With Sheets.Add 'Sheets("Sheet2")
　　　　.Paste .Range("A1")
　　　　a = .Range("A1").End(xlDown).Row
　　　　b = .Range("B1").End(xlDown).Row
　　　　With .Range("A1").Resize(a * b)
　　　　　　.Item(1).Resize(a).Copy .Cells
　　　　　　.Sort Key1:=.Item(1), _
　　　　　　　　　Order1:=xlAscending, _
　　　　　　　　　Header:=xlNo, _
　　　　　　　　　OrderCustom:=1, _
　　　　　　　　　MatchCase:=False, _
　　　　　　　　　Orientation:=xlTopToBottom, _
　　　　　　　　　SortMethod:=xlStroke
　　　　　　With .Offset(, 1)
　　　　　　　　.Item(1).Resize(b).Copy .Cells
　　　　　　End With
　　　　End With
　　　　With .Range("C1", .Range("C1").End(xlDown))
　　　　　　.Resize(1, .Count).Value = Application.Transpose(.Cells)
　　　　　　.Offset(1).Clear
　　　　End With
　　　　.Range("A1:B1").Insert Shift:=xlShiftDown
　　End With
End Sub

きっと解かり難くて勉強にはならないし
『例文』にはならないのでスルーっ :D

※「楽屋落ち」より移転

■エクセルにて、合計値→複数の項目の各個数を逆算
http://bekkoame.okwave.jp/qa5842008.html

■総括

以前のシステムであればおそらく、良くて10P悪くすれば0Pな結果ですね(^^;;;

うしろを牽制するようなつもりはなかったんですが
#1の「ちょっと気の利いたことを言ってみたつもり」な怪答にムカついたので
つい、栗と判ってて拾ってしまいました。

#1へのお礼を見た感じでは
「げっ、こんなにたくさん解があるんだったら見つけても意味ねー」
な目的だったのではないかと…。

■前半部分（補足要求）は…

私自身としても、長くてくどくて多いという自覚はあったものの、
実際、そういう違いで簡単に難易度も結果の規模も跳ね上がっちゃいますし
ごく小規模なダミーデータで試しただけで
「ソルバーで大丈夫！」とか断言する人が出てくると困るので。
（↑ソレを牽制という）

少なくとも、補足がついて早い段階で規模や要件が明らかになれば
出来るなら出来る、出来ないなら出来ないで、
無駄に縺れないで済むだろうという意図です。

■後半部分（コード）は…

「補足要求だけ」するのは嫌いなので
（↑しちゃダメって意味じゃないです）
一応「この程度のことなら可能」という意味合いで
文字通り「サンプル」「叩き台」のつもりで上げました。

「サンプル」「叩き台」なので、当然、
規模・要件が明らかになった時点で（可能ならば）改変・改良する前提です。
「詳細な要求仕様が明らかになるまでコードは書かない」
という態度は嫌いなので。

また、本格的な検討に入る前に、とりあえず
「どういう規模の課題について、どれくらいの解が存在するか」
について、質問者さんに認識してもらいたいという意図もありました。
「げっ、こんなに解があるんだったら見つけても意味ねー」
という結果になりそうな気がしたのでｗ

例によって例のごとく、やっつけ素人マクロな上に
字数制限に引っ掛かってちょこちょこ削ったこともあり
かなり胡乱な書き方してます。
また、私のレベルで考えても最速ではありません。

明らか、かつ確実に改善できる要素としては、

０．単価の最大公約数で目標値が割り切れない場合は解が無い。

１・単価と目標値に公約数があるなら割った方が軽い。

２．各単価の倍数をあらかじめ用意し、
　　その倍数を要素とする普通の部分和探索として処理した方が早い。
　　↑　追記：大ウソ

３．２の要素をあらかじめ昇順にソートして小さいものから使い、
　　「残りのどれを使っても超えるならアウト」判定を入れる
　　↑　追記：これも大ウソ

なお、普通の部分和探索の場合には

４．後方和の配列をあらかじめ用意して
　　「残りの総てを使っても足りないならアウト」判定を入れる

５．要素の総和に対して目標値が大きい場合には
　　反転して「使わないものを探す」

というのも有効ですが、今回の場合、各要素は単価の倍数です。
合計値に匹敵するサイズの要素が商品数分存在することになるので
４はたぶん意味ないです。５は意味ないです。

■動画について

「可能という証拠」兼「探索時間の指標」です。

できてるのに「できない」と言い張る人や
小一時間かけても最初の解がでない手法を推す人がいるので。

↑しつこい！

■オマケ

なんか「動的計画法」とか書くとウレシくなる人がいるようですけど
それなら「再帰」って書く代わりに、
「分割統治法(Divide and conquer algorithm)」
って英語表記付きで書いたりするとウレシくなったりするんですかね？ｗ

それから「ナップサック問題」にしろ「部分和問題」にしろ、
厳密に言えば
「解が存在するか？」という問いに対して
「Yes」か「No」で答えるという「問題」（決定問題）で、
「動的計画法等の手法で解くことができる」なんていう文言は、
多くの場合「YesかNoかの答えが出る」という意味合いです。

複数の解を探索してく課題は本来まったく別の課題なので、
そういう場合に「○○問題は××法で解ける」的な文言を真に受けると痛い目にあいます。

以上、チラシの裏でした(^^;;;

※「雑記」より移転(一部改稿)

■Excelで質問です。連番に関してです。
http://bekkoame.okwave.jp/qa5849934.html

・作業列２は普通に列全体を指定しても良かったなぁとか
・逆に、作業列３は下方に絞った方が良かったかなぁとか
・作業列３はともかく、作業列４の方は埋め込んでも良かったなぁとか
・作業列５，６の演算誤差対策は本当に要るのかなぁとか
・作業列７は、速度度外視で埋め込んだ方が質問者ウケしそうだなぁとか
・解説つけない方がむしろ、回答としてスッキリしたかもなぁとか
・もう少し様子みてからの方が良かったかなぁとか

全部あとの祭り。

#5-6さん
ブラウザで眺めたときは正直何やってるのか判らなかったけど（ぉ
実際ワークシート上で挙動を追ってみると、この発想、面白いなぁ。
というより、ロジックとしてはむしろこちらの方が素直な気がしてきた。
計算負担も少なそうだし…。参考ボタン×２

それにしても、礼儀正しくて賢い質問者さんだなぁ。

その通り。
目線の角度や自信満々な態度なんて当てにならないんだから、
それぞれ実際に挙動確認してダブルチェックするのが
「たったひとつの冴えたやりかた」よね。

※「楽屋落ち」から移転改稿

■ブックの選択について
http://bekkoame.okwave.jp/qa5862761.html

#1　洟　
>普通に、ThisWorkBook.select などと使う方がわかりやすいのでは？

orz

思わず確認しちゃったよｗ

これで13万ポイントだもんなぁ…。
いや、【これだから】13万ポイント行くんだろうなぁw

====================

ほっといてもすぐ突っ込みが入るだろうと思ってスルーしてたら
…４日たってもそのままだった　orz

久々に落穂拾ってみたんだけど、３日たってもそのままｗ

　１．とっくに自己解決してた
　２．何が何でも「Select」したい
　３．Workbooks(thisBook).Activate　とかやってる
　４．「指摘」にキレた

さて。

-----------------------

●反省点

恥晒してるのは洟なんだから、なにも尻拭いしてやることはないよ。

■こんにちは。
http://bekkoame.okwave.jp/qa5876075.html

これもカテ違いな上に、寝言がついてたので拾ってみた。

以下「雑記」より転載(一部改稿)

　　=======================
　　だから「できない」って怪答は要らねって。
　　「できない」わけないだろがjk　（←女子高生？
　　なんでわたしが畑違いのメーラ案件なんか拾わなきゃ…（←なぜそこでキレる？

　　そもそも、こういう移行案件でPCメーカのサポセンにTELしても
　　「【旧PC】に入ってたアプリの使い方」は普通教えてくれないよね。
　　
　　…さて、実機でテストしてみなくっちゃ(←コラ！
　　=======================

ちゃんとテストしてから投稿しましょうね　＞　わたし

ちなみにちゃんと成功しましたw

　#…にしても、Folders.dbxがないと読めないって、罠？

-----------------------------

●具体的な操作が何も書いてないよ！

ん～っと、両方説明すると長くなるし
「パソコンスキルはない」と言いつつ
実は結構デキる人なんじゃないかなぁという読みがあったので。

だってさ、ホントにスキルがない人だったら

　・「インポート」って言葉使わない
　・「エクスポート」って言葉使わない
　・「スキル」って言葉知らない
　・アドレスの移行できない
　・Outlookのバージョン書かない
　・OutlookとOutlookExpressの区別つかない

でしょw

いずれにせよ、もう少しポイント絞った方がいいかなぁと思って。
…ホントに戻ってくるつもりでしたよ、念のため。

●でもきっと…

なんかスマートなやり方がありそうな予感。
OEがない環境で、hoge.dbxだけあってFolders.dbxがなかったら
いったいどうすんだってハナシもあるし…。

●こういうケースだと特に

強制BAシステムって不満が残るよね。

・解決したのかしなかったのか、
・それで良かったのかそれとも他の方法を見つけたのか

わからないものね。

■指定したセルまでの合計を求める
http://bekkoame.okwave.jp/qa5875825.html

カテ違いでスルーされてたから拾ったんだけど
後半部分は完全に寝言。
シリアル値で入ってる場合はSUMIFが使えた。　orz

=======================

いや、シリアル値で入っているにしても
「各月"1日"で入っているとは限らないよね」
って思ってたのよね。

で、

　・元データの方を配列処理で文字列化
　・検索値の方を各月末日にしてTRUE検索

どちらが良いかでしばらく悩んで
どっちも長くなるのでとりあえずあきらめて【お茶濁した】という次第。

せめて西暦で入ってればDATE関数が使え…そっか"平成限定"なんだから1988足しちゃえば…　orz

■outlook2003のメール送信についてですが、
http://bekkoame.okwave.jp/qa5877931.html

なんか、Outlook担当になってる？ｗ

実はOutlook課題なんかではなくて、
単に「アクセスキーを無効にするには？」ってだけのハナシなんだけど
何故かスルー気味だった上に#1で出てる過去ログが酷い。

■Outlook2003でAlt+Sで送信を無効または変更したい
http://bekkoame.okwave.jp/qa3895569.html

　菫
　>キー割付を変更してみて下さい。

　その発想はなかった！

…それにしても、[E-Mail]カテならともかく
[MS Office]カテでこれスルーしちゃいかんだろｗ

---------------------------

…えっと、ここはヲチスレではありません、反省スレです。＞　わたし

●[ユーザ設定]ダイアログ引っ張りすぎて
　肝心の[送信]ボタンが隠れちゃってるよ！

●録画停止するの早すぎて
　「送信(S)」が「送信」に変わってる状態が見えないよ！

●「戻し方」説明した方が親切じゃなかった？

-----------------

こういうケースって、妙に焦るのよね。

変に怪答ついちゃってるから、いつ閉じられちゃうか判らないし
作ってる間に、他にちゃんとした回答がつく可能性はもちろんあるし
かといって様子見て質問者待たせるほどの案件じゃないし
第一仕事ち…

■表の値を組み合わせて新しい表を生成したい
http://bekkoame.okwave.jp/qa5876434.html

後出しで叩かれそうなおか～ん。

まぁ「叩き台」だからいいんですけどね、
「丸１日放置してた」のは忘れないでくださいね。

「初心者」で「例文」が欲しいという要望なので
本来【　わたしなんかの出る幕ではない　】んですけど
なぜかスルーされてたので【　やむをえず　】落穂として拾いました。

…いや、「なぜか」は…なんでだろ？

------------------
　　検閲削除
------------------

げほげほ、さて。

「初心者」で「例文」なので、
できるだけ「オーソドックス」に書いてみようと…
わたしなりに努力はしたんですが、失敗　orz

こういう場合、どういうふうに書くのが「基本」なんだろ？
ふだん「動けばいいや」って思ってるもんだから
いざ「ちゃんと」書こうとすると困っちゃうのよね(ぉ

　・OffsetじゃなくてCellsを使うべきだった？
　・変数に入れてても、Withで括るとやっぱ違う？
　・毎回空白チェックして止めるのはこのスケールでも間抜け？
　・それともやはり根本的に…　orz

'=======↓ココカラ↓=======================================
Sub Sample2()

　Dim orgCel　　As Range
　Dim rtnCel　　As Range
　Dim itmCnt(2) As Long

　Dim i As Long
　Dim j As Long
　Dim k As Long

　Set orgCel = Worksheets("Sheet1").Range("A1")　 '元表左上隅セル
　Set rtnCel = Worksheets("Sheet2").Range("A1")　 '書出先左上隅セル

　With orgCel
　
　　i = Rows.Count
　　j = .Column
　　k = .Row - 1
　　
　　With .Parent
　　　itmCnt(0) = .Cells(i, j).End(xlUp).Row - k
　　　itmCnt(1) = .Cells(i, j + 1).End(xlUp).Row - k
　　　itmCnt(2) = .Cells(i, j + 2).End(xlUp).Row - k
　　End With
　
　　k = 1
　　For i = 1 To itmCnt(0)
　　　For j = 1 To itmCnt(1)
　　　　k = k + 1
　　　　rtnCel.Cells(k, 1).Value = .Cells(i, 1).Value
　　　　rtnCel.Cells(k, 2).Value = .Cells(j, 2).Value
　　　Next j
　　Next i
　
　　For i = 1 To itmCnt(2)
　　　rtnCel.Cells(1, i + 2).Value = .Cells(i, 3).Value
　　Next i
　
　End With

End Sub
'=======↑ココマデ↑=======================================

ここまですると、かえって判りにくくなる気が…。

ちなみに
　・元データは連番とは限らない
　・元表／先表の位置は動くかもしれない
　・元表／先表の形は動かない
　・位置指定は最小限に（だからといってParent使うか？）
というのはわたし的に大前提。

…なんだけど、もしかすると
↓こういうのが「すまーと」なのかなぁと思ったりも(ぇ

'=======↓ココカラ↓=======================================
Sub Sample3()
　Dim a As Worksheet, b As Worksheet
　Dim c As Long, d As Long, i As Long
　Set a = Worksheets(1)
　Set b = Worksheets(2)
　a.Range(a.Cells(1, 3), a.Cells(Rows.Count, 3).End(xlUp)).Copy
　b.Cells(1, 3).PasteSpecial Transpose:=True
　c = a.Cells(Rows.Count, 1).End(xlUp).Row
　d = a.Cells(Rows.Count, 2).End(xlUp).Row
　a.Range(a.Cells(1, 2), a.Cells(Rows.Count, 2).End(xlUp)).Copy
　For i = 0 To c - 1
　　b.Cells(2 + i * d, 1).Resize(d, 1).Value = i
　　b.Paste b.Cells(2 + i * d, 2)
　Next i
　Application.CutCopyMode = False
End Sub
'=======↑ココマデ↑=======================================

いや、コレは【冗談】なんだけど、でもよく見かけるよね、この手の。