anonymous No title
No License VBA
2021年03月21日
Copy Clone
Sub 別シートセルの値を習得してシート繰り返しコピー()

'シートセレクト
Sheets("データベース").Select

Dim i 'ループカウンタ
Dim s 'セル値



'A4セルをアクティブ
Range("A4").Select

'ループカウンタ初期化
i = 0

'空セルまでループ
Do
  'セルの値を取得
  s = ActiveCell.Offset(i, 0).Value
  
  
  'セルのr隊が未設定の場合
  If s = "" Then
  
   'ループ抜ける
   Exit Do
 End If
'ループカウンタ加算
i = i + 1

MsgBox i '習得値確認

'シートひな形1をコピー
Worksheets("ひな形1").Copy after:=ActiveSheet

Range("AK25").Value = i

'シートひな形2コピー
ActiveSheet.Name = ActiveSheet.Range("V4")
Worksheets("ひな形2").Copy after:=ActiveSheet

ActiveSheet.Name = ActiveSheet.Range("I3") & "桝設置"

Loop

End Sub


Function RefLeftSheet(objCell As Range) As Variant
'左隣のシートのセル参照マクロ
  
  Application.Volatile
  
  RefLeftSheet = objCell.Parent.Previous.Range(objCell.Address).Value

End Function
Sub 別シートセルの値を習得してシート繰り返しコピー()

'シートセレクト
Sheets("データベース").Select

Dim i 'ループカウンタ
Dim s 'セル値



'A4セルをアクティブ
Range("A4").Select

'ループカウンタ初期化
i = 0

'空セルまでループ
Do
  'セルの値を取得
  s = ActiveCell.Offset(i, 0).Value
  
  
  'セルのr隊が未設定の場合
  If s = "" Then
  
   'ループ抜ける
   Exit Do
 End If
'ループカウンタ加算
i = i + 1

MsgBox i '習得値確認

'シートひな形1をコピー
Worksheets("ひな形1").Copy after:=ActiveSheet

Range("AK25").Value = i

'シートひな形2コピー
ActiveSheet.Name = ActiveSheet.Range("V4")
Worksheets("ひな形2").Copy after:=ActiveSheet

ActiveSheet.Name = ActiveSheet.Range("I3") & "桝設置"

Loop

End Sub


Function RefLeftSheet(objCell As Range) As Variant
'左隣のシートのセル参照マクロ
  
  Application.Volatile
  
  RefLeftSheet = objCell.Parent.Previous.Range(objCell.Address).Value

End Function
anonymous
Anonymous
2021年04月27日
Medicament information for patients. Brand names. <a href="https://lyricainfo.top">pregabalin prescription</a> in USA Some news about pills. Read information now.
anonymous
Anonymous
2021年04月29日
Medication information sheet. Short-Term Effects. <a href="https://lyrica24x7.top">buying generic pregabalin without rx</a> in the USA Best trends of medicines. Get information here.
anonymous
Anonymous
2021年04月30日
how to take cialis <a href="https://mycialistabs.com/">buy cialis online</a> cialis blood pressure
anonymous
Anonymous
2021年04月30日
eli lilly cialis coupon <a href="https://mycialistabs.com/">tadalafil vs cialis</a> purchase cialis
anonymous
Anonymous
2021年05月01日
cialis vs. viagra <a href="https://toptadalafiltabs.com/">cialis dosages</a> how much is cialis per pill
anonymous
Anonymous
2021年05月02日
cialis for sale online in canada <a href="https://toptadalafiltabs.com/">viagra vs cialis hardness</a> canadian online pharmacy cialis
anonymous
Anonymous
2021年05月04日
how to write a conclusion for argumentative essay <a href="https://topessaywriterfas.com/">writing college essays</a> how to write an anthropology essay
anonymous
Anonymous
2021年05月04日
write a college essay <a href="https://topessaywriterfas.com/">pay for college essay</a> how to write a good ap essay
anonymous
Anonymous
2021年05月05日
essay wrietr service <a href="http://writemyessayslfd.com/">www.writemyessayslfd.com</a> essay writing service order research
anonymous
Anonymous
2021年05月06日
essay topics on community service <a href="http://writemyessayslfd.com/">writing a narrative essay</a> essay service to god
anonymous
Anonymous
2021年05月06日
viagra triangle <a href="https://mrviagrashop.com">sildenafil 100</a> sildenafil troche
anonymous
Anonymous
2021年05月07日
alternative to viagra <a href="https://mrviagrashop.com">sildenafil cost</a> sildenafil costs
anonymous
Anonymous
2021年05月07日
200 mg sildenafil citrate <a href="https://mysildenafilkr.com/">taking viagra for fun</a> generic viagra 100mg
anonymous
Anonymous
2021年05月07日
viagra pills <a href="https://mysildenafilkr.com/">viagra online</a> viagra 100mg
anonymous
Anonymous
2021年05月11日
cialis review <a href="http://tadalafilled.com/">tadalafil cost walmart</a> cialis patent expiration
anonymous
Anonymous
2021年05月11日
visual resume <a href="http://coverletterforresumetop.com/">build your resume</a> recruiter resume
anonymous
Anonymous
2021年05月11日
effects of cialis <a href="http://tadalafilled.com/">cialis patent expiration date</a> cialis cheap
anonymous
Anonymous
2021年05月11日
professional skills for resume <a href="http://coverletterforresumetop.com/">resume cover letter service</a> volunteer resume
anonymous
Anonymous
2021年05月12日
stay at home mom resume <a href="https://writingacoverletteronline.com/">cover letter for job</a> military resume
anonymous
Anonymous
2021年05月12日
career change cover letter <a href="https://writingacoverletteronline.com/">www.writingacoverletteronline.com</a> creative cover letter
anonymous
Anonymous
2021年05月13日
viagra for women <a href="https://edviagramaster.net/">sildenafil 100mg</a> viagra boys
anonymous
Anonymous
2021年05月13日
viagra soft <a href="https://edviagramaster.net/">generic viagra for sale</a> viagra alternative
anonymous
Anonymous
2021年05月15日
viagra government funded <a href="https://sildenafilviagratop.com">viagra over the counter walmart</a> generic viagra india
anonymous
Anonymous
2021年05月15日
viagra without a doctor prescription canada <a href="https://sildenafilviagratop.com">cost of viagra</a> pfizer viagra
anonymous
Anonymous
2021年05月15日
how to buy cialis <a href="https://cialisortadalafil.com/">is there a generic for cialis</a> cialis picture
anonymous
Anonymous
2021年05月15日
effects of cialis <a href="https://cialisortadalafil.com/">cialis patent expiration date</a> cialis cheap
anonymous
Anonymous
2021年05月16日
when to take cialis <a href="https://topcialistabs.com/">tadalafil 5 mg</a> does medicare cover cialis
anonymous
Anonymous
2021年05月16日
cialis viagra online <a href="https://topcialistabs.com/">canadian pharmacy cialis 20mg</a> price of cialis
anonymous
Anonymous
2021年05月18日
Meds prescribing information. Drug Class. <a href="https://lisinopril17.top">where to buy lisinopril</a> in the USA Everything news about drug. Read information here.
anonymous
Anonymous
2021年05月18日
Medicines prescribing information. Generic Name. <a href="https://lyrica2020.top">how can i get lyrica</a> in US Actual trends of medication. Read here.
anonymous
Anonymous
2021年05月21日
<a href="https://5bz.ru/">база предприятий казахстана</a>
anonymous
Anonymous
2021年05月21日
<a href="https://5bz.ru/">база предприятий россии 2021</a>