初のご依頼を完了しました!
Pythonでの副業スタートについてメンタリングさせていただきました!
私にとってMENTAで初のご依頼でしたので、キャンペーン価格でお受けしました。
自分としてはすでに実績のあるランサーズでこれまで通り普通に副業しているほうが断然お金になりますが、それより一歩進んでみたくなったというのがメンタリングのモチベーションですね。
というのも、せっかく自分の時間を使うなら自分自身の幅を広げるようにしたいですよね。たとえばMENTAでどなたかにアドバイスをして、もしその方も成功するのを見届けることができれば、自らの戦略の再現性や受注にあたっての黄金律のようなものを、より純度高く見出していけるのではないかと考えたワケです。
もしさらに質のよいノウハウをメンタリングを通じて得ることができれば、そのノウハウをさらに新しいメンティーの方へお伝えできるので、とてもよい循環になります。
気になった方がいればぜひご依頼ください!
はじめまして!
タイトルがKey(1)の列で、オートフィルタでデータを手動で絞り込んだ後、
タイトルがKey(1)の列の可視セルの値が変わったら、可視セルにのみ改ページを挿入したいのですが、私のコードでは可視セル以外のセルにも改ページが挿入されてしまいます( ノД`)シクシク…
助けて下さい。相談料いくらかかりますでしょうか?
Sub 改ページ挿入()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
Dim rng As Range
For Each rng In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
rng.Select
Option Explicit
Sub 改ページ挿入()
'book内全てのシートで行う
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
'フィルターで抽出後のデータ(可視セル)のみに改ページを挿入したい
Dim rng As Range
For Each rng In Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
rng.Select
'タイトルがKey(1)の列の値が変わったら、改ページを挿入
Dim 改列 As Long
Dim drno As Variant
Dim i As Long
i = 3
Range("1:1").Find(what:="Key(1)", lookat:=xlPart).Select
改列 = Selection.Column
'i列の値が空白になるまでループ
Do Until Len(Cells(i, 改列).Value) = 0
If drno <> Cells(i, 改列).Value Then
ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
drno = Cells(i, 改列).Value
End If
i = i + 1
Loop
Next
Next Ws
End Sub
どうぞよろしくお願いいたします!