oki2a24
Sub Test()
Dim strNow As String
strNow = Format(Now, "yyyymmddhhnnss")
Debug.Print strNow
End Sub
の派生版ですの！
引数に Names オブジェクトの一部を渡すと、その文字列を含む Names オブジェクトをすべて削除するプロシージャを書きましたのでノートいたします♪
Range.SpecialCells(xlCellTypeVisible)以上のことに気がついたわけですけれども、それを学習できたコードを残しておきますの♪
Iterator クラスでは、もれなく反復するために、最低次の機能があればよい。
鍋に調理用温度計を固定する方法ですの♪
真空調理中の食材が直接鍋底に接して温度が上がらないようにする工夫ですの♪
Public Sub Test() ' 配列の要素数となる変数 Dim lngLength As Long lngLength = 100 ' 配列を宣言し、要素数に lngLength を設定 Dim lngArray() As Long ReDim lngArray(lngLength) ' 配列の要素数を確認 Debug.Print UBound(lngArray) End Sub
Public Sub Test() ' 右端の列番号を取得 Dim lngMaxCol As Long lngMaxCol = Cells(1, Columns.Count).End(xlToLeft).Column Debug.Print lngMaxCol ' 下端の行番号を取得 Dim lngMaxRow As Long lngMaxRow = Cells(Rows.Count, 1).End(xlUp).Row Debug.Print lngMaxRow End Sub
[Index(IsUnique=true)] という Annotation 属性をプロパティに付けることでそのカラムは一意となる。
public class Sex
{
public int Id { get; set; }
[Required]
[Index(IsUnique=true)]
[MaxLength(10)]
public string Name { get; set; }
}