« 2009年1月 | トップページ | 2009年3月 »

JavaScript雛形

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Script-Type" content="text/javascript">
<title>タイトル</title>
<script type="text/javascript">
<!--

-->
</script>
</head>
<body>
<noscript>
JavaScriptに対応するブラウザでご覧ください。
</noscript>
<script type="text/javascript">
<!--

-->
</script>
</body>
</html>

| | コメント (0) | トラックバック (0)

Javaアプリケーション

Javaのアプリケーションを作成する第一歩として簡単な物を作成しました。

Hello


import java.awt.*;
import javax.swing.*;

public class Sample1 extends JFrame{
private JLabel lb1;
Sample1() {
setBounds(100,100,250,100);

lb1 = new JLabel(”こんにちは”); //ラベルの作成

Container cnt= getContentPane(); //コンテナの作成
cnt.add(lb1); //コンポーネントの配置

//コンテナの表示
setVisible(true);
}
public static void main(String args[]){
Sample1 sample1 = new Sample1();
}
}

| | コメント (0) | トラックバック (0)

マイゼミ備忘録

Sub test()
  Sheets("sheet1").Select
  Range("a1").Select
   
  Sheets("売上一覧").Select
  Range("g4").Select
  Do
    If ActiveCell.Value >= 50000 Then
          ActiveCell.EntireRow.Copy
          Sheets("sheet1").Select
          ActiveCell.EntireRow.Insert
          ActiveCell.Offset(1, 0).Select
          Sheets("売上一覧").Select
    End If
    ActiveCell.Offset(1, 0).Select
  Loop While ActiveCell.Value <> ""
End Sub

| | コメント (0) | トラックバック (0)

メモ

Sub 千円以上()

    Worksheets("Sheet4").Select
    Range("D4").Select

    Worksheets("商品一覧").Select
    Range("D4").Select
    ActiveCell.Offset(1, 0).Select
    Do Until ActiveCell.Value = ""
        If ActiveCell.Value >= 1000 Then
            ActiveCell.EntireRow.Copy
            Worksheets("Sheet4").Select
            ActiveCell.EntireRow.Insert
            ActiveCell.Offset(1, 0).Select
            Worksheets("商品一覧").Select
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

| | コメント (0) | トラックバック (0)

« 2009年1月 | トップページ | 2009年3月 »