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
・ワークシートの最終行、最終列を取得する