2017-05-26から1日間の記事一覧
広告で学んだ英語表現 ABC Internet is the affordable way to stay connected. $100nper month. for first 12 month. 広告謳い文句、箇条書き - Check the weather online. - Record your favorite shows. - Call ahead to make reservations. Giant Liquid…
excel-ubara.com Sub Practice14() Dim i As Long For i = Cells(Rows.Count, 1).End(xlUp).Row To Step - 1 Select Case Cells(i, 1) Case "I" Rows(i).Inser Case "D" Rows(i).Delete End Select NextEnd Sub
Crave Burger Company - 10 Photos & 19 Reviews - Burgers - 2501 8th St S, Moorhead, MN - Restaurant Reviews - Phone Number - Yelp
excel-ubara.com Sub Practice13() Dim i As Long Dim strPref As String Dim strCity As String Range("G2:I8").ClearContents For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If InStr(Cells(i, 1), "(") > 0 Then strPref = Left(Cells(i, 1), InStr(C…
excel-ubara.com Sub Pra12() Dim i As Long Dim intW As Integer Range("G2:I8").ClearContents For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row intW = Weekday(DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3)), vbMonday) Cells(intW + 1, 7) = Cel…
excel-ubara.com Sub 練習問題11() Range("A1:B6").Copy Range("D1") Range("A1:B6").Copy Range("G1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = FalseEnd Sub
excel-ubara.com Sub 練習問題10() Dim i As Long Dim lastRow As Long lastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastRow Cells(i, 4) = Cells(i, 2) / Cells(i, 3) Next Range(Cells(2, 4), Cells(lastRow, 4)).NumberFormatLocal = "#,…