aiLiz Pink

aiLiz Pink

ホームピグアメブロ

芸能人ブログ人気ブログ

前ページ
次ページ

01May
- STAY HOME
  緊急事態が宣言され、延長されるという。設計、建築関係の仕事では、今まで、社会に貢献してきたという自負があったり、施主との契約や、経営への影響があったりして、通常業務を続けていることが多い。それが責任ある、社会人の正しい行動だと。でも、今日まで、患者や医療関係者を勇気づける内外観の実現、動線がわかりやすく、機能性に優れる計画、安心安全性のある構造計画、快適な空調計画や、クリーンルーム等の設備、BCPの要となる給排水、電気計画等、多方面で、コロナの最前線で戦っている医療に貢献しているではないか。今、その医療従事者を勇気づけることは、社会貢献、契約、経営等に優先して、STAY HOME！
01May
- 令和
  令和時代に構造設計者として思うこと多くを望まないが、爆弾や砲弾に対する衝撃設計を日常的に行うような世の中にならないこと。それだけは、切に願う。
30Apr
- 平成
  この時代に、建築構造設計で、一番重要な出来事は、阪神淡路大震災だった。この災害をもたらした、兵庫県南部地震により、日本の建物は、大きく崩壊しないという、神話が崩れてしまった。被災した建物の被害状況を考えると、福井地震や、十勝沖地震の被害を教訓に、それが予測できたハズなのに。人の性質で、悪いことは意識して考えないようにする。ストレスを溜めない意味ではいい性質であるが、安心・安全を考えれば、直視すべきことは多々あったと思われる。次の時代は、勇気を持って悪い夢をみることも必要かもしれない。
03Mar
- 日本海溝沿いの地震
  2月26日に地震調査推進本部より、日本海溝沿いの地震の評価が公表され、仙台市街地では、確率が、今後30年間で90％と公表された。この数値、平成12年に「宮城県沖地震の長期評価」が公表された際の「確率90％以上」と、くしくも同じ確率となっている。宮城県沖地震は、東北地方太平洋沖地震と形を変えて、平成23年に発生し、90％は、近いうちに現実になり得ることを示している。「宮城県沖地震の長期評価」が公表され、後に99％と公表されても、当時は、「今にも、明日にも、起こる」という意識は不足していたり、起こると思っても、それがもたらす影響は、実感し難い状況であった。実際に、東日本大震災を経験しても、やはり、明日にも大地震が起こるという意識は、持ちにくく、必ず、2,3日後に起こるというものでない限り、万全の備えは難しい。ただ、大地震が起こった際の、自分の行動をシミュレーションすることは、最低限、必要だと思われる。
18Oct
- 厳しさが故の緩み
  前回に引き続き改ざんの話。世界一の物作りの裏で、改ざんの発覚が続いている。性能のばらつきの振れ幅が少し大きいということで、建物の性能に対しての影響は小さいように思えるが、日本の物作りの信頼への影響は大きい。安心、安全で生活できるのは、厳しい法令、基準、そして治安のおかげで、我々日本人は、その恩恵に浴している。昨今の状況は、それが故の、緩みであるように思えてならない。多少、多少誤魔化しても、間違えても、何ら影響しない。厳しさに対する、困った副作用であるが、命取りになる副作用もあるので、もっと引き締めていきたいと思う。
16Oct
- 大らかな社会
  免震構造や、制振構造に用いられるダンパーで、またしても偽装事件が発覚した。国土交通省の見解を聞く限り、想定以上の大きな変形が生じた際に問題となる偽装のようで、直ちに建築物の安全性が根底から覆るものではない。とはいえ、安心、安全を目的に、信頼して使用するものに、偽装は許されるものではない。しかし、このような偽装を生む背景を考えると、(開発)現場へのプレッシャーがあると推測される。工程、コストに対する現場への圧力は大きく、時には担当者に、重くのしかかる。追い詰められた開発チームが、連鎖する偽装を生んでいるとしたら、今の社会、もっと大らかにならないものかとも思う。もちろん、大らかにするのは、偽装についてではない。今回は件数が大きく、出来心の域を超えていると思われるが・・・。
