Excelあれこれ、memo
2010は(というか、2003と比較してるので、ひょっとしたら2007とかもですが)どうもプレビューがうんこバグ持ってて、プレビューの破線噛んだらとにかく「イヤーイヤーもう動きたくないのー(ジタバタ)」し始める。やめろ。
…といってやめてくれるわけがないので、
a/プレビューの破線を切る。
ファイルの右下のオプション/詳細設定/次のシートでなんちゃら/改ページ
*でもこれじゃ毎回消さにゃならんよね
b/マクロで消しとく
*全シートに仕込むのかよ…
今書きかけてるの今までみたいに簡単じゃないようで、すごい詰まってるというか、もうちょっと基礎やるべき。
動かんけどmemo、家でゆっくり考えよう。
Private Sub Worksheet_Deactivate()
Dim haRow As Long
Dim haCol As Long
Dim Haaaaanniiiii As Range
Dim naaaameeeeee As Name
With Worksheets("Daaaaaaaaaata")
haRow = Cells(Rows.Count, 1).End(xlUp).Row
haCol = Cells(1, Columns.Count).End(xlToLeft).Column
Set Haaaaanniiiii = .Range(Cells(1, 1), Cells(haRow, haCol))
.SortFields.Clear
Haaaaanniiiii.Sort _
Key1:=.Range("A1"), Order1:=xlAscending, _
key2:=.Range("C1"), Order2:=xlAscending, _
key3:=.Range("D1"), Order3:=xlAscending, _
Header:=xlNo, Orientation:=xlTopToBottom
End With
End Sub
ソートのとこで詰まる。
最終的にはこれに名前範囲の書き換え足したいんだけど道のり長すぎる。死にそう。
あと、今後使いそうなmemo
・Excel2003からExcel2010に移行するにあたって
http://kiruah.sblo.jp/article/54657245.html
・ワークシートの最終行、最終列を取得する
社畜としてのは子の人他零細企業についてのあれこれ
自筆じゃない、使い回しの礼状に価値が見出せないというのは少数派なんでしょうか、別にお礼が無駄だと言ってるわけでもないし、代替案だって営業の口実にもなると思ったからだし。
プルァっと創作会(仮) やりたいな。
一人でも人参です。は子です。
定期的にお題だしたりなんだりしたい会を企画したいです。
要は、手が取れる時にお題にそってものを書く/描く/作る会、1次創作/2次創作/イラスト/小説/漫画/手芸/彫塑/陶芸 他、なんでもあり。
できたものは連絡してもらったらリンク貼ったり、うちの鯖に上げたりなんだりで閲覧できるようにする的なの。
しかしなんかこれは非常に自己満足というか俺オンリーワンな感じね。
参加はすきなときにしてもらうゆるい会にしたいのですが、本当に作ったら誰かやってくれるかのう( ゚ ρ ゚ )
とりあえず今やりたいお題があってだな。
「実際の酒の名前をテーマにした創作」
・作中に自分の好きな酒を出す事
・例)ギムレット× Jack Daniel ○
ワイン × カルロロッシ○
日本酒 × 日本盛 ○
こんなん。
ま、とりあえず自分が書けばいいはなしなんだけども。
今だにヲタから足抜けできない。
俺んちの夕飯メモ
夕飯をよくネットで検索して適当につくったりするんですが、「あれ何見て作ったっけ」ってすぐなるのでメモしていくよ、偶に増えるよ。
*な*
☆菜の花おひたし
http://cookpad.com/recipe/320325
☆煮 豚/鶏
http://cookpad.com/recipe/449695
*ま*
★ミネストロネ
そんなわけで今更VBAを始めました。
ExcelVBAです。
プログラムをなんだら系統のはなしというのがですね、
実はね、中学校のベーシック以来です。
あん時もすごい苦しんだんだけど今も苦しんでいる。いや苦しい本当苦しい。
中学の時はどうしても乗り越えられんエラーが有って教師に聞いたら仕様ですって言われたという。
実際あれは多分仕様というかバグであった。死ぬほど線引いて絵を書く課題だったので
おなじことしかしてないしNe☆
私はダランダランとものを考えてるいわゆるダメ人間なので、
あらゆることが適当なので、こうな、まともな命令をしないと動かないってやつが苦手で、
したがって動かにゃいんですねこれが。
だがしかしまあやってみよういろいろ事情があるしということで、
A表とB表があってだな。見た目がほぼ一緒の。
でそのシートが入ってるExcelブックに別のシートが…
私が渡された時点で既に20枚くらいあってね。
へらせないというか一枚じゃないとやだやだだそうです。
これをスリム化するのの一貫なんですけどもっとガツンと減って苦情が出ない方法あったら
誰か教えてください。死ぬ。
で、やったことなんですけどね
とりあえず
A表とB表のタイトルをキーにして、If then Elseしてみた。
日本語で書くと
もしセル1があああーの場合、
こことここの線を消して、その範囲結合して、文字入れて
別のここには線を引いてよね!
そうじゃなかったら
ここの範囲の文字消して、範囲結合解除して、こことここに線書いて、
別のここの線は消してよね!
こういうやつ。
こんな単純な話なのにだな。
まずやたらと、.Borderクラスの指定に困ってですね。
何が困ったって、日によってエラー吐いてくれるんです意味がわからん。
色々やりすぎて何が起きたのかわからないんですけど何とかなりました。
そんなわけでメモと反省
★反省
パブリックで動かしたり意味もわからずぷらいべーとにしてみたりしてたのが
いかんかったのかも。
書いた文言はよく見ましょう。現場百回
☆メモ
--ボタン起動のサブルーチンのError回避
a.プロシージャの頭に selection.select
b.コマンドボタンのTake Focus On ClickをOFF
+-2つを総合すると、普通にしてたらボタンにフォーカス持っていかれるって事。
そもそもフォーカスとはなんぞや
引用元:http://www.keep-on.com/excelyou/2001lng4/200109/01090213.txt
--印刷プレビュー後味噌っかすに重たくなる
→印刷の破線が一因なので消す
+-知らんとわからん系ではないのかな。
引用元:http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=49165;id=excel
もう少しprivate Subについて詳しく(手元の本には乗ってない、マジで)
参考:http://www.k1simplify.com/vba/tipsleaf/leaf312.html
あと原因不明で3回ほど落ちたので、自動保存の場所(物臭なのでスーパーデフォルト)
→C:\Documents and Settings\ユーザ名\Application Data\Microsoft\Excel\