Post-Admin:
Date:
Subject: <   2006年 11月 ( 5 )   > この月の画像一覧

Post-Admin:
Date: 2006年 11月 27日
Subject: 16:9と4:3
a0002383_1457396.gif
16:9と4:3で重ねる部分とカットする部分。
[PR]
by noaccess | 2006-11-27 14:58 | メモ

Post-Admin:
Date: 2006年 11月 22日
Subject: 電話番号
電話番号にもチェックデジットが必要だと思います
[PR]
by noaccess | 2006-11-22 11:08

Post-Admin:
Date: 2006年 11月 08日
Subject: 正しい(?) Weekday関数

Function Weekday2(ByVal inputDate As Variant, Optional weekdayType As Integer = 1)
Dim tmpDate As Date
tmpDate = inputDate
If TypeName(inputDate) <> "String" And inputDate < DateSerial(1900, 3, 1) Then
If inputDate < DateSerial(1900, 1, 1) Then
tmpDate = WorksheetFunction.Text(inputDate + 1, "YYYY/M/D h:m:s")
tmpDate = tmpDate - 1
Else
tmpDate = WorksheetFunction.Text(inputDate, "YYYY/M/D h:m:s")
End If
End If
Select Case weekdayType
Case 1
Weekday2 = Weekday(tmpDate)
Case 2
Weekday2 = Weekday(tmpDate, vbMonday)
Case 3
Weekday2 = Weekday(tmpDate, vbMonday) - 1
End Select
End Function

[PR]
by noaccess | 2006-11-08 11:19

Post-Admin:
Date: 2006年 11月 07日
Subject:
奴等が心に恐怖を投棄していく
取り除けない恐怖
やがて朽ちるのは心
[PR]
by noaccess | 2006-11-07 00:03

Post-Admin:
Date: 2006年 11月 06日
Subject: Rows.Autofit
Columns.AutoFitは指定したセルの幅のみを見て幅を変更するが、Rows.Autofitは指定したセルだけでなく行全体の高さを見て高さを変更するようである。

Sub check()
Range("b2").Value = "1"
Range("b3").Value = "1234567890"
Range("c2").Value = "a" & vbLf & "b"
Range("b2").Columns.AutoFit
Range("b2").Rows.AutoFit
End Sub

そこで指定したセルの高さのみを見て変更するのに近い動作をするコードを使用している。

More
[PR]
by noaccess | 2006-11-06 10:55 | メモ

Page select: |

Profile:
ほんとうかなあ?
by noaccess
プロフィールを見る
画像一覧

Calender:
S M T W T F S
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30

*: 検索




*: 最新のトラックバック
うげ!
from ぶろぐ、ぶろぐとき、ぶろげば..
えーと
from ぶろぐ、ぶろぐとき、ぶろげば..
あれ
from ぶろぐ、ぶろぐとき、ぶろげば..

*: メモ帳
ぎゃふん状態にある


*: ブログジャンル
つぶやき

*: 画像一覧