25Sep
- 0％でも雨は雨
  降水確率が0％でも、雨が降れば、降ったという事実は変えられない。大地震や噴火は、長い歴史の中では起こることは確かなのに、その確率で線引きをしたり、その可能性がないことを証明したり、その可能性があることを証明するのは誰なのか。哲学的な話で、誰も答えを出せないと思うが、立場の強いものが可能性がないことを証明できないのならば、起こってしまった場合の対応も用意すべきだと思う。具体的に。原発裁判についての、あくまで、個人的な感想です。今は遠くからの意見でも、同じ日本、同じ地球という意味では、内野も外野もスタンドもなく、当事者、ニュースで知るだけの人、気付かない人の区別もないと思う。
15Sep
- 地盤について
  北海道胆振東部地震でも注目されている地盤について、造成地の場合は、切り土、盛り土の別は重要となり、盛り土の場合、地盤が弱く、大地震で大きく沈下する可能性や、液状化の可能性がある。平地で、河川の跡地の場合も、大地震で、地盤が沈下する可能性がある。切り盛りの情報は、造成等の履歴を公開している自治体がある。自治体のホームページでわからない場合は、「地盤サポートマップ」等で、「地盤の揺れやすさ」、「過去の航空写真」、「治水地形分類図」、「旧版地形図」、「液状化の可能性」等が参考となる。過去の航空写真、旧地形図等で、谷筋であることが確認されれば、造成地で、地盤が弱い可能性が高い。「地理院地図(電子国土Web)」でも、過去の航空写真や、「他機関の情報」として、「治水地形分類図」、「旧版地形図」、「地質調査結果」等が閲覧できる。また、家庭や職場、通勤、通学経路等については、自治体がハザードマップを公開していれば、液状化、浸水、土砂崩れ、地震動の予測、避難所等を確認しておいた方がいい。
11Sep
- 応急危険度判定
  大規模な地震後に、赤、黄、緑の紙(ステッカー)が貼られる応急危険度判定は、建物の被害の程度、損傷の度合いを表しているものと思われがちだが、別なものと考えた方がいい。応急危険度判定は、その名の通り、今、その建物内や、周囲にいて、「危険であるかどうか」の判定である。そのため、今後、継続して対象建物を使用できる可能性を必ずしも表していない。もちろん、構造体が損傷している可能性があると、危険と判断されるため、似通った評価となる。一方、構造体が損傷していなくても、それに取り付く屋根瓦、飾り壁、看板、窓等に落下や転倒の可能性があれば、危ないのであるから、危険と判断される。しかも、その名の通り、簡単な計測もあるが、短い期間に沢山の建物を判定する必要があるため、応急的で、見た目の判断で行う。そこで、【危険】の赤い紙が貼られていても、今後、補修して使用できる可能性があるし、【調査済】の緑の紙が貼られていても、内外装に隠れて見えないが、構造体として大事なところが損傷して、大規模な修繕や、建て替えが必要となる場合があり得る。また、応急危険度判定は、罹災証明とは異なるもので、建物の被害で区別される義援金や、保険金と連動せず、応急危険度判定とは別の、被害判定調査等が必要になる。
06Sep
- いつかは
  仕事柄、たくさんの地震被害を見て、地域柄、大震災も経験してきた。今は、つらくても、昔話になる時が来る。そのときに、これ以上、失うものがありませんように・・・電気がないと不便だが、くやしいことに、星空だけは美しい。
21Aug
- 印刷、メッセージボックス、InputBox、行列固定の例
  '印刷の例 Rows("101").PageBreak = xlManual With ActiveSheet.PageSetup .PrintArea = "A1:H200" .Orientation = xlPortrait 'または、xlLandscapeなど .Zoom = 58 .CenterHorizontally = True End With'メッセージボックスの例 jyn = MsgBox("番号またはJobコードが変更されました" & vbCrLf _ & "上書きしますか中止しますか" & vbCrLf _ & "はい（上書き）いいえ（中止）" _ , vbExclamation + vbYesNo + vbDefaultButton2) If jyn = vbYes Then jwrt = 1 End If'InputBoxに入力する例 Dim nam As Variant Dim Ns Integer Dim n As Integer Dim jer As Integer nam = InputBox("番号を入力してください" _ & vbCrLf & " 空欄で終了") If nam = "" Then jer = 1 ElseIf IsNumeric(nam) = True Then If Val(nam) > 0 And Val(nam) <= n ThenNs = Val(nam) End If If jer > 0 Then MsgBox "キャンセル" ElseIf Ns < 1 Then MsgBox "入力値が不正です" jer =2 End If'行列の固定の例 ActiveWindow.FreezePanes = False CelAdr = Cells(3, 5).Address '4列めまでは常時表示 Range(CelAdr).Activate ActiveWindow.FreezePanes = True
