hedgejanuary

Sub settingTblBorders()

ActiveSheet.Cells.Clear

With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)

hedgejanuary

Sub settingTblBorders()

ActiveSheet.Cells.Clear

With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)

hedgejanuary

Sub CreatingTOCSheet()

Dim bkTarget As Workbook      'subject workbook
Dim shTOC As Worksheet    'TOC worksheet
Dim sh As Worksheet    'worksheets to be listed
Dim flag As Boolean     'boolean to check if a new worksheet is necessary
Dim finalRow As Integer
Dim i As Integer
Dim msgAnswer As VBA.VbMsgBoxResult  'store the answer of the message box
Dim shName As String

hedgejanuary

Sub ListLinks()

    Dim ws As Worksheet
    Dim rFormulas As Range
    Dim rCell As Range
    Dim aLinks() As String
    Dim i As Long

    If ThisWorkbook Is Nothing Then Exit Sub

hedgejanuary

//今後7日間の予定をメールで送る。

function GoogleCalToEmail() {
  var list = "";
  var s;

  s = listupEvent("XXXXXXXXXXXXXXXXX@group.calendar.google.com"); //Boss' schedule
  if (s != "")  list += "  \n##■XXX's schedule  \n" + s + "  \n";

  s = listupEvent("XXXXXXXXXXXXXXXXX@group.calendar.google.com"); //XXX Group's Events

hedgejanuary

//スケジュールアシスタントが今後7日間の予定を投稿してくれる
function GoogleCalToMSTeams() {
	var list = '';
	var calEvents = '';
	var calendarInUse = [
    // 使用するカレンダーのアドレスとそのラベリング
    ['xxxxxxxxxxxxxxxxxxxxxxx@group.calendar.google.com', '\n##■XXX\'s schedule\n'],
    ['xxxxxxxxxxxxxxxxxxxxxxx@group.calendar.google.com', '\n##■Out of office (staff)\n'],
    ['xxxxxxxxxxxxxxxxxxxxxxx@group.calendar.google.com', '\n##■XXX events\n'],
    ['xxxxxxxxxxxxxxxxxxxxxxx@group.calendar.google.com', '\n##■XXX Office events\n'],

hedgejanuary

Option Explicit

	Sub CleanUpData()
	Dim i As Long
	Dim LastRow As Long

	'空白行を削除
	Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

	'データの最終行

hedgejanuary

Option Explicit
Sub CleanUpData()
	Dim i As Long
	Dim LastRow As Long

	'空白行を削除
	Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

	'データの最終行 
	LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

hedgejanuary

/* カレンダーへイベントを登録する */
function pushToCalendar() {
  //シートの項目を以下変数定義
  var dSheet, Cal, i, Title, StartDate, StartTime, EndDate, EndTime, AllDayEvent, Description, Location, Status;
  //dSheetを定義
  dSheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("Sheet1");
  //calendar variables
  Cal = CalendarApp.getCalendarById("XXXXX.google.com"); //<---XXXXXを自分のgmailアドレスへ変更する
  //シートの2行目〜最終行まで処理を繰り返す
  for (i = 2; i <= dSheet.getLastRow(); i++) {