パソコン仕事5倍塾
35,000人を指導した東大卒・元日本IBM社内講師が直伝
MENU
わかやまさんの投稿
(投稿ID: 3984)
小川慶一さんのコメント
(コメントID: 5535)
たった1ヶ月で人生が劇的に変わりました
佐藤信さん
役員クラスの方から高い評価を受けるようになりました。
佐賀県 - 岩本徹さん
今までまったく知らなかったショートカットキーを使いまくっています。
東京都 - 鷹觜慶さん
年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。
東京都 - 宗内隆明さん
受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。
東京都 - 佐伯とも子さん
ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした
東京都 - 飯田倫子さん
2024年05月01日 14:04
2024年04月30日 17:13
2024年04月27日 15:36
2024年04月25日 07:00
2024年04月23日 21:36
2024年05月01日 18:39
2024年05月01日 18:17
2024年05月01日 17:47
2024年05月01日 15:18
2024年05月01日 15:01
2022年02月24日 10:59
2019年12月23日 05:57
2019年09月20日 12:29
表示できる投稿はありません。
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
2022年02月02日 00:00
2022年02月02日 03:00
2022年02月02日 06:00
2022年02月02日 09:00
2022年02月02日 12:00
2024年02月15日 18:30
2024年02月09日 17:05
2024年01月19日 13:00
2023年12月31日 17:00
2023年12月21日 14:00
2024年05月03日 11:20
2024年05月02日 10:38
2024年05月02日 05:00
2024年05月01日 18:30
2024年04月27日 23:02
わかやまさんの投稿
(投稿ID: 3984)
いつもありがとうございます。
特に深く考えたわけではなかったのですが、以下のマクロができました。
Sub kotae1()
Columns("A:F").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2:E231") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B231") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:F231")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'ここから自装したマクロ
Dim moto
Dim saki
Dim syoukei
saki = 3
For moto = 2 To 231
syoukei = syoukei + Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("F" & moto).Value
If Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("B" & moto).Value <> Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("B" & moto + 1).Value Then
Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("H" & saki).Value = Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("E" & moto).Value
Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("I" & saki).Value = Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("B" & moto).Value
Workbooks("コピーpivot_type1.xlsm").Worksheets("Sheet1").Range("J" & saki).Value = syoukei
saki = saki + 1
syoukei = 0
End If
Next
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A231") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:F231")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
はじめとおわりの操作がないので、すごくシンプルだと思います。
これでもよいでしょうか?
小川慶一さんのコメント
(コメントID: 5535)
コメント投稿ありがとうございます。
なるほど、よさそうですね。