20Aug
- ログファイルにcsv形式で記録する
  ログファイルにcsv形式で記録する例 Dim LogFl As String 'ログファイル名 Dim dt As Double Dim Nx As Integer '行の列数 Dim jer As Integer Dim i As Integer Dim j As Long j = 10 '編集行が10行目という例 Nx = 5 '1行に5列という例 LogFl = ThisWorkbook.Path 'ログファイル名の作成 If Mid(LogFl, Len(LogFl), 1) <> "\" Then LogFl = LogFl & "\" LogFl = LogFl & "LogFile.log" On Error Resume Next Err.Clear Open LogFl For Append As #1 Close #1 If Err.Number > 0 Then jer = 1 'ログファイルが開けない場合は記録しない Else jer = 0 Open LogFl For Append As #1 '追記する End If On Error GoTo 0'編集前 If jer = 0 Then Write #1, "Before"; '編集前の記録という印 dt = Date & " " & Time Write #1, j; For i = 1 To Nx Write #1, Cells(i, j); Next i Cells(1, j) = 1.0 '代入の例 Cells(2, j) = 2.0 Cells(3, j) = 3.0 Cells(4, j) = 4.0 Cells(5, j) = 1.0'編集後に Write #1, "After"; '編集後の記録という印 For i = 1 To Nx Write #1, Cells(i, j); Next i Close #1 End If
19Aug
- 計算結果用シートの作成
  例えば、計算結果を記録するためのシート(AnsName)を作成する。 Dim ActName As String '実行時点でアクティブなシート名 Dim AnsName As String '計算結果を記録するシート名 Dim Sht As Worksheet Dim iSht As Integer Dim i As Integer ActName = ActiveSheet.NAME '現アクティブシート名を記録 AnsName = "結果_" & ActName isht = 0 i = 0 For Each Sht In Sheets i = i + 1 If Sht.NAME = AnsName Then isht = i Exit For End If Next If isht > 0 Then Worksheets(isht).Activate 'シートAnsNameをアクティブ Else 'シートを新規作成，AnsNameと改名 Worksheets.Add After:=Worksheets(ActName) ActiveSheet.NAME = AnsName End If 'ここでAnsNameに結果を書き込み、例えば、 Cells( 1, 1 ) = "結果例" Cells( 2, 2 ) = "A=" Cells( 2, 3 ) = 1 + 2 Worksheets(ActName).Activate '結果書き込み後、現シートをアクティブ
18Aug
- Excelファイルが開いているかを確認する
  あるEXCEL BOOK(ファイル名FilNom)が開いているかを、VBA上で確認する例 Dim AllBok As Workbook Dim FilNom As String '確認するファイル名 Dim jAN As Integer 'jAN > 0 ファイルが開いている Dim j As Integer 'カウンター jAN = 0 j = 0 For Each AllBok In Workbooks j = j + 1 If AllBok.FullName = FilNom Then jAN = j Exit For End If Next
