エクセル（EXCEL)VBAã§è¡Œè‡ªå‹•åˆ†å‰²
åŒã˜BOOK内ã«åˆ¥ã‚·ãƒ¼ãƒˆä½œæˆã®ä¾‹ Sub test01() Dim ws As Worksheet, ts As Worksheet Dim x As Long, y As Long, i As Long, z As Long Set ts = ActiveSheet x = ts.UsedRange.Rows.Count y = Int(x / 1000) + IIf(x Mod 1000 > 0, 1, 0) z = ts.UsedRange.Rows(1).Row For i = 1 To y Set ws = Sheets.Add ws.Name = z & "～" & z + 999 ts.Rows(z & ":" & z + 999).Copy ws.Range("A1") z = z + 1000 Next i End Sub 別BOOK作æˆã®ä¾‹ Sub test02() D
本をã‚ãã‚‹ã ã‘ã§ç°¡å˜ã«éžç ´å£Šè‡ªç‚ŠãŒã§ãる「NDscanner無料版ã€ã‚’使ã£ã¦ã¿ãŸ
本ã®ãƒšãƒ¼ã‚¸ã‚’切æ–ã—ãŸã‚Šè£æ–ã—ãŸã‚Šã›ãšã«PDFã‚„JPEGãªã©ã®ãƒ‡ã‚¸ã‚¿ãƒ«ãƒ‡ãƒ¼ã‚¿ã«å¤‰æ›ã—ã€PCやスマートフォンãªã©ã‹ã‚‰æœ¬ã‚’èªã‚るよã†ã«ã™ã‚‹ã“ã¨ã‚’「éžç ´å£Šè‡ªç‚Šã€ã¨è¨€ã„ã¾ã™ã€‚ãã‚“ãªéžç ´å£Šè‡ªç‚ŠãŒiPhoneã‚„iPadã®ã‚«ãƒ¡ãƒ©ã§ç°¡å˜ã«è¡Œãˆã‚‹ã‚ˆã†ã«ãªã‚‹ã‚¢ãƒ—リãŒã€ŒNDscanner無料版ã€ã§ã™ã€‚ iTunes ã® App Store ã§é…ä¿¡ä¸ã® iPhoneã€iPod touchã€iPad 用 NDscanner無料版 https://itunes.apple.com/jp/app/ndscanner-wu-liao-ban/id916456481 「NDscanner無料版ã€ã¯ã€ãã®åã®ã”ã¨ãç„¡æ–™ã§App Storeã‹ã‚‰ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã§ãã¾ã™ã€‚ インストールãŒå®Œäº†ã—ãŸã‚‰ã€Œé–‹ãã€ã‚’タップ。 「OKã€ã‚’タップ。 NDscanner無料版ã®èµ·å‹•ç”»é¢ã¯ã“ã‚“ãªæ„Ÿã˜ã§ã€ç”»é¢ä¸å¤®ã«ã¯èƒŒé¢ã‚«ãƒ¡ãƒ©ã®æ˜ åƒãŒç¸¦ã«ã‚°ãƒƒã¨ç¸®ã‚られãŸ
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}