Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


31839 / 76734 ←次へ | 前へ→

【50138】Re:データ整理
発言  Lindy  - 07/7/11(水) 10:15 -

引用なし
パスワード
   ▼林 さん:
こんにちは。

振っておきながら忙しくて見られませんでした。

ichinoseさんも仰られていますが、同じ理由で林さんのコードは解読してません。

あとはB列のデータも何が入っているのかわからないです。
(なので変数はVariantです。)

だいたい、こんな感じの事をしたいのでしょうか?
(もっとスマートに組めそうな気もしますが・・・私の能力限界)

Option Explicit
Option Base 1
Sub test()
Dim stdat() As Variant, cydat() As Variant, lndat As Long, i As Long
With ThisWorkbook
 With .Sheets("Stress_Data")
  lndat = .Cells(.Rows.Count, 1).End(xlUp).Row
  stdat = .Range("A1", .Cells(lndat, 2)).Value
 End With
 ReDim cydat(5, 1)
 For i = 2 To UBound(stdat) - 1
  If stdat(i, 1) > stdat(i - 1, 1) And _
    stdat(i, 1) > stdat(i + 1, 1) Then
   ReDim Preserve cydat(5, UBound(cydat, 2) + 1)
   cydat(1, UBound(cydat, 2)) = UBound(cydat, 2) - 1
   cydat(2, UBound(cydat, 2)) = stdat(i, 1)
   cydat(4, UBound(cydat, 2)) = stdat(i, 2)
  ElseIf stdat(i, 1) < stdat(i - 1, 1) And _
      stdat(i, 1) < stdat(i + 1, 1) Then
   cydat(3, UBound(cydat, 2)) = stdat(i, 1)
   cydat(5, UBound(cydat, 2)) = stdat(i, 2)
  End If
 Next i
 cydat(3, UBound(cydat, 2)) = stdat(i, 1)
 cydat(5, UBound(cydat, 2)) = stdat(i, 2)
 With .Sheets("Cycle_vs_MaxSg")
  .Columns("A:E").ClearContents
  .Range("A1").Resize(UBound(cydat, 2), 5).Value = _
   Application.Transpose(cydat)
  .Range("A1:E1").Value = _
   Array("Cycle", "Max_Stress", "Min_Stress", "Max_ColB", "Min_ColB")
 End With
End With
End Sub

>>自分で勉強すればいいって話なんですが
>本来は、そうですし、ここはそういう方が対象のサイトですよね!!

に、同感なのであえて説明はつけていません。
少し見てみてくださ〜い^^

これ、コードの解読や記述が御自分でも出来ないと
実験データの信憑性を疑われた時に困ってしまうと思うので
仮に出来たとしても、しっかり理解された方が良いですよ?

3 hits

【50060】データ整理 07/7/6(金) 16:28 質問
【50061】Re:データ整理 Lindy 07/7/6(金) 16:51 発言
【50068】Re:データ整理 ichinose 07/7/7(土) 8:40 発言
【50095】Re:データ整理 07/7/8(日) 22:06 発言
【50099】Re:データ整理 07/7/9(月) 12:20 質問
【50117】Re:データ整理 ichinose 07/7/10(火) 7:47 発言
【50121】Re:データ整理 07/7/10(火) 10:54 発言
【50133】Re:データ整理 ichinose 07/7/10(火) 20:38 発言
【50138】Re:データ整理 Lindy 07/7/11(水) 10:15 発言
【50143】Re:データ整理 07/7/11(水) 12:02 お礼

31839 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free