14Mar
- CSVファイルへの保存(Write #)
  Write # を使った書き込みの例。下記の例のように、セルをそのまま書き込む場合は、Variant型として扱われ、""で囲まれて記録される。型に応じた変数、例えば、double型、long型等の変数をWrite #で書き込むと、""で囲まれることはない。型は、VarType(Cells(i, j).Value)で確認することができる。（使用例は、昨日のブログ参照）Sub CsvWrite2() Dim FilDlg As FileDialog Dim SfsObj As Object Dim PasNom As String Dim SavNom As Variant Dim ir As Long Dim MaxRow As Long Dim Mc As Long Dim ic As Long Dim MaxClm As Integer Dim jCncel As Integer Dim jer As Integer Dim i As Long Dim j As Integer MaxRow = ActiveSheet.UsedRange.Rows.Count MaxClm = ActiveSheet.UsedRange.Columns.Count'保存するファイル名を取得する PasNom = ThisWorkbook.Path If Right(PasNom, 1) <> "\" Then PasNom = PasNom & "\" SavNom = PasNom & "test.csv" 'デフォルトファイル名 SavNom = Application.GetSaveAsFilename( _ Title:="保存先の指定", _ InitialFileName:=SavNom, _ FileFilter:="csv形式,*.csv") If SavNom = False Then MsgBox "cancelが押されました" Exit Sub ElseIf Dir(SavNom) <> "" Then If MsgBox("同名のファイルが存在します。上書きしますか？", vbYesNo) = _ vbNo Then Exit Sub End If On Error Resume Next '開けることの確認 Err.Clear Open SavNom For Append As #1 Close #1 If Err.Number > 0 Then MsgBox "ファイルが開けません" jer = 1 Else jer = 0 End If On Error GoTo 0 If jer = 1 Then Exit Sub Open SavNom For Output As #1 For i = 1 To MaxRow Mc = 0 For j = MaxClm To 1 Step -1 If Cells(i, j) <> "" Then Mc = j Exit For End If Next j Select Case Mc Case Is < 1 Write #1, "" Case 1 Write #1, Cells(i, 1) Case Else For j = 1 To Mc - 1 Write #1, Cells(i, j); Next j Write #1, Cells(i, Mc) End Select Next i Close #1End Sub
13Mar
- CSVファイルへの保存(Print #)
  シートをCSVファイルへ保存する例を示す。ファイル名の取得、上書きの確認、ファイルが開けることの確認、書き込みを行っている。Print #で、1行ずつ(Ln)、ファイルに書き込んでいる。1つの文字列と認識できるよう、文字列を判別して""で囲んでいる。Sub CsvWrite() Dim FilDlg As FileDialog Dim SfsObj As Object Dim PasNom As String Dim SavNom As Variant Dim Ln As Variant Dim ir As Long Dim MaxRow As Long Dim Mc As Long Dim ic As Long Dim MaxClm As Integer Dim jCncel As Integer Dim jer As Integer Dim i As Long Dim j As Integer MaxRow = ActiveSheet.UsedRange.Rows.Count MaxClm = ActiveSheet.UsedRange.Columns.Count'保存するファイル名を取得する PasNom = ThisWorkbook.Path If Right(PasNom, 1) <> "\" Then PasNom = PasNom & "\" SavNom = PasNom & "test.csv" 'デフォルトファイル名 SavNom = Application.GetSaveAsFilename( _ Title:="保存先の指定", _ InitialFileName:=SavNom, _ FileFilter:="csv形式,*.csv") If SavNom = False Then MsgBox "cancelが押されました" Exit Sub ElseIf Dir(SavNom) <> "" Then If MsgBox("同名のファイルが存在します。上書きしますか？", vbYesNo) = _ vbNo Then Exit Sub End If On Error Resume Next '開けることの確認 Err.Clear Open SavNom For Append As #1 Close #1 If Err.Number > 0 Then MsgBox "ファイルが開けません" jer = 1 Else jer = 0 End If On Error GoTo 0 If jer = 1 Then Exit Sub Open SavNom For Output As #1 For i = 1 To MaxRow Mc = 0 For j = MaxClm To 1 Step -1 If Cells(i, j) <> "" Then Mc = j Exit For End If Next j Select Case Mc Case Is < 1 Print #1, vbCrLf Case 1 If VarType(Cells(i, 1).Value) = vbString Then Print #1, """" & Replace(Cells(i, 1), vbLf, vbNewLine) & """" Else Print #1, Replace(Cells(i, 1), vbLf, vbNewLine) End If Case Else Ln = "" For j = 1 To Mc - 1 If VarType(Cells(i, j).Value) = vbString Then Ln = Ln & """" & Replace(Cells(i, j), vbLf, vbNewLine) & """," Else Ln = Ln & Replace(Cells(i, j), vbLf, vbNewLine) & "," End If Next j If VarType(Cells(i, Mc).Value) = vbString Then Ln = Ln & """" & Replace(Cells(i, Mc), vbLf, vbNewLine) & """" Else Ln = Ln & Replace(Cells(i, Mc), vbLf, vbNewLine) End If Print #1, Ln End Select Next i Close #1End Sub
11Mar
- CSVファイルの読み込み(一時ファイルを使用する方法)
  前回の例は、1行の文字列をSplit関数によりコンマで区切る簡単なものであった。このブログで対象としている構造解析プログラムの多くが掃き出すCSVファイルでは、不都合が生じることは少なく、処理スピードを考慮すると、ベターな方法である。しかし、""で囲まれた文字列の両側に"が残ったり、文字列中のコンマで、データが区切られてしまったり、多少複雑なデータでは、不都合が生じる。そこで、文字列に対応するため、今回は、行単位で読むLine Input #ではなく、Input #を使用している。Input #は、Write #で記録したデータを読むもので、文字列は""で囲まれた、コンマ区切りになっている。下記の例では、まず、ダイアログボックスを開き、ファイル名を取得した後、1行ずつ読み、各行の最後に"Eonodon"という文字列を付加し、一時ファイルに保存している。("Eonodon"はデータの中に存在しないと思われる任意の文字列)そして、再度一時ファイルをオープンし、全行を読み、最大列数を確認後、1バイトめに戻し、1行ずつ、CsvAry()というバリアント型配列に読み込んでいる。なお、一行ずつセルに記録していると、処理に時間が掛かるため、今回は、最後に、配列を一気にシートに書き込んでいる。完璧とはいえないが、バイト単位で読むよりも簡単で、不都合も少ない。Sub CsvRead2()'CSVファイル名を取得する Dim FilDlg As FileDialog Dim SfsObj As Object Dim PasNom As String Dim CsvNom As String Dim WrkNom As String Dim Ln As Variant Dim CsvAry() As Variant Dim ir As Long Dim Nr As Long Dim ic As Long Dim Nc As Integer Dim jCncel As Integer Dim i As Integer PasNom = ThisWorkbook.Path If Right(PasNom, 1) <> "\" Then PasNom = PasNom & "\" CsvNom = PasNom & "test.csv" jCncel = 0 Set FilDlg = Application.FileDialog(msoFileDialogOpen) With FilDlg With .Filters .Clear .Add "csv(CSVファイル)", "*.csv", 1 End With .InitialFileName = CsvNom If .Show = True Then CsvNom = .SelectedItems(1) Else MsgBox "cancelが選択されたため中止します" jCncel = 1 End If End With Set FilDlg = Nothing If jCncel <> 1 Then'セルのクリアー With ActiveSheet.UsedRange Range(Cells(1, 1), Cells(.Rows.Count, _ .Columns.Count)).Clear End With'一時ファイルを生成 Set SfsObj = CreateObject("Scripting.FileSystemObject") WrkNom = SfsObj.GetTempName Set SfsObj = Nothing'準備行末に"Eonodon"付加、行数をカウント(空読み) Open CsvNom For Input As #1 Open WrkNom For Output As #2 ir = 0 Do Until EOF(1) ir = ir + 1 Line Input #1, Ln Ln = Ln & ",""Eonodon""" Print #2, Ln Loop Close #1 Close #2 Nr = ir Open WrkNom For Input As #1'最大列数を確認 For ir = 1 To Nr ic = 0 Do Until Ln = "Eonodon" Input #1, Ln If Ln = "Eonodon" Then If ic > Nc Then Nc = ic Ln = "" Exit Do Else ic = ic + 1 End If Loop Next ir'CSVファイルの読み込み ReDim CsvAry(1 To Nr, 1 To Nc) Seek #1, 1 For ir = 1 To Nr ic = 0 Do Until Ln = "Eonodon" Input #1, Ln If Ln = "Eonodon" Then Ln = "" Exit Do Else ic = ic + 1 CsvAry(ir, ic) = Ln End If Loop Next ir Close #1 Kill WrkNom Range(Cells(1 , 1),Cells(Nr, Nc)) = CsvAry End IfEnd Sub
09Mar
- CSVファイルの読み込み
  CSVファイルを読む場合の例を示す。下記の例は、ダイアログボックスを開き、ファイル名を取得した後、行数をカウント、UBoundで配列の大きさ(最大列数)を確認した後、1バイトめに戻し、再度、1行ずつ、CsvAry()というバリアント型配列に読み込むとともに、セルに書き込んでいる。なお、下記の例は、最も単純な例で、Splitという関数により、1行の文字列をカンマで区切っている。そのため、""で囲んだ文字列の中で、カンマが使用されていても、文字列が区切られてしまう。Sub CsvRead()'CSVファイル名を取得する Dim FilDlg As FileDialog Dim PasNom As String Dim CsvNom As String Dim Ln As String Dim CsvAry() As Variant Dim ir As Long Dim Nr As Long Dim Nc As Integer Dim jCncel As Integer Dim i As Integer PasNom = ThisWorkbook.Path If Right(PasNom, 1) <> "\" Then PasNom = PasNom & "\" CsvNom = PasNom & "test.csv" jCncel = 0 Set FilDlg = Application.FileDialog(msoFileDialogOpen) With FilDlg With .Filters .Clear .Add "csv(CSVファイル)", "*.csv", 1 End With .InitialFileName = CsvNom If .Show = True Then CsvNom = .SelectedItems(1) Else MsgBox "cancelが選択されたため中止します" jCncel = 1 End If End With Set FilDlg = Nothing If jCncel <> 1 Then'セルのクリアー With ActiveSheet.UsedRange Range(Cells(1, 1), Cells(.Rows.Count, _ .Columns.Count)).Clear End With Open CsvNom For Input As #1'行数をカウント(空読み),最大列数を確認 ir = 0 Nc = 0 Do Until EOF(1) ir = ir + 1 Line Input #1, Ln If UBound(Split(Ln, ",")) >= Nc Then _ Nc = UBound(Split(Ln, ",")) + 1 Loop Nr = ir'CSVファイルの読み込み ReDim CsvAry(1 To Nr, 1 To Nc) Seek #1, 1 ir = 0 Do Until EOF(1) ir = ir + 1 Line Input #1, Ln For i = 1 To UBound(Split(Ln, ",")) + 1 CsvAry(ir, i) = Split(Ln, ",")(i - 1) Cells(ir, i) = CsvAry(ir, i) Next i Loop Close #1 End IfEnd Sub
08Mar
- テキストファイルの読み込み
  テキストファイルを読む場合の例はを示す。下記の例は、ダイアログボックスを開き、ファイル名を取得した後、行数をカウントした後、1バイトめに戻し、再度、1行ずつ読み、セルの1列めに表示するとともに、Ln()という文字列配列に読み込んでいる。Sub TxtRead()'テキストファイル名を取得する Dim FilDlg As FileDialog Dim PasNom As String Dim TxtNom As String Dim Ln() As String Dim ir As Long Dim jCncel As Integer PasNom = ThisWorkbook.Path If Right(PasNom, 1) <> "\" Then PasNom = PasNom & "\" TxtNom = PasNom & "test.txt" jCncel = 0 Set FilDlg = Application.FileDialog(msoFileDialogOpen) With FilDlg With .Filters .Clear .Add "txt(テキスト)", "*.txt", 1 End With .InitialFileName = TxtNom If .Show = True Then TxtNom = .SelectedItems(1) Else MsgBox "cancelが選択されたため中止します" jCncel = 1 End If End With Set FilDlg = Nothing If jCncel <> 1 Then'セルのクリアー With ActiveSheet.UsedRange Range(Cells(1,1),Cells(.Rows.Count, _ .Columns.Count)).clear End With ReDim Ln(1 To 1) Open TxtNom For Input As #1'行数をカウント(空読み) ir = 0 Do Until EOF(1) ir = ir + 1 Line Input #1, Ln(1) Loop'テキストファイルの読み込み ReDim Ln(1 To ir) Seek #1, 1 ir = 0 Do Until EOF(1) ir = ir + 1 Line Input #1, Ln(ir) Cells(ir, 1) Loop Close #1 End IfEnd Sub
05Mar
- セルの読み書き
  以下は、セルへの読み書き、クリアー等の例です。セルに書く場合は、 Cells( 3, 7) = 100# Range("G3") = 100# Cells( 5, 8) = "文字" Range("H5") = "文字"セルを読む場合は、 a = Cells( 3, 7) a = Range("G3") s = Cells( 5, 8) s = Range("H5")セルに書く前に、前の記録を消す方法は、 Range("G3").clearもちろん、そのままセルが特定できるのならば、上書きすればいいので、一般的には、 Range("A1:G10").clearのように、範囲を指定して使用することが多い。それを行列(番号)で指定する場合は、 Range(Cells(1,1),Cells(10,7)).clearと記載する。また、値だけクリアーする場合は、 Range("A1:G10").clearContents書式だけクリアーする場合は、 Range("A1:G10").clearFormatsと記載する。シート全体の記録を消す場合は、最大行列(番号)をMaxRow、MaxClmとすると、 MaxRow = ActiveSheet.UsedRange.Rows.Count MaxClm = ActiveSheet.UsedRange.Columns.Count Range(Cells(1,1),Cells(MaxRow, MaxClm)).clearシートの中の表の記録を消す場合は、表の始まりをRange("A1")とすると、 MxcClm = Range("A1").End(xlToRight).Column MxcRow = Range("A1").End(xlDown).Row Range(Cells(1,1),Cells(MxcRow, MxcClm)).clear書式の設定は、(例えば、) Range("A1:G10").NumberFormatLocal = "#,##0; [赤]-#,##0"

前ページ
次ページ