|
× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
 |
|
0ption Explicit Subセルの値を取得0 'Range(″Dl″)に「平成28年1月4日」と入力されている場合(日付書式が設定されている) MsgBox Range(″D2″).Value '→2016/01/04(月) …書式で指定された標準?値 MsgBox Range(″D2″)Value2 '→42373 …シリアル値 MsgBox Range(″D2″)Text '→平成28年1月4日 …書式(表示)通りの値 MsgBox Range(″D2″).Formula '→=WORKDAY(TODAY O,-1,休日テーブル)・…数式 '※プロパティを指定しない場合はValueの扱いになる(規定値) End Sub Subセルの値を数値型に変換0 Dim i As integer i = Clnt(″123″) '―→123 i = Clnt(1.5) '―→2 Dim s As Strlng s=″Tips″ '→ェラー '/変換できるときだけ実行する !f lsNumeric(s) 〓 True Then i = Clnt(s) End lf '他の数値型を指定して変換したいときは次の関数を使用 '関数 型 'CByte Byte 'CCur Currency 'CDbl Double 'CDec Decimal 'CLng Long 'CSng Single End Sub Subセル値のコードを取得0 ,糞魚済翌撃裏・こ■はヽ全角文字はシフトJiSコードを取得 MsgBox Asc(″a″) '―→97 MsgBox Asc(〃A″) '→65 纏品炉驚浸み轟考入れ≒盪島は1文字目のコードのみを取得 MsgBox Asc(″[ヨ本″) '一→-27654 End Sub Subセル値を文字コードで出力0 Msg3ox Chr(97) '=→a MsgBox Chr(65) '―→A MsgBox Chr(-27654)'→日 End Sub Sub SU∥関数0 Range(Cells(15, 5), Cells(18, 5)).Select MsgBox Application WorksheetFunction.Sum(Range(Ce:ls(15, 5), Ceils(18, 5))) 嘱鼈i堀F侮拘r化孟鰍魔牟桶良憶計柵猟塵縫計亀。.¨団Q OD・Appl h“山鍋J順歯いⅢ お品ン),p尉l腎bnW°rk山∝fmttb■htthtte“M∝N2つ,Applicat bn Work山∝fmd bnMatcKttt h耐知 |:el♀:|||:[l!|:サ;:l〕:i♀:Fu18';,nttSII`i♀:::∫:ill:∫1:he:セトul:11:ll:Lm,Iをキg:(8:||:t♀;1°|。∥:rb:キ♀:1「甘lCI:,,,S11`lange Else MsgBox ″NO″ End lf Cell … 2 1f Appllcation.WorksheetFunction.Sum(Range(″E15:E18″))= Application.WorksheetFunction.Sum(Range(″J15:J18″)) Then MsgBox ″YES″ EIse MsgBox ″NO″ End if End Sub 鮎bl列番号を調べるo Dim a As Long Dim b As String '列番号取得 a = ActiveCell.Column '列名(アルファベット)取得 …Ce∥sはRange指定でもOK b = Left(Celis(1, a).Address(True, False), lnStr(Cells(1, a).Address(True, False), ″$″)- 1) MsgBox″選択されている列は ″&b&″ です。 ″&vbCrLf&_ ″列番号は ″&ActiveCe∥.Oolumn&″ です。 ″,vbinformation End Sub Subl列名を調べる.0 Dim num As Long num=lnputBox(″列の数字を入力してください″) MsgBox Chr(num + 64) End Sub Sub例番号を取得10 MsgBox ″イ子(Row)署昏=子: ″ & ActiveCell.Row & vbCrLf & ″Fll(Oolumn)籠昏=子: ″ & ActiveCell.Oolumn Debug.Print ″ィテ(Row)署陽=計: ″ & ActiveCell.Row Debug.Print ″Jll(Oolumn)籠野=計 : ″ & ActiveCell.Column End Sub Sub列選択0 Worksheets(″信託ロスキーム(TAKU∥l)″).Activate Co!umns(〃S″).Select End Sub Slb列幅調1整二範囲指定あり0 Range(″A3:G14″).Oolumns.AutoFit 編釜孝鳥87イ響鰍黒魔牝キ濡悔需♂鳥砕iturreltRegiOnプロパティを使う End Sub Sub行列の表示非表示o 'ActiveCell.EntireRow.Hidde x Rows(2).Hidden = True 'o Range(″A10〃).EntireRow.Hidden = True '() End Sub Sしb行の選択1〈) 'フィルタリング後の見えている行のみを選択 Rows(″5:1000″).CurrentRegion.SpecialCells(xlCellTypeVisible).Select Selection.Delete End Sub 壺計摯続,じo Dim e As Variant e = ActiveSheet.UsedRange.Rows.Count Cell - 3 MsgBox e End Sub Subセルの背景色を調べる0 '調べる(イミディエイトに表示) Debug.Print ActiveCell. lnterior Color 'セルに背景色を付ける 'ActiveCe∥.lnterior.Color=(イミディエイトに表示されたコード) End Sub Sub全セル値コピー0 Cells.Copy Range(″Al″).PasteSpecial Paste:=xlPasteValues Application CutCopyMode = False End Sub Sub値コピー0 Range(″A4″).Pastespecial Paste:=xlValues 'x …できるけど、オブジェクトもコピーされる Range(″Al″).Pastespecial Paste:=xlPasteVa:ues 'O ―値のみコピー End Sub Subセルの値をクリップボートに格納0 Dim myCopy As New MSForms.DataObject With myCopy .SetText ActiveCell Value .PutinClipboard End With End Sub Sub WorkDay関数0 :を多ξ]二」|」営l[ristfiI[:バ|ピ:3」lfilil]「[「][111三履「la二.[1『[:1」ずΥ女F:「 ∥::卜E;9,IR`il`1ドEl:L:き",:l:i`:)2″) = Application.WorksheetFunction.WorkDay(Date, -1, ThisWorkbook.Worksheets(″ゼ歩 ;∥l:∥::,9:〕∫〔l`りj「7」liき)Range(″L2″) = Application.Run(″ATPVBAEN.XLAIWorkDay″, Date, -1, ThisWorkbook.Worksheets(1 'ワークシートに代入する数式 =WORKDAY(TODAY O,-1,参照デ…夕!$E$2:SE$36) End Sub Sub日付指定0 MsgBox Date 朧出I路撥訃|:1能鮮能ヨ1脚∥鵬ヨ18 End Sub Sub範囲を取得0 '選択したセル範囲を表示 2::i:|::::11:曇|「::|:|:|:llilll!:lll:i:i:|ll!!||::::|:illiillilsOlute:=F:lse) ||||::::::.xism]Sheetl!$A End Sub ・ Sub範囲指定1() '続いている範囲? ←空白を含む入力されている範囲らしい 相細 日月月 今当前 Cell - 4 Range(Range(″B9″), ActiveCell.SpecialCells(xlLastCel!)).Select End Sub Sub範囲指定2() '現在見えているセル範囲を返す MsgBox ActiveWindow.VisibleRange Address End Sub Sub改行コニドでセル分割する0 Dim x,y As Long '始まりの行列番号 Dim i, j As Long Dim tmp As Var:ant 'アクティブセルから始まる x = ActiveCell.Row y = ActiveCell.Oolumn 'MsgBox x & vbLf & y i=x 」=y Do While Cel:s(1, j) 〈〉 ″″ tmp = Split(Cells(i, j), vbLf) Cells(i, j + 1) = tmp(0) Cells(i, j + 2) = tmp(1) i=i+1 Loop End Sub Subl文字色を一部変更0 '7文字日から6文字を赤色にする Range(″B2〃).Characters(Start:=7, Lengthi=6)。Font.Oolorlndex = 3 End Sub Sub名前セルを作る0 Range(″Al″).Name = ″イ計言十筆色Eヨ″ End Sub Sub名前セルの指定0 Rfま多探省阜ニワ捻考麗よnまたは名前の範囲がブックの場合 品よ多砲(1長3角栗婁多甲釜た夏卜の場拿 Range(″Sheetl l名前セル2″).Select 'ブック外から Range(″∥yマクロ.xlsm!名前セル1″).Select Range(myBK.Name&″!名前セル1″).Select 'ブックを変数に格納 Iぶよ多怖弁長昇ξ研昴露尾ど者石書8褥夕).select Range(″'[∥yマクロ.xlsm]SNIF(1)'!名前セル2″).Select End Sub Sub名前セルの名前を取得0 '単一セルのみ、範囲はムリ MsgBox″セルの名前:〃&ActiveCell.Name.Name End Sub Sub名前セルの行列番号の取得0 Range(″青い表″).Select Cells(Range(〃青い表″).Row,Range(″青い表″).Oolumn).Select MsgBox″表のセル範囲:″&Range(″青い表″).Address MsgBox″表の起点の行番号:″&Range(″青い表″).Row ∥::::I“雲:13,:寡l`Pフl『卜11「g:(9讐|]1:髪`∫扁:1露:なし1:lumn MsgBox″表の列数:″&Range(″青い表″).Oolumns.Oount MsgBox″表の終点の行番号:″&Range(″青い表″).Row+Range(〃青い表〃).Rows.Oount-1 MsgBox″表の終点の列番号:″&Range(″青い表″).Oolumn+Range(″青い表″).Oolumns.Oount-1 End Sub Sub名前セルをすべて削除0 '/名前付きセルから名前をすべて削除する Dim n As Name For Each n in ActiveWorkbook.Names On Error Resume Next'エラーを無視 n.Delete Next End Sub Sub文字列を日付型にする0 '見た目が日付ならこれ ∥sgBox CDate(″2000/08/04″) '8ケタの数字ならこれ Msg3ox Format(″20150727″, ″@@@@/@@/@@″) End Sub PR |
|
|
|
|
|
