konkensyu @ ウィキ

sample/karimoto-tyosa

2011-08-03T09:55:41+09:00

Option Explicit Sub 仮元帳チェックマクロ() ' 'エラーの際は「エラー処理」へ On Error GoTo エラー処理 '変数定義 Dim CYALL As Variant, 行数 As Variant, 列数 As Variant, データ名 As Variant '変数の値代入 CYALL = Worksheets(2).Name 行数 = Worksheets(1).Range("A1").End(xlDown).Row 列数 = Worksheets(Worksheets.Count).Range("B26") データ名 = ActiveWorkbook.Name '元帳操作 With Worksheets(1) .Range("O1").Value = "ST_部門ｺｰﾄﾞ" .Range("P1").Value = "ST_部門名称" .Range("Q1").Value = "判定" .Range("O2").Formula = "=VLOOKUP($K2,'" & CYALL & "'!$A$11:$AG$2000," & 列数 - 1 & ",0)" .Range("P2").Formula = "=VLOOKUP($K2,'" & CYALL & "'!$A$11:$AG$2000," & 列数 & ",0)" .Range("Q2").Formula = "=IF(OR(K2=0,K2=810002,K2=810064）,""OK"",IF(I2 = O2,""OK"",""NG""))" .Range("O2:Q2").Copy .Paste Range(.Range("O2"), .Cells(行数, 15)) 'OK行以外をオートフィル .Range("A1").AutoFilter Field:=17, Criteria1:="<>" & "OK" End With Exit Sub 'エラー発生時の処理

sample/sheet-3

2011-08-02T12:09:21+09:00

Sub ★シート並べ替え() Dim i As Integer, sRange As Range, sName As String Worksheets.Add(Before:=Worksheets(1)).Name = "temp" For i = 4 To Worksheets.Count - 1 Cells(i, 1) = Worksheets(i).Name Next Set sRange = Cells(4, 1).CurrentRegion With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending .SetRange sRange .Apply End With For i = 1 To sRange.Row.Count sName = Worksheets("temp").Cells(i + 3, 1) Worksheets(sName).Move after:=ActiveSheet Next Application.DisplayAlerts = False Worksheets("temp").DELETE Application.DisplayAlerts = True End Sub

sample/yojitsu

2011-08-02T12:08:02+09:00

Sub 予実FBファイル作成マクロ() 'エラー処理用 On Error GoTo errHandler '名称定義 Dim 作業フォルダ名 As String Dim マクロ名 As String Dim 予算ファイル名 As String Dim 予算シート名 As String Dim 保存名 As String Dim 対象シート As Variant '条件取得作業フォルダ名 = ThisWorkbook.Path '作業するフォルダのパスを取得マクロ名 = ActiveWorkbook.Name '起動マクロのファイル名取得予算ファイル名 = Range("C7").Value '予算反映するシート名取得 '対象カテゴリの指定 Set 対象シート = Application. _ InputBox(prompt:="予実FBを作成したいシート名を指定", Type:=8) '対象範囲指定対象シート.Select '対象のループ For Each 対象シート In Selection Workbooks(マクロ名).Worksheets(Worksheets.Count).Activate Range("C9").Value = 対象シート予算シート名 = Range("C9").Value '予算反映するシート名取得保存名 = 作業フォルダ名 & "\" & Range("C11").Value '保存名取得 '予算シートのコピー Workbooks(予算ファイル名).Activate Worksheets(予算シート名).Activate ActiveSheet.Range("F6:Q110").Copy '

sample/sheet-2

2011-08-02T12:07:12+09:00

