eggist77

Sub formatCondition()

    Dim r As Range
    Dim formatCondition As FormatCondition
    
    '範囲設定
    Set r = Range("A1:A5")
    
    '条件付き書式の追加
    Set formatCondition = r.FormatConditions.Add(Type:=xlTextString, String:="OK", TextOperator:=xlContains)

eggist77

'nLib Version = 1.11

Function dateFormat(ByVal format)

  ' format
  ' yyyymm
  ' yyyymmdd(default)
  ' yyyymmddhhmmss
  ' yyyymmdd_hhmmss

eggist77

'保存ボタン
Private Sub saveBtn_Click()
    DoCmd.RunCommand acCmdSaveRecord
End Sub

'キャンセルボタン
Private Sub canselBtn_Click()
  Me.Undo
End Sub

eggist77

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

'1.Get ScriptFile folder
MsgBox fso.getParentFolderName(WScript.ScriptFullName)

'2.C:\Windows\System32
MsgBox fso.getParentFolderName("C:\Windows\System32\notepad.exe")

'3.notepad.exe

eggist77

Option Explicit

' variable declaration
Dim svcs
Dim procList
Dim proc
Dim msg

' Process List Get 
Set svcs = WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer

eggist77

;------------------------------------------------------
; @description : ssh for CentOS
; @auther : n
; @version : 1.1
; @since : 2019/4/9
; @update : 2019/11/12
;------------------------------------------------------

target='192.168.0.1'
username='user'

eggist77

;autocmd.ttl

macroname = 'autocmd'
cmdlist = 'cmdlist.txt'
prompt1 = '$'
prompt2 = '#'
timeout = 15

;コマンドリストチェック
filesearch cmdlist

eggist77

;------------------------------------------------------
; @description : telnet for CentOS
; @auther : n
; @version : 1.0
; @since : 2019/4/9
; @update : 2019/4/9
;------------------------------------------------------

target='192.168.0.1'
username='user'

eggist77

' ---------------------------------------------------
' description: 
' auther: name
' version: 1.0
' since: yyyy/mm/dd
' update: yyyy/mm/dd
' ---------------------------------------------------

Option Explicit

eggist77

'Write to a text file

'iomode
Const ForReading = 1, ForWriting = 2, ForAppending = 8

txtFile = "txtfile.txt"

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(txtFile, ForAppending, True)