エクセル2013オートフィル直後 オートフィルオプションが表示される「クイック分析」が表示される

オプション

詳細

コンテンツを貼り付けるときに[貼り付けオプション]ボタンを表示する

日本IBM出身
ホームページビルダー元開発責任者
鎌田裕二
責任指導
横浜市鶴見区のパソコン教室⇒

お問い合わせ TEL:045-567-8393
【開校15年 総受講生 1,800名以上】
小学生から90才まで通学実績有

エクセル VBA Outlookを起動して 内容を貼り付ける

Sub send_mail()
Dim i, j As Integer
Dim oApp
Dim myNameSpace
Dim myFolder
‘Outlookの起動

On Error Resume Next
Set oApp = GetObject(, “Outlook.Application”)
If oApp Is Nothing Then
Set oApp = CreateObject(“Outlook.Application”)
Set myNameSpace = oApp.GetNamespace(“MAPI”)
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display
End If
On Error GoTo 0

oApp.ActiveWindow.WindowState = 2

‘以下はメールの新規作成
Dim mITEM ‘As Outlook.MailItem’
Set mITEM = oApp.CreateItem(0)
mITEM.BodyFormat = 2
mITEM.Display

mITEM.Subject = Worksheets(“Sheet1”).Cells(1, “a”).Value
mITEM.To = Worksheets(“Sheet1”).Cells(4, “i”).Value
mITEM.CC = Worksheets(“Sheet1”).Cells(4, “j”).Value

‘メールのコピー
Range(“A3”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With

‘メールのコピー
Range(“A4”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With

‘メールのコピー
Range(“A5”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With

‘メールのコピー
Range(“A6”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With

‘メールのコピー
Worksheets(“Sheet1”).Range(“A7”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘Dim waitTime As Variant
‘waitTime = Now + TimeValue(“0:00:2”)
‘Application.Wait waitTime

‘個数を数える
i = 0
Do While Worksheets(“Sheet1”).Cells(i + 8, “a”).Value <> “”
i = i + 1
Loop
‘Debug.Print i

‘コピー
Worksheets(“Sheet1”).Range(Cells(8, “a”), Cells(8 + i – 1, “g”)).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With

End Sub

日本IBM出身
ホームページビルダー元開発責任者
鎌田裕二
責任指導
横浜市鶴見区のパソコン教室⇒

お問い合わせ TEL:045-567-8393
【開校15年 総受講生 1,800名以上】
小学生から90才まで通学実績有

.htaccessリダイレクト例

RewriteEngine on
RewriteRule ^/?$ https://wp-school.yokohama? [L,R=301]
ErrorDocument 404 /

ワードプレスの教室にてホームページ作成中

日本IBM出身
ホームページビルダー元開発責任者
鎌田裕二
責任指導
横浜市鶴見区のパソコン教室⇒

お問い合わせ TEL:045-567-8393
【開校15年 総受講生 1,800名以上】
小学生から90才まで通学実績有

VBA ワークブック間 コピーメモ

Worksbooks(outputfile).worksheets(dst).cells(k, “a”) = workbooks(inputfilename).worksheets(src).cells(i, “i”)

do while workbooks(outputfilename).worksheets(dst).cells(k, “a”) <>””
k = k + 1
loop

日本IBM出身
ホームページビルダー元開発責任者
鎌田裕二
責任指導
横浜市鶴見区のパソコン教室⇒

お問い合わせ TEL:045-567-8393
【開校15年 総受講生 1,800名以上】
小学生から90才まで通学実績有

Windows10注意点

タブレットモード オフのまま使うこと
全画面表示のスタート画面を使う オフのまま使うこと

日本IBM出身
ホームページビルダー元開発責任者
鎌田裕二
責任指導
横浜市鶴見区のパソコン教室⇒

お問い合わせ TEL:045-567-8393
【開校15年 総受講生 1,800名以上】
小学生から90才まで通学実績有

生徒さんホームページ作成事例集はこちら

横浜鶴見・川崎のパソコン教室の生徒さんのホームページ作成事例はこちら

(掲載承諾分のみ掲載)

ホームページビルダー教室ワードプレス教室の生徒さんの作成事例です。

 

日本IBM出身
ホームページビルダー元開発責任者
鎌田裕二
責任指導
横浜市鶴見区のパソコン教室⇒

お問い合わせ TEL:045-567-8393
【開校15年 総受講生 1,800名以上】
小学生から90才まで通学実績有