Sub ★選択範囲で印刷設定() With ActiveSheet.PageSetup .PrintArea = Selection.Address '選択範囲が印刷範囲 .CenterHeader = "&16&A" '真ん中のヘッダー：16ポイントのシート名 .RightHeader = "&12&D" '右のヘッダー：12ポイントのToday .CenterFooter = "&P/&N" '真ん中のフッター：11ポイントのページ連番 .LeftMargin = Application.InchesToPoints(0.31496062992126) .RightMargin = Application.InchesToPoints(0.31496062992126) .TopMargin = Application.InchesToPoints(0.551181102362205) .BottomMargin = Application.InchesToPoints(0.354330708661417) .HeaderMargin = Application.InchesToPoints(0.196850393700787) .FooterMargin = Application.InchesToPoints(0.118110236220472) .CenterHorizontally = True '左右中央 .Orientation = xlPortrait '印刷方向縦書き .Zoom = False '拡大/縮小の設定オフ .FitToPagesWide = 1 'ページ数を横１枚に .FitToPagesTall = 1 'ページ数を縦１枚に End With ActiveWin

sample/sheet-1

2011-08-02T11:36:18+09:00

Sub ★シートを新規ファイルにコピー() ActiveSheet.Copy Application.Dialogs(xlDialogSaveAs).Show arg1:=Range("D2").Value End Sub Sub ★全シートのカーソルをA1セルに移動() Dim 対象シート As Variant '定義：対象シート（Variant型） Dim i As Integer '定義：i （Integer型） i = 1 For Each 対象シート In Worksheets '全てのシートで動作 If Sheets(対象シート.Name).Visible = True Then '表示されているワークシートなら Sheets(対象シート.Name).Select Range("A1").Select 'カーソルをA1セルに移動 End If Next Do Until Sheets(i).Visible = True '表示されているシートになるまでLoopする i = i + 1 Loop Sheets(i).Select 'i番目のシートに移動 End Sub Sub ★列幅を合わせる() ActiveCell.Select Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub Sub ★変更を保存して閉じる() 'ショートカット割当：Ctrl＋Shift＋S ActiveWorkbook.Close True End Sub Sub ★一定範囲コピペ値貼付後範囲外データ消去()

sample/btob-1

2011-08-02T10:57:10+09:00

Option Explicit Sub 数値代入(カテゴリ As Variant, フラグ As Variant, 範囲 As Variant, 対象列 As Integer) Dim i As Integer, j As Integer, k As Integer, sRange As Range, sName As String '該当月に関数代入（PJPLをSUMIFする） Workbooks(カテゴリ).Activate If フラグ = 1 Then j = 7 Else j = 3 End If '「○」から「●」までのシートで関数代入～値化～合計関数戻し For i = j To Worksheets.Count - 1 Worksheets(i).Activate With Worksheets(i) '※$ZZ$8は十分値により修正の可能性有 .Cells(4, 対象列).Formula = "=SUMIF(" & 範囲 & "!$C$6:$ZZ$6,$B$2," & 範囲 & "!$C8:$ZZ8)" .Cells(4, 対象列).Copy .Range(Cells(4, 対象列), Cells(108, 対象列)).PasteSpecial Paste:=xlFormulas .Range(Cells(4, 対象列), Cells(108, 対象列)).Copy .Range(Cells(4, 対象列), Cells(108, 対象列)).PasteSpecial Paste:=xlValues End With For k = 1 To 105 Select Case k Case 12, 16, 29, 49, 53, 54, 55, 62, 67, 80, 81, 86, 89, 92, 93, 96, 100, 101,

プラグイン/人気商品一覧

2011-07-14T09:41:41+09:00

プラグイン/コメント

2011-07-14T09:41:41+09:00

* コメントプラグイン @wikiのwikiモードでは #comment() と入力することでコメントフォームを簡単に作成することができます。詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_60_ja.html ----- たとえば、#comment() と入力すると以下のように表示されます。 #comment

プラグイン/関連ブログ

2011-07-14T09:41:41+09:00

* 関連ブログ @wikiのwikiモードでは #bf(興味のある単語) と入力することで、あるキーワードに関連するブログ一覧を表示することができます詳しくはこちらをご覧ください。＝＞http://atwiki.jp/guide/17_161_ja.html ----- たとえば、#bf(ゲーム)と入力すると以下のように表示されます。 #bf(ゲーム)

プラグイン

2011-07-14T09:41:41+09:00

@wikiにはいくつかの便利なプラグインがあります。 ----- #ls ----- これ以外のプラグインについては@wikiガイドをご覧ください =>http://atwiki.jp/guide/