なんというか一定間隔毎にかくかくしてるのでおかしいなーと思い調べてみたところ コントロールパネル→マウス→ポインタの精度を上げるのチェックをはずすと結構いい感じになりました。 追記 USB-PS2変換コネクタを使っているとそういう挙動をするみたい。 メ…

けど、何度か実行しないと削除が完了しない。なんでだろう？ Sub DeleteRows() Dim RanA As Range For Each RanA In Range("TableA!B1:B7000") If RanA.Cells.Value <> "" Then If RanA.Cells.Value = "○" Then RanA.Cells.EntireRow.Delete Exit For End If…

VLOOKUPとかでやったほうが早そうだけど、あえて無駄な処理をさせてみた。 VLOOKUPで探すよりかなり時間がかかった。 この行数のデータ参照で10分近くかかったのでかなり実用的ではないなあという感じでした。 Sub DiffData() Dim a As Long Dim RanA As Ran…

住所データを英語から日本語にしなければならないのでVBAで作ってみました。 英語住所だと1-1-1 OtemachiみたいになるのをOtemachi 1-1-1に入れ替える為のVBAです。 Sub Irekae() Dim a As Long Dim RanA As Range Dim chkA As String Dim chkB As String Di…

VBAなんてやらないよ！っておもってたら単純作業の繰り返しには効率的だという事が発覚！ なのでメモっておく。 これはJ2:J6000までの列とK2:K6000までのセル内を結合し、その後K列の内容を削除する。 結合したい対象のセルが違う場合はCells内をいじればよ…

子供が体重13kg近くになったのでiBertでは窮屈+iBertのものだと漕ぎにくいので Topeak Kids Seatを取り付けてみました。 取り付け時は少しキャリアを広げるだけで特に問題なく取り付け可能でした。 （金具がいろいろある上にほとんど不要なので取り付け前に…

人生初Solaris 8 Installを行おうとしたところ、formatコマンドでフォーマットをしてみたら とても時間がかかることが発覚。 72GBのディスクフォーマットに1日かかるとかなんとか… 一体なんでこんなに時間がかかるんだー！ というわけでひたすら待ってます… …