Public Sub linkCut(usewb As Workbook, useshName As String, cutDir As String, cutfileName As String)
' Debug.Print cutDir & "[" & cutfileName & "]"
usewb.Sheets(useshName).Cells.Replace What:=cutDir & "[" & cutfileName & "]", Replaceme
【VBA】左右列、最下行の検索ツール
Public Function leftEndCol(sheetName As Worksheet, useRow As Long)
leftEndCol = sheetName.Cells(useRow, Columns.Count).End(xlToLeft).Column
If Err.Number > 0 Then
leftEndCol = 0: Err.Clear
End If
End Function
Public Functio
【GAS】Gメールをスプレッドシートに転記
function mailGet() {
var fetchData = (str, pre) => {
var reg = new RegExp(pre + '\\s.*?\\s', 'g');
try {
var data = str.match(reg)[0]
.replace(pre, '')
.replace(' ', '');
return data;
}
catch (e) {
//